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

In article ,
"Ed Davis" wrote:

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