Jak zakázat nebo nepovolit možnosti Uložit a Uložit jako v aplikaci Excel?

Normálně, když klikneme na Uložit nebo Uložit jako, naše upravená data v sešitu se uloží najednou. Někdy však není možné, aby váš soubor aplikace Excel upravoval a ukládal ostatní uživatelé, když si soubor přečtou. Tento článek poskytuje metodu VBA k deaktivaci možností Uložit a Uložit jako v aplikaci Excel.

Zakažte možnosti Uložit a Uložit jako pomocí kódu VBA

Zakažte možnosti Uložit a Uložit jako pomocí kódu VBA

Spuštěním níže uvedeného kódu VBA můžete zakázat možnosti Uložit a Uložit jako v aplikaci Excel.

1. V sešitu musíte deaktivovat funkce Uložit a Uložit jako, stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte Tato pracovní kniha na levé liště zkopírujte a vložte níže uvedený VBA 1 do okna Kód a poté klikněte na Uložit knoflík. Viz screenshot:

VBA 1: deaktivujte možnosti Uložit a Uložit jako v aplikaci Excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Saved = True
End Sub

3. V otvoru Uložit jako v okně vyberte složku pro uložení sešitu, pojmenujte sešit podle potřeby a vyberte Sešit se zvýšeným makra Excel z Uložit jako typ rozevírací seznam a nakonec klikněte na Uložit .

4. Nyní zkopírujte a vložte níže uvedený VBA 2 do Tato pracovní kniha okno s kódem. Viz snímek obrazovky.

VBA 2: deaktivujte možnosti Uložit a Uložit jako v aplikaci 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. Klepněte na tlačítko Uložit tlačítko pro uložení kódu a sešit zavřete.

Sešit byl uložen jako sešit Excel podporující makra s Uložit a Uložit jako funkce deaktivovány.

Pozor: Zdá se, že změny se ukládají do aktuálního listu pokaždé, když sešit upravíte a uložíte. Ale po zavření a opětovném otevření sešitu zjistíte, že změny se nepodařilo uložit.

Odemkněte Excel Magic pomocí Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!