Password protecting a report 1

[NeilPattison]

I have set up an input box for a password that opens a report using the following code:

Private Sub Report_Open(Cancel As Integer)

Dim PW As String

PW = InputBox("Please enter the password")
If PW = "THECORRECTPASSWORD" Then
Else
MsgBox "The password you entered is not correct"
Cancel = True
Exit Sub
End If

End Sub

I'd like this to be disguised using the password input mask but don't know how to do this. Any help would be greatly appreciated.

 

[PHV]

One way is to create a small popup form with a textbox having "Password" as InputMask.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[NeilPattison]

Thanks I've sorted this now