Sheets cannot be "opened", only activated.

Private Sub Worksheet_Activate()
If Environ("username") = "Gord" Then
ActiveSheet.Unprotect Password:="password"
End If
End Sub


Gord Dibben MS Excel MVP


On Fri, 29 May 2009 09:27:39 +0100, "Stig - tame racing driver"
wrote:

I have a password protect sheet, and all I'm after is a way to automatically
unlock the sheet when certain uses (admin) open it

I did have a go using this

If Environ = ("username") Then
ActiveSheet.Unprotect Password:="password"

Regards