Come disabilitare o impedire l'uso delle opzioni «Salva» e «Salva con nome» in Excel?
Di norma, quando si fa clic su **Salva** o **Salva con nome**, le modifiche apportate alla cartella di lavoro vengono salvate immediatamente. Tuttavia, in alcuni casi è necessario impedire che altri utenti modifichino o salvino il file Excel durante la sola lettura. Questo articolo presenta un metodo VBA per disabilitare le opzioni **Salva** e **Salva con nome** in Excel.
Disabilitare le opzioni Salva e Salva con nome con codice VBA
Disabilitare le opzioni Salva e Salva con nome con codice VBA
È possibile eseguire il seguente codice VBA per disabilitare le opzioni **Salva** e **Salva con nome** in Excel.
1. Nella cartella di lavoro in cui si desidera disabilitare le funzioni Salva e Salva con nome, premere contemporaneamente i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Nella finestra di Microsoft Visual Basic for Applications, fai doppio clic su ThisWorkbook nella barra a sinistra, copia e incolla il seguente codice VBA 1 nella finestra del codice, quindi fai clic sul pulsante Salva. Vedere lo screenshot:
Codice VBA 1: disabilitare le opzioni Salva e Salva con nome in Excel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. Nella finestra Salva con nome visualizzata, per salvare la cartella di lavoro, assegnale il nome desiderato e seleziona Cartella di lavoro abilitata per le macro di Excel dall’elenco a discesa Specifica formato di salvataggio, quindi fai clic sul pulsante Salva.
4. Ora copia e incolla il seguente codice VBA 2 nella finestra del codice di ThisWorkbook. Vedere lo screenshot.
Codice VBA 2: disabilitare le opzioni Salva e Salva con nome in Excel
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"
If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.count)).Name = xName & ""
Sheets(xName & "").Move after:=Worksheets(Worksheets.count)
Sheets(xName & "").Visible = False
Exit Sub
End If
Cancel = True
End Sub
5. Fare clic sul pulsante Salva per salvare il codice, quindi chiudere la cartella di lavoro.
La cartella di lavoro è stata salvata come Cartella di lavoro abilitata per le macro di Excel, con le funzioni Salva e Salva con nome disabilitate.
Nota: Potrebbe sembrare che le modifiche siano state salvate nel foglio di lavoro corrente ogni volta che si modifica e salva la cartella di lavoro. Tuttavia, dopo aver chiuso e riaperto il file, si noterà che le modifiche non sono state effettivamente salvate.
Sblocca la magia di Excel con KUTOOLS AI
- Esecuzione intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi