Hallo
möchte eine Archivkopie eines aktuellen Excelfiles mit Angabe der Version an einem anderen Ort auf dem Server abspeichern.
Das aktuelle File hat keinen Schreibschutz. Die Archivkopie sollte aber einen Schreibschutz bekommen.
der Befehl „savecopyas“ beinhaltet leider keinen Passwortbefehl.
gibt es eine Möglichkeit wie ich den Schreibschutz in die Archivkopie reinbringe ohne diese erneut öffnen zu müssen? (Störende Verknüpfungsbestätigungen erscheine auf Bildschirm)
Ein Ansatz wäre das Ziellaufwerk nach allen .xls Files zu durchsuchen und schreibzuschützen. Hier müsste ich aber auch einen Hinweis erhalten wie dies am besten geschehen soll.
Vielen Dank für Dein Tipp
Urs
möchte eine Archivkopie eines aktuellen Excelfiles mit Angabe
der Version an einem anderen Ort auf dem Server abspeichern.
Das aktuelle File hat keinen Schreibschutz. Die Archivkopie
sollte aber einen Schreibschutz bekommen.
der Befehl „savecopyas“ beinhaltet leider keinen
Passwortbefehl.
gibt es eine Möglichkeit wie ich den Schreibschutz in die
Archivkopie reinbringe ohne diese erneut öffnen zu müssen?
(Störende Verknüpfungsbestätigungen erscheine auf Bildschirm)
Hi Urs,
wie wärs wenn du die Datei mit SaveAs erst unterm ArchivPfad und ArchivNamen mit Passwort abspeicherst und danach nochmal mit SAveAs die Datei mit ihrem richtigem Namen aber ohne Passwort?
Ansonsten, zu deinem anderen Ansatz, mit Updatelinks=0 dürften keine Verknüpfungsabfragen kommen, siehe nachfolgenden Code.
Gruß
Reinhard
Sub Makro3()
With Application.FileSearch
.NewSearch
.LookIn = "C:\temp"
.SearchSubFolders = False
.MatchTextExactly = True
.FileType = msoFileTypeExcelWorkbooks
If .Execute() \> 0 Then
'MsgBox .FoundFiles.Count
For i = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(i), Updatelinks:=0
.FoundFiles(i).SaveAs 'hier passwort usw
.FoundFiles(i).Close
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
möchte eine Archivkopie eines aktuellen Excelfiles mit Angabe
der Version an einem anderen Ort auf dem Server abspeichern.
Das aktuelle File hat keinen Schreibschutz. Die Archivkopie
sollte aber einen Schreibschutz bekommen.
der Befehl „savecopyas“ beinhaltet leider keinen
Passwortbefehl.
gibt es eine Möglichkeit wie ich den Schreibschutz in die
Archivkopie reinbringe ohne diese erneut öffnen zu müssen?
(Störende Verknüpfungsbestätigungen erscheine auf Bildschirm)
Hi Urs,
wie wärs wenn du die Datei mit SaveAs erst unterm ArchivPfad
und ArchivNamen mit Passwort abspeicherst und danach nochmal
mit SAveAs die Datei mit ihrem richtigem Namen aber ohne
Passwort?
Ansonsten, zu deinem anderen Ansatz, mit Updatelinks=0 dürften
keine Verknüpfungsabfragen kommen, siehe nachfolgenden Code.
Gruß
Reinhard
Sub Makro3()
With Application.FileSearch
.NewSearch
.LookIn = „C:\temp“
.SearchSubFolders = False
.MatchTextExactly = True
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
'MsgBox .FoundFiles.Count
For i = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(i),
Updatelinks:=0
.FoundFiles(i).SaveAs 'hier passwort usw
.FoundFiles(i).Close
Next i
Else
MsgBox „There were no files found.“
End If
End With
End Sub
Hallo Reinhard
Schönen Dank für die Antwort. Ich denke dies wird mir als Lösung sicher dienen.
Gruss Urs