Ich kann per Einzelschritte ganz normal bis zur Zeile Do While strFile <> "" navigieren.
Anschließend springt er direkt zur MSG Box, also muss hier wohl der Fehler liegen.
Das Folgende überspringt er quasi, weshalb auch nichts passiert.
' Dokument öffnen
Set doc = Documents.Open(FileName:=strFolder & strFile, WritePasswordDocument:=strPassword)
' Schreibschutz entfernen
doc.WritePassword = ""
' Dokument speichern und schließen
doc.Save
doc.Close
' Nächstes Dokument in Ordner durchlaufen
strFile = Dir
Loop
|