Excel 2013 - disabilitare SALVA e tasto CHIUDI (X)

[dipdip]

Buongiorno a tutti in questo caldo agosto!!!

IL PROBLEMA:
Un file Excel 2013 viene aggiornato da varie persone: il file contiene un foglio SCHEDA COMMESSA su cui ognuno riporta quanto di competenza ed un foglio AGGIORNAMENTI in cui ogni variazione viene registrata, così da poter ricostruire la cronistoria delle modifiche ad un piano di lavoro. La registrazione avviene con una macro che salva tutti i dati del foglio SCHEDA COMMESSA in una tabella sul foglio AGGIORNAMENTI, evidenzia le differenze dalla riga precedente e quindi chiude il file salvandolo.

Ora succede che qualche furbone salvi il file con i comandi da menu oppure lo chiuda rispondendo SI alla richiesta di salvataggio e quindi il foglio AGGIORNAMENTI non viene aggiornato, creando non pochi problemi.

LA DOMANDA:
Esiste un metodo per disattivare i pulsanti SALVA, SALVA CON NOME e CHIUDI dal tab File? Per il pulsante rosso con la X in alto a destra ho già trovato una soluzione in un thread precedente e funziona perfettamente ma per i comandi da menu brancolo nel buio.

Grazie a tutti coloro che perderanno anche solo qualche istante a leggere questa richiesta e naturalmente a chi saprà aiutarmi.

Buona giornata!!!

dipdip

[dipdip]

ERRATA CORRIGE!!!

La macro per disabilitare il tasto X in effetti lo disabilita e disabilita anche la funzione CHIUDI FILE dal menu ma però non permette poi in alcun modo di chiudere il file stesso, neppure con la macro apposita, quindi mi lascia in un limbo da cui non ne esco.

Qualche idea?

Grazie e scusate l'inesattezza.

dipdip

[Anthony47]

Eh, farsi un'interfaccia propria non e' cosi' semplice...
Volendo semplificare, usa una cella libera sul tuo file e compilala all'interno della macro di salvataggio con un valore particolare. Poi sonda questo valore nelle macro di blocco dei comandi.
Ad esempio, se la cella chiave e' Foglio1.range("Z1") e il valore particolare e' 123, allora metterai nel modulo ThisWorkbook del tuo VbaProject questo codice

Codice: Seleziona tutto

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Foglio1.Range("Z1") <> 123 Then
    MsgBox ("Qui metti un messaggio esaustivo per l'utente")
    Cancel = True
Else
    Foglio1.Range("Z1").ClearContents
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Foglio1.Range("Z1") <> 123 Then
    MsgBox ("Qui metti un messaggio esaustivo per l'utente")
    Cancel = True
Else
    Foglio1.Range("Z1").ClearContents
End If
End Sub


L'effetto e' che i comandi diventano inibiti, se la cella chiave non contiene 123.
Nota che "Foglio1" e' il CodeName del foglio; non ho usato Sheets("NomeFoglio") per essere indipendente dal nome assegnato al foglio; per approfondire guarda l'help on line del vba alla voce "Worksheet.CodeName, proprietà"

Nella macro che usi per le operazioni automatizzate inserirai, prima di Salvare o Chiudere il file, l'istruzione

Codice: Seleziona tutto

Foglio1.Range("Z1").Value = 123

Ciao

[dipdip]

Ciao Anthony,

come sempre le tue risposte sono illuminanti e perfette, grazie mille!!!

Ho solo fatto una piccola aggiunta nella macro auto_open perché una volta salvato e chiuso il file, alla riapertura dello stesso in Z1 rimane il valore 123. Con un ClearContents lo pulisco e tutto va alla perfezione.

Grazie ancora e, come si suol dire, a buon rendere (anche se non sarò mai alla tua altezza!).

Ciao!

dipdip