Come disabilitare o non consentire le opzioni Salva e Salva con nome in Excel?
Normalmente, quando facciamo clic sulla funzione Salva o Salva con nome, i nostri dati modificati nella cartella di lavoro verranno salvati contemporaneamente. Ma, a volte, il tuo file Excel non può essere modificato e salvato da altri utenti quando leggono il file. Questo articolo fornisce il metodo VBA per disabilitare le opzioni Salva e salva con nome in Excel.
Disabilita le opzioni Salva e Salva con nome con il codice VBA
Disabilita le opzioni Salva e Salva con nome con il codice VBA
È possibile eseguire il codice VBA sottostante per disabilitare le opzioni Salva e Salva con nome in Excel.
1. Nella cartella di lavoro è necessario disabilitare le funzioni Salva e Salva con nome, premere altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa cartella di lavoro nella barra di sinistra, copia e incolla il VBA 1 sottostante nella finestra del codice, quindi fai clic su Risparmi pulsante. Vedi screenshot:
VBA 1: disabilita le opzioni Salva e Salva con nome in Excel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. In apertura Salva con nome finestra, seleziona una cartella per salvare la cartella di lavoro, assegna un nome alla cartella di lavoro di cui hai bisogno e seleziona Cartella di lavoro abilitata per Excel dal Salva come tipo elenco a discesa e infine fare clic su Risparmi pulsante.
4. Ora copia e incolla il VBA 2 sottostante nel file Questa cartella di lavoro finestra del codice. Vedi screenshot.
VBA 2: disabilita 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 Risparmi per salvare il codice e quindi chiudere la cartella di lavoro.
La cartella di lavoro è stata salvata come cartella di lavoro con attivazione macro di Excel con l'estensione Risparmi ed Salva con nome funzioni disabilitate.
Note:: Sembra che le modifiche vengano salvate nel foglio di lavoro corrente ogni volta che modifichi e salvi la cartella di lavoro. Ma dopo aver chiuso e riaperto la cartella di lavoro, scoprirai che non è stato possibile salvare le modifiche.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
