vba protect sheet with password

[Roman12]

Hi,

I have recorded the following macro to protect my different worksheets. Unfortunately, it just protects the worksheets without asking for the password. How am I able to add the password to my recorded macro?
Thank you in advance for your help.

Roman



Recorded macro:

Sub protectall()
'
' protectall Macro
' Macro recorded 01-02-2012 by RomanGraber
'

'
Sheets("Baseline overview list").Select
Cells.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
Sheets("Options").Select
Cells.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("B2").Select
Sheets("Management").Select
Cells.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
Sheets("Overview").Select
End Sub

 

[Andrew Poulsom]

Like this:

ActiveSheet.Protect Password:="YourPassword", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

The Unprotect method also has a Password argument.

 

[Roman12]

Hi,

I tried to implement your suggestion. Is it correct that when protecting, the macro will not ask to type in the password?

If I want to unprotect all the previous worksheets again with a macro that before unprotecting asks for the password, what would the macro look like?

Thank you

Roman

 

[Andrew Poulsom]

Like this?

ActiveSheet.UnProtect Password:="YourPassword"

If the password is correct you won't be propmpted for it.

 

[Roman12]

Thank you for your quick help

Have a nice day.

Roman

 

[mturchin]

Is there a way to protect the work sheet and still allow the use of slicers? I've unlocked the slicers in their properties, and I protected the sheet using ActiveSheet.Protect Password:="MyPassword", AllowUsingPivotTables:=True

I have multiple tabs in my workbook, this technique worked on two of the tabs and allows me to click the slicers, but on the other tabs I still cannot click the slicers. Any suggestions? I am using Excel 2013

 

[userpoets]

I am new to excel programming and macros; I made an error in my macro, I had the line:

Activesheet.Protect Password = "password" without the colon, and now it will not recognize the set password. Am I completely SOL?

 

[Fluff]

Try FALSE (all in caps)

 

[userpoets]

Try FALSE (all in caps)

That worked; thank you!

 

[Fluff]

You're welcome & thanks for the feedback