VBA password protect, input box

[peterhinton]

can I modify this simple VBA, so that rather than have the password "edit" in the code, when I run the macro I am prompted for an input box to pop up instead ?

Sub unprotect()
    ActiveSheet.unprotect Password = "edit"
End Sub

 

[RoryA]

First off, that code is not correct - it's actually using "False" as a password. It should read:

ActiveSheet.unprotect Password:="edit"

(see this for an explanation)

To add an inputbox:

[code]ActiveSheet.unprotect Password:=Inputbox("Enter password")

 

[mikerickson]

ActiveSheet.Unprotect

Will automatically display a "enter password" dialog if the sheet is password protected.