Disablling Crlt Break Function

[Kavy]

Anyone know how to password protect the Crlt Break Fuction when running code?
thanks

 

[pgc01]

Hi Kavy

Check the help on

Application.EnableCancelKey

Hope this helps
PGC

 

[Kavy]

thanks!

 

[Kavy]

I think i need some help, i am scared i will mess this up badly

If I put this at the start of every procedure i have

<code>
On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler
</code>

and this at the end, will it put a password on crtl-Break?
<code>

handleCancel:
If Err = 18 Then
resp = MsgBox "Please Enter the Password"
if resp = "Password" then
exit sub
end if
End If

</code>

 

[Kavy]

Hello, I found this through google, any thoughts of on if it may help me?

Thanks!
(would i need it at the start of every sub, or just every form) or..?
sorry i am compelty lost on this one

<code>
Sub YourSubroutine()

On Error Goto ErrHndlr

Application.UserControl = False

'Unprotect the Sheet
Sheets(1).Unprotect Password:="dsi"

'
'Do all of your work here
'

'Protect the Sheet
Sheets(1).Protect Password:="dsi"

Application.UserControl = True

Exit Sub

ErrHndlr:
MsgBox "Error No: " & Err.Number & vbCrLf & _
"Description: " & Err.Description
Err.Clear

'Protect the Sheet
Sheets(1).Protect Password:="dsi"
Application.UserControl = True
End Sub

</Code>

 

[Kavy]

just as a repost, does anyone have any ideas how to password protect crtl-break?