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

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 Spare 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 Spare and Speichern unter Funktionen deaktiviert.

Hinweis: 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.

Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

• Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
• Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
• Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
• Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
• Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
• Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
• Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
• Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
• Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf... 

---

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 täglich Hunderte von Mausklicks für Sie!

Lesen Sie mehr... Kostenfreier Download... Kauf...