Thread: Password Protection

With protected worksheets, if you want macros to act on protected cells you have to un-protect them first. This can be done quite easily by adding two lines to your code - one at the beginning and one atthe end (to re-protect your cells).

Sub anwitha()
Sheets("timesheet").Unprotect Password:="your_password"
.
.
Other code here
.
.
Sheets("timesheet").Protect Password:="your_password"
End Sub

So users can't open the VB editor and see your password, you can protect the vba by clicking Tools -> VBA Project Properties -> Protection and check the 'Lock project' box and set a password. While superusers can break sheet and vba password protection in minutes, it will keep the average user from breaking in and changing anything.

Hope that helps!

Your code is working fine. If you actually have a password set (not a blank password) you have to add the bits after .Unprotect and .Protect as I showed above. Also note that cells F5:F8 do not contain the formula found in F9:F17. My guess is they probably should.

I'd also recommend not using ActiveSheet.Unprotect / .Protect. Specify the sheet name.

Sheets("Sheet1").Unprotect Password:="this is where your password goes"