Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Protecting Multiple Sheets | Excel Discussion (Misc queries) | |||
Protecting Multiple Sheets | Excel Discussion (Misc queries) | |||
Protecting multiple sheets | Excel Discussion (Misc queries) | |||
Protecting and Unprotecting multiple sheets | Excel Programming | |||
Protecting Multiple sheets with prompt for password to unprotect | Excel Programming |