worksheet protection
is there any simple way to protect or unprotect multiple worksheets at once?
-- joec |
worksheet protection
two macro's
protect and unprotect Sub protect() For Each sheet In Sheets On Error Resume Next sheet.Protect ("yourword") Next ActiveWorkbook.Protect ("yourword") Application.StatusBar = "" End Sub Sub unprotect() ActiveWorkbook.Unprotect ("yourword") For Each sheet In Sheets On Error Resume Next sheet.Unprotect ("yourword") Next Application.StatusBar = "NOT sealed" End Sub Application.StatusBar = "NOT sealed" this line indicates in the statusbar at the bottom of the excel window whether the sheet is protected or not when you install the macro link it to a shortcut key combination -- Greetings from New Zealand "joec" wrote in message ... is there any simple way to protect or unprotect multiple worksheets at once? -- joec |
All times are GMT +1. The time now is 12:24 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com