Kennwortgeschützte Datei autom. mit Schreibschutz öffnen

Moderator: ModerationP

Kennwortgeschützte Datei autom. mit Schreibschutz öffnen

Beitragvon 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
Runo2
 

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

Beitragvon 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
De fontibus non est disputandum

Gruß
Nepumuk 8-)
Benutzeravatar
Nepumuk
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 14584
Registriert: 10. Aug 2004, 08:40
Wohnort: Regensburg

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

Beitragvon Runo2 » 15. Jul 2019, 13:31

Hallo Nepumuk,

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

Besten Dank
Andreas
Runo2
 


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: Hajo_Zi, TommyDerWalker und 15 Gäste