Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Protection Macros--modify to allow format changes
Hello. I am currently using the following macro:
Option Explicit Sub UnprotectAll() dim wks as worksheet for each wks in activeworkbook.worksheets wks.unprotect password:="topsecret" next wks End Sub Sub ProtectAll() dim wks as worksheet for each wks in activeworkbook.worksheets wks.protect password:="topsecret" next wks End Sub I would like to be able to modify this macro so that end users can format rows as needed. I am a beginnner macro user. Thanks in advance! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Protection Macros--modify to allow format changes
Sub ProtectAll()
Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Protect Password:="topsecret", AllowFormattingRows:=True Next wks End Sub To see all arguments enter wks.Protect, and Intellisense will show you all the options. Gord Dibben MS Excel MVP On Thu, 11 Feb 2010 11:00:13 -0800, Visakha wrote: Hello. I am currently using the following macro: Option Explicit Sub UnprotectAll() dim wks as worksheet for each wks in activeworkbook.worksheets wks.unprotect password:="topsecret" next wks End Sub Sub ProtectAll() dim wks as worksheet for each wks in activeworkbook.worksheets wks.protect password:="topsecret" next wks End Sub I would like to be able to modify this macro so that end users can format rows as needed. I am a beginnner macro user. Thanks in advance! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Protection Macros--modify to allow format changes
THANKS! This was very helpful!!
"Gord Dibben" wrote: Sub ProtectAll() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Protect Password:="topsecret", AllowFormattingRows:=True Next wks End Sub To see all arguments enter wks.Protect, and Intellisense will show you all the options. Gord Dibben MS Excel MVP On Thu, 11 Feb 2010 11:00:13 -0800, Visakha wrote: Hello. I am currently using the following macro: Option Explicit Sub UnprotectAll() dim wks as worksheet for each wks in activeworkbook.worksheets wks.unprotect password:="topsecret" next wks End Sub Sub ProtectAll() dim wks as worksheet for each wks in activeworkbook.worksheets wks.protect password:="topsecret" next wks End Sub I would like to be able to modify this macro so that end users can format rows as needed. I am a beginnner macro user. Thanks in advance! . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Modify general format to date format. | Excel Worksheet Functions | |||
Unable to modify the level of protection of macro | Excel Discussion (Misc queries) | |||
Modify Web Query using macros? | Excel Programming | |||
protection and macros | Excel Programming | |||
Protection & Macros | Excel Programming |