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

if cUser = "XJOHN" _
or cUser = "YPAUL" then

or you could use a select case structu

select case cUser
case is = "XJOHN", "XPAUL"
'DO THE WORK

Sometimes, that "select case" structure is lots easier to modify when you want
to add more options.

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

--

Dave Peterson

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
.