Unprotect groups
 

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

Unprotect groups
 

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?

Unprotect groups
 

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


"JE McGimpsey" wrote in message
...
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?

Unprotect groups
 

Try spelling it in reverse for a hint.

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

Ed Davis wrote:

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

"JE McGimpsey" wrote in message
...
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?

--

Dave Peterson