setattr

[Yngve]

Hi
Is it posible to open a file and us
sub auto_open and check if file is vbReadOnly, change it if I`m the
right user.

Regards Yngve

 

[joel]

After you write the macro you need to protect the macro so nobod
changes the code or will be able to read your password


Something like this


Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
If Environ("UserName") = "XXX" Then
If Wb.HasPassword = True Then
Wb.Unprotect "Password"
End If
End If
End Sub


the username is you PC login nam

 

[Yngve]

After you write the macro you need to protect the macro so nobody
changes the code or will be able to read your password

Something like this

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
If Environ("UserName") = "XXX" Then
If Wb.HasPassword = True Then
Wb.Unprotect "Password"
End If
End If
End Sub

the username is you PC login name

--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread:http://www.thecodecage.com/forumz/showthread.php?t=161054

Microsoft Office Help

Hi Joel
Thanks

Regards Yngve