Chiusura foglio Excel

Hai un problema con Excel?

Apoben64 di Disabilitare la chiusura del foglio con la x in a

Salve a tutti,
per certe applicazioni a volte si rende necessario far uscire l'utente mediante la digitazione di un pulsante , evitando altre alternative, come ad esempio utilizzare la x(rossa ) in alto a destra del foglio di excel.
questo semplice codice permette di disabilitare proprio questo tipo di uscita.

un saluto, luca

esempio da scaricare :
http://mio.discoremoto.alice.it/apoben64

Public blnexit As Boolean  '****Da inserire nel ThisWoorbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not blnexit
End Sub

'**************************
Private Sub CommandButton1_Click() ' ******CHIUDI APPLICAZIONE  COL PULSANTE
ThisWorkbook.blnexit = True
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit
End Sub

Se invece .... di Maxthor

Ciao ragazzi,
vi passo un contributo.
con la macro precedente si salva in automatico ma a volte il salvataggio in chiusura da fastidio, come anche il pop up "vuoi salvare?" allora dovrebbe bastare:
activeworkbook.close savechanges:=false
ciao a tutti

ActiveWorkbook.Close SaveChanges:=False

Vuoi approfondire questo argomento?