Error handling

[bhandari]

i have made a userform to log in ..if user types 3 times incorrect details ..
it must quit workbook

there is a issue with my file with the "start task manager" if they press quit Microsoft Excel.
before Quitting
it is asking save,dont save,cancel

if user press cancel button they can access my file WITHOUT LOG IN..any tips for this

 

[Jon von der Heyden]

Re: need help with error handling

Firstly are you sure you want to Quit Excel? Is it possible that they will have other workbooks open? If so you could be interferring with their other work.

Either way you should close the Workbook. Something like:

Call Me.Close(SaveChanges:=False)

The above in ThisWorkbook module.

Hope this helps.

 

[bhandari]

Re: need help with error handling

Close my workbook only..i mean while he opened my project userform will pop up
it should be close if he attempted 3 times incorrect details

If Trial = 3 Then
msg = MsgBox("Wrong password, the form will close…", vbCritical + vbOKOnly, TitleStr)
ActiveWorkbook.Close True
End If
End If
Exit Sub
'Error block
errHandler:
MsgBox "An Error has Occurred  " & vbCrLf & "The error number is:  " _
& Err.Number & vbCrLf & Err.Description & vbCrLf & _
"Please notify the administrator"
Call Me.Close(SaveChanges:=False)

is it will work? or any modification in it?
if there are 3 userforms in it is hould mention name of userform?(NAME:USRFRM1)

Private Sub UserForm_QueryClose _
(Cancel As Integer, CloseMode As Integer)
'   Prevents use of the Close button
If CloseMode = vbFormControlMenu Then
MsgBox "Clicking the Close button does not work."
Cancel = True
End If
End Sub

 

[Jon von der Heyden]

Re: need help with error handling

In your case I believe you should be using:

ActiveWorkbook.Close(SaveChanges:=False)