Locking and Unlocking using VBA

[madchemist]

I have a userform that translates information into a row. I want to protect certain columns in the row to prevent users from accidentally changing data.

I know I need to place an .Unprotect and .Protect command in my macro to be able to let the macro enter information, but keep getting errors when I try and put a password in the code.

This is the macro I recorded:

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True

In the past, I have always just used the following to lock:

ActiveSheet.Protect Password = "password"

How do I append a password to the protect command with the criteria after it? Because if I do either of the following I get errors.....

ActiveSheet.Protect  Password = "password" DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True Password = "password"

Am I missing a comma or something? Thanks!

 

[madchemist]

Figured it out right after I posted this

Needs to be Password:= "password"

Thanks for your reading time!

 

[Norie]

Not a comma but a colon.

ActiveSheet.Protect  Password:= "password" DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True