Try this! Hope this helps! If so, let me know, click "YES" below

Sub UnprotectAllSheets()

Dim cUser As String
Dim wSheet As Worksheet

'change to uppercase because this seems to be case sensitive.
cUser = UCase(Environ("username"))
If cUser = "XJOHN" Or cUser = "YPAUL" Then

Dim wSheet As Worksheet
For Each wSheet In ActiveWorkbook.Worksheets
wSheet.Unprotect Password:="opensesame"
Next

Else
UserForm1.Show
End If
End Sub
--
Cheers,
Ryan


"tinman" wrote:

Hello,

Could someone help me understand why it doesn't like "If cUser =
"XJOHN" Or "YPAUL" Then" in the macro below? Thanks.

Sub UnprotectAllSheets()
Dim cUser As String
cUser = UCase(Environ("username")) 'change to uppercase because
this seems to be case sensitive.
If cUser = "XJOHN" Or "YPAUL" Then

Dim wSheet As Worksheet
For Each wSheet In ActiveWorkbook.Worksheets
wSheet.Unprotect Password:="opensesame"
Next

Else
UserForm1.Show
End If
End Sub
.