Passworte automatisch eingeben

Bild

Betrifft: Passworte automatisch eingeben
von: sir henry
Geschrieben am: 29.04.2015 13:20:05

Ich summiere mir in einem Arbeitsblatt die Stunden der Mitarbeiter aus Stundenzetteln zusammen. Dies erfolgt automatisch über ein Verknüpfung zu den jeweiligen Stundenzetteldateien der Mitarbeiter.
Da wir zur zeit noch keinen Server haben, die Stundenzettel aber aus zwei getrennten büros verwaltet werden müssen, wird ein PC mit einer Freigabe benutzt auf dem sonst für alle wichtige und zugängliche Daten abgelegt werden. Um den Datenschutz zu gewährleisten ist nun jeder Stundenzettel mit einem einheitlichen, nur den Sachbearbeitern bekannten Passwort geschützt.
Dies führt aber nun dazu dass beim Aufruf des Blattes mit den Verknüpfungen für jeden einzelnen Stundenzettel das Passwort eingegeben werden muss.
Gibt es da eventuell die Möglichkeit dies mit einem Makro zu lösen in dem das Passwort hinterlegt ist und das automatisch dieses automatisch in jedes Eingabefeld einträgt?

Bild

Betrifft: AW: Passworte automatisch eingeben
von: Nepumuk
Geschrieben am: 29.04.2015 16:40:55
Hallo,
die automatisch Aktualisierung abschalten, dafür beim Öffnen der Mappe die Datenquelle(n) per VBA öffnen und dann aktualisieren. Beim Öffnen per VBA kannst du das Kennwort nämlich mitgeben.
Hier mal ein Beispiel:

Option Explicit

Private Sub Workbook_Open()
    Dim objWorkbook As Workbook
    Set objWorkbook = Workbooks.Open(Filename:="D:\Daten\Quelle.xlsx", _
        ReadOnly:=True, Password:="Geheim")
    ThisWorkbook.UpdateLink Name:=objWorkbook.FullName, Type:=xlExcelLinks
    Call objWorkbook.Close(SaveChanges:=False)
    Set objWorkbook = Nothing
End Sub

Der Code muss in das Modul "DieseArbeitsmappe" !!!
Gruß
Nepumuk

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Passworte automatisch eingeben"