Chiusura foglio 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