exclude 1 sheet in wkb

[lbozeman]

How can I make it so the below macro sets all sheets to password except 1? I would like sheet1 to have the password: password1 and all other to have password.

Any help is welcomed.


Sub ProtectAllLB()
top:
pass = "password"
repass = "password"
If Not (pass = repass) Then
MsgBox "Passwords do not match"
GoTo top
End If

For i = 1 To Worksheets.Count
If Worksheets(i).ProtectContents = True Then GoTo err
Next

For Each s In ActiveWorkbook.Worksheets
s.Protect Password:=pass, UserInterfaceOnly:=True
Next

Run "RemoveToolbars"
ActiveWorkbook.Save
Application.StatusBar = "Dashboard Updated and Saved successfully, Thank you."

MsgBox "Dashboard Save Completed.", vbInformation

Exit Sub

err: MsgBox "Please unprotect all sheets before running this Macro."
End Sub

 

[Ruddles]

You can test the name of each worksheet as you loop through them - something along these lines:-

For Each s In ActiveWorkbook.Worksheets
  if s.[COLOR=black]name="fred" then[/COLOR]
    s.Protect Password:="password1", UserInterfaceOnly:=True
  else
    s.Protect Password:="password", UserInterfaceOnly:=True
  endif
Next