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

Ansicht des Beitrags:
Von:
AlwinWeisangler		 Datum:
21.07.2024 09:24:29		 Views:
86		 Rating:
     
Antwort:
  Ja
Thema:
Excel öffnen und schließen

Hallo Simon,

es geht dir um das Öffnen von passwortgeschützten (verschlüsselten) Exceldateien eines Verzeichnisses.

Dann wäre es so:

Option Explicit

Sub AufhebenSchreibschutz()
    Dim MeinOrdner$, MeineDatei$: MeinOrdner = "C:\Dein\Ordner\Pfad\" ' Passe den Pfad zu deinem Ordner an
    MeineDatei = Dir(MeinOrdner & "*.xlsx")
    Do While MeineDatei <> ""
        Workbooks.Open MeinOrdner & MeineDatei, Password:="qs"
        MeineDatei = Dir
    Loop
End Sub

Gruß Uwe

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
19.07.2024 08:14:49 Simon
NotSolved
19.07.2024 08:38:35 Gast90991
NotSolved
19.07.2024 11:03:45 Gast2965
NotSolved
19.07.2024 12:02:37 xlKing
NotSolved
19.07.2024 14:15:17 Simon
NotSolved
Blau Excel öffnen und schließen
 21.07.2024 09:24:29 AlwinWeisangler
NotSolved
26.07.2024 08:09:09 Simon
NotSolved