Kennwortgeschützte Datei autom. mit Schreibschutz öffnen

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Kennwortgeschützte Datei autom. mit Schreibschutz öffnen

Re: Kennwortgeschützte Datei autom. mit Schreibschutz öffnen

Beitrag von Runo2 » 15. Jul 2019, 13:31

Hallo Nepumuk,

einwandfrei. Der kleine Zusatz "ReadOnly:=True" hat mir gefehlt.

Besten Dank
Andreas

Re: Kennwortgeschützte Datei autom. mit Schreibschutz öffnen

Beitrag von Nepumuk » 15. Jul 2019, 13:14

Hallo Andreas,

teste mal so:

Code: Alles auswählen
Public Sub Beispiel()
    Dim objWorkbook As Workbook
    Set objWorkbook = Workbooks.Open(Filename:="C:\DeineMappe.xlsx", ReadOnly:=True)
   
    'Mach was mit der Mappe
   
    Call objWorkbook.Close(SaveChanges:=False)
    Set objWorkbook = Nothing
End Sub

Kennwortgeschützte Datei autom. mit Schreibschutz öffnen

Beitrag von Runo2 » 15. Jul 2019, 13:03

Hallo zusammen,

ich importiere beim Öffnen meiner Datei mit Makro Daten aus einer anderen Datei. Ich importiere ein ganzes Sheet, da das m.E. am schnellsten geht. Dazu öffne ich die Datei "Quelle" wobei eine Meldung aufpoppt "Kennwort eingeben" oder "Schreibschutz" oder abbrechen.

Ich möchte die Datei "Quelle" immer mit Schreibschutz öffnen. Hat jemand eine Idee ob und wie man den Klick auf Schreibschutz mit VBA machen kann?

Danke im Voraus
Andreas

Nach oben