Unprotecting and Protecting workbooks using VBA

[Mikeykt]

Hi,

I'm trying to unproect and protect my workbook, so that my script can update the cells it needs to within my macro and then reprotect the workbook so that no one can overwritethe formulas.

I've tried the VBA below but it's not quite working, any tips anyone?

Thanks

ActiveWorkbook.FrontSheet.Unprotect Password:="password"
Range("D13:P24").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("D13:P24").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="password". DrawingObjects:=True, Contents:=True, Scenarios:=True

 

[GTO]

What is "FrontSheet"? Is that the name on the tab?

 

[JamesW]

Not sure what you are trying to do exactly, you have "FormulaHidden = False" twice and its not hidden as default, so basically you are unlocking a cell then locking it again straight after?

To lock sheets, try:

Sheets("FrontSheet").Unprotect Password:="password"
Sheets("FrontSheet").Protect Password:= "password"

 

[Mikeykt]

Sorry,

I included both protect and unprotect in the same vba for now.

I will split it around the macro i've written afterwards.

 

[Mikeykt]

That works perfectly

Thanks very much!