Ciao Anthony,
purtroppo non funziona, nonostante abbia associato la macro al pulsante,
è come se il pulsante fosse senza associare una macro, non avviene niente.
Grazie per la risposta anche se non ha ancora risolto il problema.
Francesco
Moderatori: Anthony47, Flash30005
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close SaveChanges:=False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Cancel = Not blnexit
'Worksheets("Foglio1").Select
'If blnexit Then Application.OnKey "{ESC}"
ThisWorkbook.Close SaveChanges:=False
End Sub
Public CS As Integer
Sub SalvaChiudi()
ActiveWorkbook.Save
ActiveWindow.Close
Application.Quit
End Sub
Sub Chiudi()
CS = 1
Application.Quit '<<<<<<<<<<<<<<<<<<<< La chiusura di excel va inserita sopra alla chiusura del foglio altyrimenti rimane l'applicazione attiva
ThisWorkbook.Close SaveChanges:=False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If CS = 0 Then
Cancel = Not blnexit
'Worksheets("Foglio1").Select '<<<<<<<<<<<< riga Inutile
If blnexit Then Application.OnKey "{ESC}"
End If
'ThisWorkbook.Close SaveChanges:=False '<<<<<<< non necessaria
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If CS = 0 Then Cancel = Not blnexit
If blnexit Then Application.OnKey "{ESC}"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If CS = 0 Then Cancel = Not blnexit
Worksheets("Foglio1").Select '<<<<<Questa riga serve se si è in altro foglio, se si pressa X riporta al 1foglio per uscire
If blnexit Then Application.OnKey "{ESC}"
End Sub
Sub SalvaChiudi()
ActiveWorkbook.Save
ActiveWindow.Close
Application.Quit
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{ESC}"
If blnexit Then Application.OnKey "{ESC}"
Cancel = Not blnexit
Worksheets("Foglio2").Select
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
Application.EnableEvents = False
ActiveWorkbook.Save
Application.Quit
bln = False
If blnexit Then Application.OnKey "{ESC}"
If Workbooks.Count = 1 Then
Else
ThisWorkbook.Close
Application.EnableEvents = True
End If
End Sub
Public Chiudi As Integer
Sub SalvaChiudi()
Chiudi = 1
'ActiveWorkbook.Save
ActiveWindow.Close
'Application.Quit
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Chiudi = 0 Then
Application.OnKey "{ESC}"
If blnexit Then Application.OnKey "{ESC}"
Cancel = Not blnexit
Worksheets("Foglio2").Select
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Chiudi = 0 Then
Application.OnKey "{ESC}"
If blnexit Then Application.OnKey "{ESC}"
Cancel = Not blnexit
Worksheets("Foglio2").Select
End If
Chiudi = 0 ' <<<<< aggiungere qui
End Sub
Torna a Applicazioni Office Windows
"Spegnere" il riconoscimento data. Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 2 |
Cella con formato personalizzato: inserire "a capo" Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 15 |
formula che conta erroneamente celle "vuote" Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: formula per aggiungere una "S" alle lettere minuscole Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 78 ospiti