Seite 1 von 1

Kennwortgeschützte Datei autom. mit Schreibschutz öffnen

BeitragVerfasst: 15. Jul 2019, 13:03
von Runo2
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

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

BeitragVerfasst: 15. Jul 2019, 13:14
von Nepumuk
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

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

BeitragVerfasst: 15. Jul 2019, 13:31
von Runo2
Hallo Nepumuk,

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

Besten Dank
Andreas