Sub Chiudi() Application.Quit ActiveWorkbook.Close SaveChanges:=False End Sub
federico460, 23/10/2023 22:59:ciao Leo guarda che ha già il pulsante con Application.quit il salva e chiudi non capisco il problema Sub Chiudi() Application.Quit ActiveWorkbook.Close SaveChanges:=False End Sub
Option Explicit Sub Pulsante199_Click() If Application.Workbooks.Count = 1 Then ThisWorkbook.Save Application.Quit Else ThisWorkbook.Close SaveChanges:=True End If End Sub