Anzeige
Archiv - Navigation
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten aus geschlossener Datei mit Password

Daten aus geschlossener Datei mit Password
18.01.2005 17:00:35
R.Schmitt
Mit dem unten aufgeführten Makro hole ich
die Daten eines bestimmten vom Nutzer aus-
zuwählenden Artikels aus einer weiteren
geschlossenen Datei in meine derzeit geöffnete
Datei.
Nun möchte ich (um ganz sicher zu gehen) die
Datei aus der die Daten stammen auch mit einem
Password schützen und bekomme logischerweise
auch ständig die Aufforderung, dieses einzugeben.
Dann werden die Daten problemlos ausgelesen.
Beim Versuch in dem unten stehenden Makro auch
noch gleich das Password mitzugeben bin ich
allerdings gescheitert.

Sub Daten_holen()
Dim Blatt As String
Blatt = Sheets("Roh").Range("d1").Value
Dim C As Range, rngArtikel As Range, lRow As Long
Dim wbArtikel As Workbook, firstAddr As String
Application.ScreenUpdating = False
Set wbArtikel = GetObject("C:\Daten.xls")
Set rngArtikel = [a1] 'Suchbegriff = Artikelnummer
lRow = 3 'Startzeile für die Ausgabe
With wbArtikel.Worksheets(Blatt).Range("A:A")
Set C = .Find(rngArtikel, lookat:=xlWhole)
Rows("3:65536").Clear 'Ausgabebereich leeren
If Not C Is Nothing Then
firstAddr = C.Address
Do
Range(Cells(lRow, 1), Cells(lRow, 17)) = C.Offset(0, 1).Resize(1, 17).Value
lRow = lRow + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddr
Else
MsgBox "Artikelnummer " & rngArtikel & " nicht gefunden.", , "Fehlanzeige..."
End If
End With
wbArtikel.Close
Set wbArtikel = Nothing
Application.ScreenUpdating = True
End Sub

Vielen Dank für eure Hilfe
R.Schmitt

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

Betreff
Datum
Anwender
Anzeige
AW: Daten aus geschlossener Datei mit Password
u_
Hallo,
öffne die Datei mit workbooks.open. Dabei kannst du das PW übergeben.
Gruß
AW: Daten aus geschlossener Datei mit Password
R.Schmitt
Nein - die Datei soll aus Größen und Performancegründen
"geschlossen bleiben". Das hätte ich aber auch dazuschreiben
können. Mit Workbook-Open kriege ich die Passwordübergabe
ja auch ohne Probleme hin.
Nur jedesmal einen fast 40MB Brocken mit Workbook Open
aufzumachen........... :-((
Gruß
R.Schmitt
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige