Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Unprotect Sheets
Is there a way to unprotect a series of worksheets?
All of the worksheets have the same password. When I group the worksheets and go to Tools Protection, the "Unprotect Sheet" opeion is grayed out. Thank you |
#2
|
|||
|
|||
Hi
not possible without VBA -- Regards Frank Kabel Frankfurt, Germany "Karen" schrieb im Newsbeitrag ... Is there a way to unprotect a series of worksheets? All of the worksheets have the same password. When I group the worksheets and go to Tools Protection, the "Unprotect Sheet" opeion is grayed out. Thank you |
#3
|
|||
|
|||
Does anyone have any VBA code to unprotect a series of
worksheets? Thank you -----Original Message----- Hi not possible without VBA -- Regards Frank Kabel Frankfurt, Germany "Karen" schrieb im Newsbeitrag ... Is there a way to unprotect a series of worksheets? All of the worksheets have the same password. When I group the worksheets and go to Tools Protection, the "Unprotect Sheet" opeion is grayed out. Thank you . |
#4
|
|||
|
|||
Hi Karen,
I had the very same problem some time back and got an excellent VBA code from Harald staff that you can find below. You have one sub that protects all the worksheets with the same password and one that unlocks all the sheets with the same PW. ------------------- Hi Not without macro code. Here it is: Sub LockEm() Dim i As Long Dim PW As String Dim WS As Worksheet PW = InputBox("Password:") On Error GoTo MyErr For Each WS In ActiveWorkbook.Worksheets WS.Protect (PW) Next MsgBox i & " errors while protecting", vbInformation Exit Sub MyErr: i = i + 1 Resume Next End Sub Sub UnLockEm() Dim i As Long Dim PW As String Dim WS As Worksheet PW = InputBox("Password:") On Error GoTo MyErr For Each WS In ActiveWorkbook.Worksheets WS.Unprotect (PW) Next MsgBox i & " errors while unprotecting", vbInformation Exit Sub MyErr: i = i + 1 Resume Next End Sub "Karen" skrev: Thank you - I'll give it a try -----Original Message----- Hi try sub unprotect_all() dim wks as worksheet on error resume next for each wks in activeworkbook.worksheets wks.unprotect next end sub If you have a password applied change wks.unprotect to wks.unprotect password:="your password" -- Regards Frank Kabel Frankfurt, Germany "Karen" schrieb im Newsbeitrag ... Does anyone have any VBA code to unprotect a series of worksheets? Thank you -----Original Message----- Hi not possible without VBA -- Regards Frank Kabel Frankfurt, Germany "Karen" schrieb im Newsbeitrag ... Is there a way to unprotect a series of worksheets? All of the worksheets have the same password. When I group the worksheets and go to Tools Protection, the "Unprotect Sheet" opeion is grayed out. Thank you . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
PROTECTING/UNPROTECTING SHEETS | Excel Discussion (Misc queries) | |||
Multiple sheets selected | Excel Discussion (Misc queries) | |||
Printing separate sheets on one paper sheet | Excel Discussion (Misc queries) | |||
Linking sheets to a summary sheet in workbook | Excel Discussion (Misc queries) | |||
CountIF across multiple sheets in a workbook | Excel Worksheet Functions |