try this:


Code:
--------------------
Sub Unprotect sheet()
'Private Sub CommandButton1_Click()

' unprotect Macro

ActiveSheet.unprotect

End Sub
--------------------


If you want to assign this to a button, uncomment the Private Sub line
and comment out (or remove) the Sub line.

HTH

Bruce


--
swatsp0p


------------------------------------------------------------------------
swatsp0p's Profile: http://www.excelforum.com/member.php...o&userid=15101
View this thread: http://www.excelforum.com/showthread...hreadid=526090