Datei mit neuen Paßwort abspeichern
21.03.2006 12:07:37
Daniel
ich habe folgendes Makro um Dateien eines Registers zu öffnen:
Private Sub CommandButton1_Click()
Dim fso As New Scripting.FileSystemObject
Dim f As Scripting.File
Dim wb As Excel.Workbook
For Each f In fso.GetFolder("G:\Deckblätter_Personalakte").Files
Set wb = Excel.Workbooks.Open(f.Path _
, Password:="xxxx" _
, IgnoreReadOnlyRecommended:=True _
, UpdateLinks:=0)
ActiveWorkbook.Close Savechanges:=True
Next
End Sub
--> In dieses Makro würde ich gerne noch einbauen, dass alle Dateien mit einem neuem Paßwort "YYYY" abgespeichert werden.
Kann jemand helfen?
Viele Grüße
Daniel