Wie kann ich die Optionen Speichern und Speichern unter in Excel deaktivieren oder nicht zulassen?
Wenn wir auf Speichern oder Speichern unter klicken, werden unsere geänderten Daten in der Arbeitsmappe normalerweise sofort gespeichert. Manchmal darf Ihre Excel-Datei jedoch nicht von anderen Benutzern geändert und gespeichert werden, wenn diese die Datei lesen. Dieser Artikel enthält eine VBA-Methode zum Deaktivieren der Optionen Speichern und Speichern unter in Excel.
Deaktivieren Sie die Optionen Speichern und Speichern unter mit VBA-Code
Deaktivieren Sie die Optionen Speichern und Speichern unter mit VBA-Code
Sie können den folgenden VBA-Code ausführen, um die Optionen Speichern und Speichern unter in Excel zu deaktivieren.
1. In der Arbeitsmappe müssen Sie die Funktionen Speichern & Speichern unter deaktivieren. Drücken Sie bitte Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DiesesWorkbook Kopieren Sie in der linken Leiste den folgenden VBA 1, fügen Sie ihn in das Codefenster ein und klicken Sie dann auf Speichern Taste. Siehe Screenshot:
VBA 1: Deaktivieren Sie die Optionen Speichern und Speichern unter in Excel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. In der Öffnung Speichern unter Wählen Sie im Fenster einen Ordner zum Speichern der Arbeitsmappe aus, benennen Sie die Arbeitsmappe nach Bedarf und wählen Sie Excel Makroaktivierte Arbeitsmappe von dem Speichern als Typ Dropdown-Liste, und klicken Sie schließlich auf die Speichern .
4. Kopieren Sie nun den folgenden VBA 2 und fügen Sie ihn in den ein DiesesWorkbook Codefenster. Siehe Screenshot.
VBA 2: Deaktivieren Sie die 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 Speichern Klicken Sie auf die Schaltfläche, um den Code zu speichern, und schließen Sie dann die Arbeitsmappe.
Die Arbeitsmappe wurde als Excel Macro-Enabled Workbook mit dem gespeichert Speichern und Speichern unter Funktionen deaktiviert.
Note: Es scheint, dass Änderungen jedes Mal, wenn Sie die Arbeitsmappe ändern und speichern, im aktuellen Arbeitsblatt gespeichert werden. Nach dem Schließen und erneuten Öffnen der Arbeitsmappe werden Sie jedoch feststellen, dass die Änderungen nicht gespeichert werden konnten.
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!