CTRL+Break Problem at VBA

[MehmetYıldız]

Hello Everyone,

I write below macro because i want to prevent ctrl+break at vba.

but when i pressed twice or more the code still stops. i need your help

Private Sub Workbook_Open()
On Error GoTo MyErrorHandler:
t = Timer
Application.EnableCancelKey = xlErrorHandler


Do While Timer - t < 5


Loop
'cntr is random name that i give
[cntr] = 0
try:
pass:
If [cntr] >= 3 Then
MsgBox ("You Have Entered The Password Incorrect for Three Times. So Now This File Will Be Closed.")
ThisWorkbook.Close savechanges:=False
End If
pw = InputBox("Please Enter the Password to Open the File")
If pw = "" Then
MsgBox ("Password is Mandatory. Please Enter the Password")
GoTo try
End If
If pw <> "" Then
[cntr] = [cntr] + 1
GoTo pass
End If
Application.EnableCancelKey = xlInterrupt


Do While Timer - t < 100
Loop


MyErrorHandler:
If Err.Number = 18 Then
MsgBox "Stop Hitting Ctrl + Break Keys. It Will Not Work"
Resume
Else

End If




End Sub

 

[Michael M]

Try using

Application.EnableCancelKey = xlDisabled

 

[MehmetYıldız]

i tried Application.EnableCancelKey = xlDisabled

but still continious