Daten aus passwortgeschützer Datei einlesen

Hallo alle zusammen!
Ich soll eine Urlaubsdatei für jeden Mitarbeiter erstellen.
In einer Gesamt-Datei (Passwortgeschützt) wird dann alles zusamnmengefasst.
Spalte A enthält Name, Vorname
Spalte B enthält den Resturlaub von diesem Jahr
Spalte C enthält den neuen Urlaubsanspruch vom nächsten Jahr
In der persönlichen Datei des jeweiligen Mitarbeiters möchte ich jetzt die Werte aus Spalte B und C in 2 Felder importieren.
Das heißt es muss in der Gesamtdatei die Zeile mit dem richtigen Namen gesucht und dann die dahinter liegenden Zellen importiert werden.
Ein Problem ist dabei der Passwortschutz der Gesamt-Datei.
Und es darf niemand Einblick in die Gesamtdatei erhalten können!
Geht so was?
Gruß und DANKE!!!
Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
öffne die Datei in einer neuen Applikation und lass diese unsichtbar.
Aber was machst Du wenn mehrere zur gleichen Zeit in die Datei eintragen wollen?
In einem Code könnte dies in etwa so aussehen.

Sub Schreibe_Gesamt()
Dim xlApp As Excel.Application
Dim strFile$
Dim rngDaten As Range
Dim varRow As Long


Const strPass$ = "xyz" 'Passwort für die Datei 

With ThisWorkbook.Sheets("Tabelle1")
    Set rngDaten = .Range("A2:C2") 'Bereich wo Daten stehen 
End With

strFile = "Y:\Ordner\Gesamt.xls" 'Pfad zur Datei 

On Error GoTo ErrorHandler:

Set xlApp = New Excel.Application 'neue Application erstellen 

With xlApp
    With .Workbooks.Open(strFile, Password:=strPass) 'Datei öffnen 
        With .Sheets("Tabelle1") 'Tabelle wo die Daten hin kommen 
            varRow = Application.Match(rngDaten(1, 1), .Columns(1), 0) 'Namen Suchen in Spalte A 
            
            If Not IsNumeric(varRow) Then 'Name nicht gefunden, am ende dazuschreiben 
                varRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                .Cells(varRow, 1) = rngDaten(1, 1)
            End If
            'restliche Daten einfügen in diese Zeile 
            .Cells(varRow, 2).Value = rngDaten(1, 2).Value
            .Cells(varRow, 3000).Value = rngDaten(1, 3).Value
        End With
        .Close True 'Datei speichern und schließen 
    End With

ErrorHandler:
    .DisplayAlerts = False
    .Quit 'Application schließen 
    .DisplayAlerts = True
End With


If Err.Number <> 0 Then
    MsgBox Err.Description, _
           vbCritical + vbMsgBoxSetForeground + vbMsgBoxHelpButton, _
           "Error: " & Err.Number, Err.HelpFile, Err.HelpContext
End If

Set xlApp = Nothing
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

Daten aus passwortgeschützer Datei einlesen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus passwortgeschützer Datei einlesen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread