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!

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!

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!

.