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

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/sh...d.php?t=161054

Microsoft Office Help

On 9 Des, 19:09, joel wrote:
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/sh...d.php?t=161054

Microsoft Office Help

Hi Joel
Thanks

Regards Yngve