Hallo Zusammen,
in meiner Firma wird recht kompliziert das Lieferantenmanagement über mehrere Exceltabellen gehandhabt.
Es befinden sich in einem Ordner für jeden Lieferanten eine einzelne Exceldatei zur Bewertung. Außerdem gibt es im selben Ordner ein Exceldatei die als Verzeichnis dient. In ihr werden alle Daten zusammen gefasst. Nun möchte ich im Verzeichnis-Excel ein Makro erstellen. Dieses Makro soll mir die ganzen einzelnen Lieferantendateien öffnen, Schreibschutz aufheben (damit die Excel sich aktualisieren kann) und das Dokument wieder schließen.

Grund dafür ist, dass die Daten sich im Verzeichnis erst aktualisieren, wenn man die Datei öffnet. So möchte ich immer wieder mal alles aktualisieren.

Öffnen uns schließen klappt, allerdings muss ich das Passwort für den Schreibschutz selbst eingeben.
Kann mir hier jemand helfen? Finde den Fehler nicht..


Sub AufhebenSchreibschutz()
    Dim MeinOrdner As String
    Dim MeineDatei As String
    Dim Passwort As String

    MeinOrdner = "C:\Dein\Ordner\Pfad\" ' Passe den Pfad zu deinem Ordner an

    MeineDatei = Dir(MeinOrdner & "*.xlsx")

    Do While MeineDatei <> ""
        Workbooks.Open MeinOrdner & MeineDatei
        Passwort = "qs"
        ActiveWorkbook.Unprotect Password:=Passwort
        ActiveWorkbook.Close SaveChanges:=True
        MeineDatei = Dir
    Loop

End Sub