To protect all worksheet simultaneously in a excel workbook
in [Functions]
|
Prev: Locking A Sheet Using Words & Numbers
Next: How do I put a blank value in a cell not using "" in a formula
From: Vimlesh on 1 Jun 2010 18:55 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.
From: Gord Dibben on 1 Jun 2010 19:17
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 <Vimlesh(a)discussions.microsoft.com> 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. |