protecting multiple sheets
I would like to protect / deprotect multiple sheets with a single password in
a single action At present i have to protect each sheet individually, each with the same password which is tedious, especially as i have to do each sheet each time i protect or deprotect it. My 10 sheets are named : St1, St2, St3.........up to St10 Ideally i would like a form to pop up when i push a button which allows me to either protect or deprotect these 10 sheets with my password in a single action. Can anyone help? Regards, Roger |
protecting multiple sheets
Protect all sheets...............
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 Unprotect all sheets.................... 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 Protect selected sheets.......................... Sub Protect_Selected_Sheets() Application.ScreenUpdating = False Set MySheets = ActiveWindow.SelectedSheets For Each ws In MySheets ws.Select ws.Protect Password:="justme" Next ws Application.ScreenUpdating = True End Sub Unprotect selected sheets................ Sub UnProtect_Selected_Sheets() Application.ScreenUpdating = False Set MySheets = ActiveWindow.SelectedSheets For Each ws In MySheets ws.Select ws.UnProtect Password:="justme" Next ws Application.ScreenUpdating = True End Sub Gord Dibben MS Excel MVP On Sun, 3 Aug 2008 17:35:02 -0700, Roger on Excel wrote: I would like to protect / deprotect multiple sheets with a single password in a single action At present i have to protect each sheet individually, each with the same password which is tedious, especially as i have to do each sheet each time i protect or deprotect it. My 10 sheets are named : St1, St2, St3.........up to St10 Ideally i would like a form to pop up when i push a button which allows me to either protect or deprotect these 10 sheets with my password in a single action. Can anyone help? Regards, Roger |
protecting multiple sheets
Thanks Gord,
Your kind help, together with posts from others has given me the code I need to make this work nicely. Best regards, Roger "Gord Dibben" wrote: Protect all sheets............... 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 Unprotect all sheets.................... 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 Protect selected sheets.......................... Sub Protect_Selected_Sheets() Application.ScreenUpdating = False Set MySheets = ActiveWindow.SelectedSheets For Each ws In MySheets ws.Select ws.Protect Password:="justme" Next ws Application.ScreenUpdating = True End Sub Unprotect selected sheets................ Sub UnProtect_Selected_Sheets() Application.ScreenUpdating = False Set MySheets = ActiveWindow.SelectedSheets For Each ws In MySheets ws.Select ws.UnProtect Password:="justme" Next ws Application.ScreenUpdating = True End Sub Gord Dibben MS Excel MVP On Sun, 3 Aug 2008 17:35:02 -0700, Roger on Excel wrote: I would like to protect / deprotect multiple sheets with a single password in a single action At present i have to protect each sheet individually, each with the same password which is tedious, especially as i have to do each sheet each time i protect or deprotect it. My 10 sheets are named : St1, St2, St3.........up to St10 Ideally i would like a form to pop up when i push a button which allows me to either protect or deprotect these 10 sheets with my password in a single action. Can anyone help? Regards, Roger |
All times are GMT +1. The time now is 03:18 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com