Modify Protection Macro to allow formatting?
 

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

How do I modify to allow users to format cells?

Modify Protection Macro to allow formatting?
 

Only been 4 minutes since your first post.

Have a little patience.

See reply at that post.


Gord Dibben MS Excel MVP

On Thu, 11 Feb 2010 11:14:02 -0800, Visakha
wrote:

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

How do I modify to allow users to format cells?

Modify Protection Macro to allow formatting?
 

Well, c'mon! 4 minutes?! that's practically all day.

"Gord Dibben" wrote:

Only been 4 minutes since your first post.

Have a little patience.

See reply at that post.


Gord Dibben MS Excel MVP

On Thu, 11 Feb 2010 11:14:02 -0800, Visakha
wrote:

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

How do I modify to allow users to format cells?

.

Modify Protection Macro to allow formatting?
 

Apologies! I have had problems in the past posting and thought that the post
got lost. Thanks!

"The Avenger" wrote:

Well, c'mon! 4 minutes?! that's practically all day.

"Gord Dibben" wrote:

Only been 4 minutes since your first post.

Have a little patience.

See reply at that post.


Gord Dibben MS Excel MVP

On Thu, 11 Feb 2010 11:14:02 -0800, Visakha
wrote:

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

How do I modify to allow users to format cells?

.