setattr
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 |
setattr
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 |
setattr
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 |
All times are GMT +1. The time now is 10:42 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com