Password Protection

[Brian F]

Excel 2010, Windows 7: Is it possible to password protect an Excel document at an "Administrator" or a executive level. I want to grant access to the document, and the ability to manipulate it as they choose, to everyone with the password but prohibit them from changing the password once they are in. It seems to me that I CAN'T do what I'm asking but it wouldn't be the first time I was wrong. Any help or advice is appreciated.

 

[Jaye7]

I typically use a userform that pops up and asks for a password to change anything, that way I can have multiple options available and you don't have the annoying read only message popping up every time you open a workbook.

You can use the protect sheet code when you open the workbook.

I use it when you open the workbook as if you use it before you close the workbook you encounter problems if someone doesn't want to save changes.

Sub ProtectSheet()
Dim Password    'This line of code is optional
Password = "1234"
ActiveSheet.Protect Password, True, True, True
'Add in the following line if you want the user
'to be able to select the cell but not change anything
'ActiveSheet.EnableSelection = xlNoRestrictions
End Sub


Sub UnProtectSheet()
Password = "1234"
ActiveSheet.Unprotect Password
End Sub