Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
![Rot](images/pfeil_rot.gif) Excel öffnen und schließen |
19.07.2024 08:14:49 |
Simon |
|
|
|
19.07.2024 08:38:35 |
Gast90991 |
|
|
|
19.07.2024 11:03:45 |
Gast2965 |
|
|
|
19.07.2024 12:02:37 |
xlKing |
|
|
|
19.07.2024 14:15:17 |
Simon |
|
|
|
21.07.2024 09:24:29 |
AlwinWeisangler |
|
|
|
26.07.2024 08:09:09 |
Simon |
|
|
Von:
Simon |
Datum:
19.07.2024 08:14:49 |
Views:
227 |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
![Rot](images/pfeil_rot.gif) Excel öffnen und schließen |
19.07.2024 08:14:49 |
Simon |
|
|
|
19.07.2024 08:38:35 |
Gast90991 |
|
|
|
19.07.2024 11:03:45 |
Gast2965 |
|
|
|
19.07.2024 12:02:37 |
xlKing |
|
|
|
19.07.2024 14:15:17 |
Simon |
|
|
|
21.07.2024 09:24:29 |
AlwinWeisangler |
|
|
|
26.07.2024 08:09:09 |
Simon |
|
|