| | Post: 454 | Registrato il: 28/05/2011
| Città: MILANO | Età: 43 | Utente Senior | excel 2000/2007 | | OFFLINE | |
|
01/07/2022 13:04 | |
Ciao a tutti.
Nel vba dei fogli2/3 c'è questa macro chr disabilta CTRL+PAUSE.
Dopo l'avvio del messaggio se si clicca CTRL+PAUSE esce avviso CTRL+PAUSE disabilitato.
Private Sub Worksheet_Activate()
Dim avviso As String
'-------------------------------------------------------------------------------------
'disabilita debug CTRL+PAUSE
'Application.ScreenUpdating = false
Application.DisplayAlerts = False
Application.EnableCancelKey = xlDisabled '<<<< disabilita debug CTRL+PAUSE
On Error GoTo ErrHandler
Application.EnableCancelKey = xlErrorHandler
'-------------------------------------------------------------------------------------
'MsgBox "ciao"
avviso = MsgBox("Sign. " & Environ("UserName") & Chr(13) & _
"questo foglio < zzzzzz > è solo" & Chr(13) & _
"per problemi nel foglio < zzzzzzzzz >.", _
vbInformation + vbOKOnly + vbDefaultButton2, "AVVISO")
'-------------------------------------------------------------------------------------
'disabilita debug CTRL+PAUSE
'expirationcode
ErrHandler:
If Err.Number = 18 Then '// User Interrupt Error
'MsgBox "Non puoi usare CTRL+PAUSE è disabilitato", vbExclamation
Application.EnableCancelKey = xlDisabled '<<<< disabilita debug CTRL+PAUSE
MsgBox "Sign. " & Environ("UserName") & Chr(13) & _
"CTRL+PAUSE è disabilitato!", vbCritical + vbOKOnly, "AVVISO!"
End If
'-------------------------------------------------------------------------------------
End Sub
ora ho provato a inserire la stessa macro per l'userform che è nel foglio1 ma non funziona.
Un aiuto?
Allego esempio.
Grazie
john ---------------
excel 2007 |
|
| | Post: 457 | Registrato il: 28/05/2011
| Città: MILANO | Età: 43 | Utente Senior | excel 2000/2007 | | OFFLINE | |
|
02/07/2022 10:12 | |
Ciao,
forse mi sono spiegato male?
john ---------------
excel 2007 |
| | Post: 1.216 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | OFFLINE |
|
02/07/2022 12:26 | |
Appena collaudato il Ctrl+Pausa Interr nel Sheet1 senza problemi, funziona come previsto. Forse ti aspetti che compaia il messaggio anche dopo aver lanciato il bottone "Click Me" e non solo sul messaggio che compare quando ti sposti da un foglio all'altro ? [Modificato da rollis13 02/07/2022 12:27]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 458 | Registrato il: 28/05/2011
| Città: MILANO | Età: 43 | Utente Senior | excel 2000/2007 | | OFFLINE | |
|
02/07/2022 12:53 | |
Ciao rollis,
grazie della risposta.
Si deve comparire il messaggio nell'userform come per gli altri fogli ---------------
excel 2007 |
| | Post: 459 | Registrato il: 28/05/2011
| Città: MILANO | Età: 43 | Utente Senior | excel 2000/2007 | | OFFLINE | |
|
03/07/2022 13:36 | |
Ciao,
forse in una userform non può comparire il messaggio come per i msgbox? ---------------
excel 2007 |
| | Post: 1.218 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | OFFLINE |
|
03/07/2022 16:03 | |
Sì, è così ma non riesco a trovare in rete documentazione che ne dia la giusta spiegazione. [Modificato da rollis13 03/07/2022 16:04]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
|
|