Datei Speichern mit Schreibschutz
Klaus
Ich hab mich schon fast dumm und dämlich gesucht, nun frag ich mal hier rein bevors bei mir zu spät ist.
Ich möchte eine Excel-Datei speichern unter einem gewissen Namen. Außerdem soll diese Datei schreibgeschützt sein (das Schreibschützen, das man im Explorer - re. Maustaste - Eigenschaften - "Schreibgeschützt" findet).
Und zwar habe ich bereits diesen Code zum Speichern unter meinem definierten Namen, hab aber keine Ahnung wie ich da noch was einbinden soll.
Datum = Format(Now, "YYYYMMDD-hhmm")
pfad = "O:\Allgem\"
datei = "Arb" & "_" & Year(Date) & "-" & "KW" & DINKW(Date) & "_" & Datum & ".xls"
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad & datei
.Show
End With
If dialog False Then dialog.Execute
Da gibts ja dieses Readonlyrecommendet... möglicherweise geht das auch, lieber wär mir aber das mit dem Hakerl.
Vielen Dank!
Klaus