Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Worksheet Protection
Good day to all
I have so many worksheet to protect. How do I protect them all together with a single operation (no need to go to each worksheet and do the protection). Thank You for help |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Worksheet Protection
This can be done with only a VBA procedu
Sub ProtectAll() Dim WS As Worksheet For Each WS In ActiveWorkbook.Worksheets WS.Protect Password:="OptionalPassword" Next WS End Sub -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com (email address is on the web site) "faeiz2" wrote in message ups.com... Good day to all I have so many worksheet to protect. How do I protect them all together with a single operation (no need to go to each worksheet and do the protection). Thank You for help |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Worksheet Protection
Press Alt and F11 together to open the VB Editor
Click 'Insert' 'Module' In the empty window on the right, copy and paste this code, Sub Protect() Dim WK As Worksheet For Each WK In ThisWorkbook.Worksheets WK.Protect Password:="password" Next WK End Sub Sub Unprotect() Dim WK As Worksheet For Each WK In ThisWorkbook.Worksheets WK.Unprotect Password:="password" Next WK End Sub Hit Alt and F11 to close the VB Editor Go 'Tools' 'Macro's 'Protect' will protect all sheets, 'Unprotect' will unprotect all sheets. Alter the password as required. You can assign the macro's to buttons via the 'View' 'Toolbars' 'Forms' menu, Regards, Alan. "faeiz2" wrote in message ups.com... Good day to all I have so many worksheet to protect. How do I protect them all together with a single operation (no need to go to each worksheet and do the protection). Thank You for help |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Worksheet Protection
Thanks a million.
Alan wrote: Press Alt and F11 together to open the VB Editor Click 'Insert' 'Module' In the empty window on the right, copy and paste this code, Sub Protect() Dim WK As Worksheet For Each WK In ThisWorkbook.Worksheets WK.Protect Password:="password" Next WK End Sub Sub Unprotect() Dim WK As Worksheet For Each WK In ThisWorkbook.Worksheets WK.Unprotect Password:="password" Next WK End Sub Hit Alt and F11 to close the VB Editor Go 'Tools' 'Macro's 'Protect' will protect all sheets, 'Unprotect' will unprotect all sheets. Alter the password as required. You can assign the macro's to buttons via the 'View' 'Toolbars' 'Forms' menu, Regards, Alan. "faeiz2" wrote in message ups.com... Good day to all I have so many worksheet to protect. How do I protect them all together with a single operation (no need to go to each worksheet and do the protection). Thank You for help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Worksheet protection status | Excel Discussion (Misc queries) | |||
Cell Protection vs. Worksheet Protection | Excel Discussion (Misc queries) | |||
Worksheet tab protection | Excel Discussion (Misc queries) | |||
copyright and worksheet protection | Excel Discussion (Misc queries) | |||
Seeking help for total worksheet protection | Excel Discussion (Misc queries) |