Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Protecting Multiple Sheets
Hi
I have a workbook with 60 sheets in it. I need to protect 52 sheets only. Is there a way I can do this collectively instead of each one individaully?? Cheers -- All help much appreciated. Thanks |
#2
|
|||
|
|||
Hi
one way is to run the following code: --- Sub ProtectAll() For Each ws In Sheets ws.Protect ("pwd") Next Set sh = ActiveSheet varr = Array("Sheet1", "sheet3") For i = LBound(varr) To UBound(varr) With Worksheets(varr(i)) .Activate .Unprotect ("pwd") End With Next sh.Activate End Sub -- in the line varr = Array("Sheet1", "sheet3") list the names of the sheets you do not want protected. note: this code applies a password of pwd to the protected sheets - if you want another password just replace pwd (in 2 places) with the password you want, if you don't want a password just delete the ("pwd") bit. to use this code, right mouse click on any sheet tab, choose view code, to display the vbe window, choose insert / module, copy & paste the code in there, make the changes and then use ALT & F11 to switch back to your workbook. Choose tools / macro / macros, find Protect all and choose RUN -- Cheers JulieD check out www.hcts.net.au/tipsandtricks.htm ....well i'm working on it anyway "pjd" wrote in message ... Hi I have a workbook with 60 sheets in it. I need to protect 52 sheets only. Is there a way I can do this collectively instead of each one individaully?? Cheers -- All help much appreciated. Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Exporting multiple sheets to multiple htm files? | Excel Discussion (Misc queries) | |||
Copying multiple sheets from one book 2 another and undertake spec | Excel Discussion (Misc queries) | |||
Protecting multiple sheets | Excel Discussion (Misc queries) | |||
Multiple sheets selected | Excel Discussion (Misc queries) | |||
linking multiple sheets to a summary sheet | Excel Discussion (Misc queries) |