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