VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Excel öffnen und schließen	19.07.2024 08:14:49	Simon
Excel öffnen und schließen	19.07.2024 08:38:35	Gast90991
Excel öffnen und schließen	19.07.2024 11:03:45	Gast2965
Excel öffnen und schließen	19.07.2024 12:02:37	xlKing
Excel öffnen und schließen	19.07.2024 14:15:17	Simon
Excel öffnen und schließen	21.07.2024 09:24:29	AlwinWeisangler
Excel öffnen und schließen	26.07.2024 08:09:09	Simon

Ansicht des Beitrags:

Von:
Simon

Datum:
19.07.2024 08:14:49

Views:
228

Rating:

Antwort:

Thema:
Excel öffnen und schließen

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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Excel öffnen und schließen	19.07.2024 08:14:49	Simon
Excel öffnen und schließen	19.07.2024 08:38:35	Gast90991
Excel öffnen und schließen	19.07.2024 11:03:45	Gast2965
Excel öffnen und schließen	19.07.2024 12:02:37	xlKing
Excel öffnen und schließen	19.07.2024 14:15:17	Simon
Excel öffnen und schließen	21.07.2024 09:24:29	AlwinWeisangler
Excel öffnen und schließen	26.07.2024 08:09:09	Simon