"Speichern unter"-Dialog bei Schreibschutz
16.10.2019 00:42:11
Bernhard
ich möchte aus einer Zelle den neuen Namen einer Datei mit Schreibschutz generieren.
Mit Anweisungen, die ich in - Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) - hineinschreibe, bekomme ich keinen Zugriff.
Auch bei Verwendung von Cancel = True oder Application.DisplayAlerts = False oder Application.EnableEvents = False gibt es keine Reaktion.
Egal was ich tue, es wird immer auf den Schreibschutz der Datei hingewiesen und nach Ok folgt der Namensvorschlag "Ohne Titel".
Wie komme ich in diesen Dialog rein um dort meinen Namensvorschlag zu platzieren ?