Disabilitare la chiusura del foglio dalla X

Stato
Chiusa ad ulteriori risposte.

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
21.741
1.733
Como
2011MAC 2016WIN
466
Di seguito il codice per impedire - nel caso se ne abbia necessità - la chiusura del foglio dalla X
E' chiaro che deve essere prevista un'altra modalità di chiusura! (per esempio un pulsante)

Nel modulo di "Questa cartella di lavoro"
Visual Basic:
Public bloccaX As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If bloccaX = True Then
    MsgBox "Utilizzare il pulsante Chiude", vbCritical, "Errore"
    Cancel = bloccaX
  End If
End Sub
In un modulo standard
Visual Basic:
Sub auto_open()
  ThisWorkbook.bloccaX = True
  Application.DisplayAlerts = False
  ActiveWorkbook.Saved = True
  MsgBox "ATTENZIONE!" & vbLf & _
         "NON E' POSSIBILE CHIUDERE 'EXCEL'" & vbLf & _
         "TRAMITE LA 'X' IN ALTO A DESTRA." & vbLf & _
         "PER CHIUDERE UTILIZZARE IL PULSANTE."
End Sub

Sub chiude()
    ThisWorkbook.bloccaX = False
    Application.DisplayAlerts = False
    ActiveWorkbook.Saved = True
    Cancel = Not bloccaX
    ActiveWorkbook.Close
    'Application.Quit
End Sub
Il codice è stato fornito dal nostro Marius44 @Marius44 che ringrazio.
 
Stato
Chiusa ad ulteriori risposte.

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!