Forgot to mention that you don't need this:
Me.Hide
in the code in case your form isn't Modal.
I don't know if you can change that on the fly - would need to do some
research on that one. This would matter to you if you want to trap the
Esc instead of just disabling it.
On Jul 15, 4:47*pm, AB <austris.bahanovs...@gmail.com> wrote:
> This code worked for me on a userform1 with CommandButton1 :
>
> 'Userform module:
>
> Private Sub CommandButton1_Click()
>
> * * Me.Hide
>
> * * Dim rng As Range
>
> * * On Error GoTo CanclErr:
> * * Application.EnableCancelKey = xlErrorHandler
>
> * * For Each rng In ActiveSheet.Cells
> * * * * If rng.Row = 2000 Then GoTo ExtFinished: 'Just to kill it it
> when it takes too long - for ilustration puroposses only
> * * * * rng.Value = 1' Obviously your code would do whatever itneeds
> to do
> * * Next
>
> ExtFinished:
> * * Exit Sub
>
> CanclErr:
> * * MsgBox "Nope, you should not be cancelling this!"
> * * Stop 'This is here just so that you could see when it traps the
> error. You don't need it in your final code.
> * * Resume
>
> End Sub
>
> ''''''''''''''
> 'Standard module:
>
> Sub tryCancel()
> * *UserForm1.Show
> End Sub
>
> Give it a try.
>
> On Jul 15, 3:58*pm, leerem <lee...@discussions.microsoft.com> wrote:
>
>
>
> > Hi,
> > thanks for the info I've tried placing some code in the Userform Terminate
> > section but it wont launch upon the keystroke combination.
>
> > Would i be asking too much if you could supply some code and at what section
> > would this be applied
>
> > many thanks
>
> > "AB" wrote:
> > > check out
> > > application.EnableCancelKey
>
> > > You can set it to enable/disable/Error
> > > and then code accordingly. The 'error' let's you trap it by raising an
> > > error - i think the err.number=18.
>
> > > On Jul 15, 2:26 pm, leerem <lee...@discussions.microsoft.com> wrote:
> > > > gentelmen,
> > > > * * * * * * I'm working on a spreadsheet that is primarily run by code, by
> > > > use of userforms.
> > > > What i need is to stop some inquisitive personell from attempting to break
> > > > out of the code by the use of Control + PauseBreak keys.
>
> > > > How can I therefore Disable this combination of key strokes. Shouldthis
> > > > occur all the information held within memory on the specific userform will be
> > > > lost.
>
> > > > your help would be appreciated
> > > > lee- Hide quoted text -
>
> > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -
Similar Threads
