Disabilitare chiususra excel in base a valore celle

[Spartacus85]

Ciao a tutti.

Una domanda che spero sia di facile risoluzione.

Esiste un modo per disabilitare il tasto di chiusura di Excel tramite la X oppure tramite il percorso menu se il valore di alcune celle e' diverso da SI o NO?

Grazie mille

[Flash30005]

In thisworkbook devi inserire questo codice

Codice: Seleziona tutto

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If UCase(Range("A1").Value) <> "SI" Then
MsgBox "manca Si"
Cancel = True
Exit Sub
End If
If UCase(Range("A1").Value) <> "NO" Then
MsgBox "manca no"
Cancel = True
Exit Sub
End If

End Sub


Tieni presente che ho preso in considerazione solo la cella A1 pertanto dovrai adattare questo riferimento alle tue esigenze oppure illustra meglio la tua situazione

ciao

[Spartacus85]

Grazie mille per la risposta Flash!!

Perfetto funziona..ora provo a rifare il codice secondo le mie modifiche e vi aggiorno.

Grazie ancora

[Spartacus85]

Ovviamente tale sistema funziona solo se il file ha un estensione .xlsm.

Esiste un modo per impedire in modo permanente la conversione del file in un formato excel diverso da xlsm?

[Anthony47]

Potresti impedire il "File Salva" e gestire il salvataggio obbligatoriamente con una tua interfaccia (es pulsante + Macro); ma anche questo si aggira facilmente...