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 e 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.