Hi,
I have entered this code. But I want the password to appear in the for
of **** when opening the sheet. Is that possible? If yes, pleas
help......your help is appreciated. :smile:


Private Sub enterpassd()
Dim pw As String
Application.ScreenUpdating = False
pw = InputBox("Please enter Password.")
If pw = "yourpassword" Then
With Worksheets("Corporate 99")
ActiveSheet.Unprotect password:=pw
.Visible = True
.Activate
End With
Else: MsgBox "The password is incorrect. Please try again."
End If
Application.ScreenUpdating = True
End Sub

Thanks in advance......

also please let me know how to put the above code in the code format i
this forum...i tried enough.....:

--
praveen_kh
-----------------------------------------------------------------------
praveen_khm's Profile: http://www.excelforum.com/member.php...fo&userid=3036
View this thread: http://www.excelforum.com/showthread.php?threadid=53464