Protect Sheet Macro

[sitelbanat]

I recorded a macro to protect 2 sheets with a password, but when I click on the macro to protect the sheet, then go to tools unprotect sheet, it does not promt me for a password. Why is that? This is the macro am useing

Sub Protect_sheet()
'
' Protect_sheet Macro
'
'

'
Sheets("LABOR INPUT").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("BUDGET SHEET").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[erik.van.geit]

try this

Sheets("LABOR INPUT").Protect Password:="password", DrawingObjects:=True, Contents:=True, Scenarios:=True

change "password" to any password you like

 

[sitelbanat]

Hi eric, thank you very much for replying. For unprotect is it?

Sheets("LABOR INPUT").Protect Password:="password", DrawingObjects:=False, Contents:=False, Scenarios:=False

And what about Protecting the workbook, What would the code me for that?

 

[erik.van.geit]

when you protect a sheet you can set some arguments
when unprotecting this is not the case

Sheets("LABOR INPUT").UnProtect Password:="password"

 

[sitelbanat]

eric, What about the workbook protection, What would the code be for that?

 

[erik.van.geit]

it's impossible to protect the workbook within code
to my knowledge there is really no syntax available

no I'm kitting
simply record a macro to know the syntax

    ActiveWorkbook.Protect Structure:=True, Windows:=False
    ActiveWorkbook.Unprotect

then click in the word "protect" and hit function key F1
help is right on it's way :->
syntax
expression.Protect(Password, Structure, Windows)
this gets us to something like this

Const PW As String = "1234"
    ActiveWorkbook.Unprotect Password:=PW
    ActiveWorkbook.Protect Password:=PW, Structure:=True, Windows:=False