setattr

  • Thread starter Thread starter Yngve
  • Start date Start date
Y

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
 
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
Click to expand...

Hi Joel
Thanks

Regards Yngve
 
Back
Top