Protecting worksheet

[lbonsemb]

If I protect a sheet through Tools/Protection, a button that runs a macro to hide rows cannot be executed without having to enter the password to unprotect it (which defeats the purpose of protecting the worksheet).
I know there is a way to protect through coding. Please give me a hand to solve this.
Thanks

 

[hollifd]

Is this what you need...

'To protect the sheet place this at the bottom of your macro...
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True

'To unprotect the active sheet...place this at the top of you macro...


ActiveSheet.Unprotect

I hope this helps you.

David

 

[hollifd]

Is this what you need...

'To protect the sheet place this at the bottom of your macro...
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True

'To unprotect the active sheet...place this at the top of you macro...


ActiveSheet.Unprotect

I hope this helps you.

David

 

[hollifd]

Is this what you need...

'To protect the sheet place this at the bottom of your macro...
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True

'To unprotect the active sheet...place this at the top of you macro...


ActiveSheet.Unprotect

I hope this helps you.

David

 

[dtaylor]

here is code to protect and unprotect a single worksheet through vba

To protect multiple sheets use For Each statement.

To protect single:

Sub Protect()
Dim mySheet As Worksheet
Set mySheet = Worksheets("Project WorkSheet")
mySheet.Protect "SIMONE", True, True
End Sub

To Unprotect single:

Sub UnProtect()
Dim mySheet As Worksheet
Set mySheet = Worksheets("Project WorkSheet")
mySheet.Unprotect "SIMONE"
End Sub

you can put this code behind a command button
or put it inline with your current code.

Hope this helps!

Dan

 

[dtaylor]

here is code to protect and unprotect a single worksheet through vba

To protect multiple sheets use For Each statement.

To protect single:

Sub Protect()
Dim mySheet As Worksheet
Set mySheet = Worksheets("Project WorkSheet")
mySheet.Protect "SIMONE", True, True
End Sub

To Unprotect single:

Sub UnProtect()
Dim mySheet As Worksheet
Set mySheet = Worksheets("Project WorkSheet")
mySheet.Unprotect "SIMONE"
End Sub

you can put this code behind a command button
or put it inline with your current code.

Hope this helps!

Dan