|
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
|