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

Sub dural()
If Environ("username") = "ravenswood" Then
ActiveSheet.Unprotect
End If
End Sub

or some other specific username.
--
Gary''s Student - gsnu200855


"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

Cheers

"Gary''s Student" wrote in message
...
Sub dural()
If Environ("username") = "ravenswood" Then
ActiveSheet.Unprotect
End If
End Sub

or some other specific username.
--
Gary''s Student - gsnu200855


"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

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