Um zu verhindern, dass ein Dateiname in Excel nachträglich geändert wird, kannst du eine Kombination aus VBA und der Workbook_Open-Ereignisprozedur verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
Öffne die Excel-Datei, in der du den Dateinamen schützen möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
Einfügen > Modul.Füge folgenden Code ein:
Private Sub Workbook_Open()
Dim originalName As String
originalName = ThisWorkbook.FullName
' Überprüfen, ob der Dateiname geändert wurde
If ThisWorkbook.Name <> "DeinGewünschterName.xlsx" Then
' Datei unter dem gewünschten Namen speichern
ThisWorkbook.SaveAs Filename:="DeinGewünschterName.xlsx"
' Ungültige Datei löschen
Kill originalName
End If
End SubErsetze DeinGewünschterName.xlsx mit dem gewünschten Namen.
Speichere die Datei als Makro-aktivierte Datei (.xlsm).
Schließe den VBA-Editor und teste die Funktion.
Fehler: Die Datei wird beim Öffnen nicht unter dem gewünschten Namen gespeichert.
Fehler: Die Datei kann nicht gelöscht werden.
Wenn du den Dateinamen nicht direkt schützen kannst, gibt es alternative Ansätze:
Ein einfaches Beispiel zur Anwendung des obigen Codes könnte sein:
Monatsbericht.xlsx haben soll.SaveAs-Funktion nicht nur für den Schutz des Dateinamens, sondern auch um Versionen deiner Arbeit zu speichern.1. Kann ich verhindern, dass andere Benutzer den Dateinamen ändern? Ja, du kannst den oben genannten VBA-Code verwenden, um den Dateinamen beim Öffnen der Datei zu überprüfen.
2. Funktioniert dies in allen Excel-Versionen? Ja, die beschriebenen Methoden sind in den meisten modernen Excel-Versionen verfügbar.
3. Was passiert, wenn der Benutzer den Dateinamen manuell ändert? Das VBA-Skript wird beim Öffnen der Datei ausgeführt und stellt sicher, dass der Dateiname zurückgesetzt wird.