If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
To protect all worksheet simultaneously in a excel workbook
If we select either few worksheets or all worksheet by holding 'shift' key,
can these all worksheet be protected/unprotected simultaneously using either same or different passwords for each sheet. |
#2
|
|||
|
|||
To protect all worksheet simultaneously in a excel workbook
Macro to protect all using same password.
Sub ProtectAllSheets() Application.ScreenUpdating = False Dim n As Single For n = 1 To Sheets.Count Sheets(n).Protect Password:="justme" Next n Application.ScreenUpdating = True End Sub And to unprotect all................................. Sub UnprotectAllSheets() Application.ScreenUpdating = False Dim n As Single For n = 1 To Sheets.Count Sheets(n).Unprotect Password:="justme" Next n Application.ScreenUpdating = True End Sub And to protect just selected sheets.......................... Sub Protect_Selected_Sheets() Set MySheets = ActiveWindow.SelectedSheets For Each ws In MySheets ws.Select ws.Protect Password:="justme" Next ws End Sub Gord Dibben MS Excel MVP On Tue, 1 Jun 2010 15:55:01 -0700, Vimlesh wrote: If we select either few worksheets or all worksheet by holding 'shift' key, can these all worksheet be protected/unprotected simultaneously using either same or different passwords for each sheet. |
Thread Tools | |
Display Modes | |
|
|