Unprotecting Several Sheets At Once
From Excel's help menu:
ActiveWorkbook.Unprotect
Modify your macro accordingly...
Regards,
Ryan---
--
RyGuy
"Zee" wrote:
I have some code entered in to protect all the sheets upon close however I
would like to be able to unprotect them all by only entering the password
once as it is the same for all the sheets.
Thanks
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Dim N As Single
For N = 1 To Sheets.Count
Sheets(N).Protect Password:="password"
Next N
Application.ScreenUpdating = True
End Sub
|