Daher auf diesem Weg:
Das Problem: Ich lasse eine Datei als eine Art Eingabemaske verwenden. Die Daten werden in eine andere Datei übertragen, weil die User aus Datenschutzgründen nicht sehen dürfen, was andere eingegeben haben. Es geht um Dienstplandaten (Termine etc.). Die Eingabemaske ist schreibgeschützt. Sie soll nicht gespeichert werden. Das wird aber nicht von allen verstanden. Einige speichern. Es kommt dann der Systemhinweis, dass es sich um eine schreibgeschützte Datei handelt, die unter einem anderen Namen gespeichert werden soll. Das möchte ich verhindern. Die Datei soll sich einfach schliessen.
Die letzte Antwort von Torsten (Oberschlumpf):
"Mal sehen, vielleicht kommst du ja noch auf die Idee, mal per Upload eine Bsp-Datei, die, außer den Originaldaten, deiner Originaldatei entspricht...und....
Vielleicht könntest du mal etwas genauer beschreiben, was genau - du - mit "schreibgeschützt" meinst.
Als ich das las, gehe ich seit dem davon aus, dass du die Datei im Windows-Explorer...
...mit rechter Maustaste anklickst
...im Kontextmenü die Eigenschaften anzeigst
...und nun das Attribut "schreibgeschützt" aktivierst
Vielleicht denkt auch Onur genau so, wie du den "Schreibschutz" aktiviert hast.
Aber vielleicht (be)nutzt - du - ja einen ganz anderen Schreibschutz....wer weiß wer weiß"
Hierzu:
Den Schreibschutz setze ich wie von ihm beschrieben.
Ich habe eine Lösung, die beim Vorschlagenden funktioniert in eine Testdatei mit der Endung xlsm wie folgt eingefügt:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
ThisWorkbook.Saved = True
End Sub
Die Testdatei enthält sonst nichts ! Vom Vorschlagenden war noch eine Userüberprüfung eingebaut, die aber an der Sache an sich nichts ändert.
Bei mir erscheint immer noch der o.g. Hinweis. Danach öffnet sich der Dialog für "Speichern unter"
Still hopefully
Bernhard