Unprotect groups

[Ed Davis]

Is there a way to unprotect a group rather than having to unprotect each
sheet individually?

 

[JE McGimpsey]

One way:

Public Sub UnprotectGroups()
Const csPWORD As String = "drowssap"
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
ws.Unprotect Password:=csPWORD
Next ws
End Sub

 

[Ed Davis]

I am assuming that the "drowssap" is the password for each sheet. Am I
correct?

 

[Dave Peterson]

Try spelling it in reverse for a hint.

I always thought JE was sending me a subliminal message to make me sleepy!