Chiusura del Workbook senza il messaggio di salvare le modifiche.

Question

Buon pomeriggio a tutti.

Ho la seguente situazione :

 Private Sub Workbook_Activate()

  Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", FALSE)"

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 Application.DisplayAlerts = False

        ActiveWorkbook.Close

Application.DisplayAlerts = True

End Sub

Come mai, non si chiude definitivamente Excel, ma rimane a video l'intera schermata bianca?

Come faccio a risolvere questo inconveniente?

P.S. vorrei chiudere definitivamente il file di Excel, senza il messaggio di salvare o meno le modifiche e disabilitare tutti i comandi all'apertura del file.

Ciao Nicola.

Answer 1

Ciao Nicola,

Come potrai notare dall'immagine allegata, avevo remmato la parte che vedi, la stessa che mi suggerisci, poiché dopo averla abilitata, mi causa l'errore sottoriportato.

 Questo è il messaggio di errore su questa parte abilitata.

P.S. il file che deve essere chiuso senza salvare, contiene macro e codice vba, non so se è per questo che si verifica questo errore.

Ciao Nicola.

Prova a sostituire il codice nel modulo di codice Questa_cartella_di_lavoro con:

'========>>

Option Explicit

 '-------->>

Private Sub Workbook_Activate()

    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", FALSE)"

End Sub

'-------->>

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.Quit

End Sub

'<<========

Nota che ho assunto che ci sia un pulsante per chiudere il file e che il codice assegnato al pulsante sia del genere:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

    ThisWorkbook.Close SaveChanges:=False

End Sub

'<<========

===

Regards,

Norman

Answer 2

Ciao nichicanta,

Devi usare l'application quit al posto del workbook close, ad esempio:

ActiveWorkbook.Saved = True
Application.Quit

Con il primo comando inganni il sistema dicendogli che hai già salvato cosi' da evitare il popup di salvataggio, mentre il secondo comando chiude definitivamente l'applicazione.

Spero che l'informazione fornita sia completa ed utile alla risoluzione del problema. Se il problema persiste o hai ulteriori domande non esitare a contattare.

Distinti saluti,

Raffaele

Answer 3

Ciao Nicola,

Ho la seguente situazione :

 Private Sub Workbook_Activate()

  Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", FALSE)"

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 Application.DisplayAlerts = False

        ActiveWorkbook.Close

Application.DisplayAlerts = True

End Sub

Come mai, non si chiude definitivamente Excel, ma rimane a video l'intera schermata bianca?

Come faccio a risolvere questo inconveniente?

P.S. vorrei chiudere definitivamente il file di Excel, senza il messaggio di salvare o meno le modifiche e disabilitare tutti i comandi all'apertura del file.

Prova:

'========>>

Option Explicit

 '-------->>

Private Sub Workbook_Activate()

    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", FALSE)"

End Sub

'-------->>

Private Sub Workbook_DeActivate()

    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", TRUE)"

End Sub

'-------->>

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Me..Close SaveChanges:=False

    Application.Quit

End Sub

'<<========

===

Regards,

Norman

Answer 4

Ciao Raffaele, grazie per il tuo cortese riscontro.

Non va nemmeno con la tua soluzione, vedi di seguito, anzi compare il messaggio.

Cosi non va bene, come fare?

P.S. non voglio salvare le modifiche, voglio il contrario, come detto all'inizio della discussione.

Ciao Nicola.

Answer 5

Ciao Norman.

Come potrai notare dall'immagine allegata, avevo remmato la parte che vedi, la stessa che mi suggerisci, poiché dopo averla abilitata, mi causa l'errore sottoriportato.

 Questo è il messaggio di errore su questa parte abilitata.

P.S. il file che deve essere chiuso senza salvare, contiene macro e codice vba, non so se è per questo che si verifica questo errore.

Ciao Nicola.