Wie kann man die Optionen „Speichern“ und „Speichern unter“ in Excel deaktivieren oder vollständig sperren?
Normalerweise werden Ihre geänderten Daten in der Arbeitsmappe sofort gespeichert, sobald Sie die Funktion „Speichern“ oder „Speichern unter“ verwenden. In bestimmten Fällen darf Ihre Excel-Datei jedoch von anderen Benutzern beim Lesen weder verändert noch gespeichert werden. Dieser Artikel bietet eine VBA-Methode, um die Optionen „Speichern“ und „Speichern unter“ in Excel zu deaktivieren.
Deaktivieren der Optionen „Speichern“ und „Speichern unter“ mit VBA-Code
Deaktivieren der Optionen „Speichern“ und „Speichern unter“ mit VBA-Code
Führen Sie den folgenden VBA-Code aus, um die Optionen „Speichern“ und „Speichern unter“ in Excel zu deaktivieren.
1. Drücken Sie in der Arbeitsmappe, in der Sie die Funktionen „Speichern“ und „Speichern unter“ deaktivieren möchten, gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications in der linken Leiste auf DieseArbeitsmappe, kopieren Sie den folgenden VBA-Code in das Codefenster und klicken Sie anschließend auf die Schaltfläche Speichern. Siehe Screenshot:
VBA-1: Deaktivierung der Optionen „Speichern“ und „Speichern unter“ in Excel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. Wählen Sie im geöffneten Fenster unter Speichern im Format aus der Dropdown-Liste Excel-Arbeitsmappe mit Makros aktiviert aus, legen Sie den gewünschten Speichern unter-Ordner fest, vergeben Sie einen Namen Ihrer Wahl für die Arbeitsmappe und klicken Sie abschließend auf die Schaltfläche Speichern.
4. Kopieren Sie nun den folgenden VBA-Code 2 in das Codefenster von DieseArbeitsmappe. Siehe Screenshot.
VBA-2: Deaktivierung der Optionen „Speichern“ und „Speichern unter“ 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. Klicken Sie auf die Schaltfläche Speichern, um den Code zu speichern, und schließen Sie anschließend die Arbeitsmappe.
Die Arbeitsmappe wurde als makrofähige Excel-Arbeitsmappe gespeichert, wobei die Funktionen Speichern und Speichern unter deaktiviert sind.
Hinweis: Es scheint, als würden Änderungen bei jeder Modifikation und jedem Speichervorgang im aktuellen Arbeitsblatt gespeichert. Doch nach dem Schließen und erneuten Öffnen der Arbeitsmappe stellen Sie fest, dass die Änderungen nicht erhalten geblieben sind.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins