disabilita CTRL+PAUSE

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

xam99

00domenica 4 giugno 2017 10:19

Salve a tutti.
Questa macro, se è esatta, disabilita CTL+PAUSE per fermare le macro:

Option Explicit




Private Sub Workbook_Open()

Dim avviso As String


'--------------------------------------------------------------------------

Application.EnableCancelKey = xlDisabled '<<<< disabilita debug CTRL+PAUSE


 Application.DisplayAlerts = False
 
   
avviso = MsgBox("Sign. " & Environ("UserName") & Chr(13) & _
          "l'applicazione < xxxxxxx > xxxxxxx" & Chr(13) & _
          "xxxxxxx" & Chr(13) & _
          "xxxxxxx", vbCritical + vbOKOnly, "AVVISO!")


Application.DisplayAlerts = True

Application.EnableCancelKey = xlInterrupt '<<<< riattiva debug CTRL+PAUSE

'--------------------------------------------------------------------------



End Sub

è possibile se viene premuto CTRL+PAUSE che compaia un avviso:

CTRL+PAUSE è disabiltato!

e che poi il workbook si chiuda.
allego l'esempio.
xam

dodo47

00domenica 4 giugno 2017 18:34

Ciao
non ti do una soluzione ma un consiglio: sull'open inserisci un messaggio tipo: "Attenzione, durante l'esecuzione delle macro non è possibile interromperle" o cosa del genere.

Poi lascia stare Application.EnableCancelKey ...è pericoloso perché se la macro per un motivo o l'altro ti entra in loop non ti resta che spegnere il pc.

Piuttosto se proprio non ne puoi fare a meno, puoi impedire l'uso della tastiera o del mouse durante l'esecuzione di una macro, con:

Sub XXX
Application.InterActive = False
......
......
Application.InterActive = True
End Sub

MA PREVEDI una gestione di errori che, nel caso permette di nuovo l'uso della tastiera e del mouse....

saluti

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 23:03.