Hi,

I'm a bit sceptical about applicatin.screenupdating working and input boxes
don't have a password character property but there is a workaround:

http://www.xcelfiles.com/API_09.html

I've used this and it works but I wouldn't bother again it's far to much
hassle when a userform does it using inbuilt functionality.

Mike

"dafydd" wrote:

Can you help please?
To password protect a worksheet I am using the following code:

Private Sub Worksheet_Activate()
'password protect your VBA project
Dim strPassword As String
On Error Resume Next
Const Password = "dafydd"

Me.Protect Password:=Password
Me.Columns.Hidden = True

strPassword = InputBox("Enter password to view this sheet")

If strPassword = "" Then
Me.Previous.Select
Exit Sub
ElseIf strPassword < Password Then
MsgBox "Password Incorrect", , "Wrong password"
Me.Previous.Select
Exit Sub
Else
Me.Unprotect Password:=Password
Me.Columns.Hidden = False
End If

On Error GoTo 0
End Sub

Private Sub Worksheet_Deactivate()
On Error Resume Next
Me.Columns.Hidden = True
On Error GoTo 0
End Sub

Is there a way I can adjust the code so that the password doesn't actually
show when it is typed?