-
-
Not sure about access but this works for XL. HTH. Dave
[VBA]
Private Sub UserForm_QueryClose _
(Cancel As Integer, CloseMode As Integer)
Dim Password As String
If CloseMode = vbFormControlMenu Then
Password = Application.InputBox("Enter Password")
If Password = "Password" Then
Cancel = False
Else
MsgBox "Wrong password"
Cancel = True
End If
End If
End Sub
[/VBA]
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules