Unprotect via prompt

[gavmer]

Hi all,

have a protected sheet that a user may need to amend. I therefore nee
a click event that will prompt for a password and unprotect the shee
so they can enter info. ANother click event to reprotect the sheet.

Thanks in advance all!!!!

 

[Rog]

Hi

Add a couple of buttons to the sheet, and then use the
following code :

Private Sub CommandButton1_Click()

ActiveSheet.Unprotect InputBox("Enter password to
unprotect sheet")

End Sub

Private Sub CommandButton2_Click()

ActiveSheet.Protect InputBox("Enter password to
protect sheet")


End Sub

Rgds

Rog