Ergänzen um "Read.Only" per VBA ?
19.04.2009 18:26:37
Fabio
meine Datei (n) die ich auslese sind meist mit einem "Schreib-Passwort" geschützt. Per Herbes-Forum-VBA :-) kann ich nun Dateien auslesen, muss aber immer wieder "bestätigen"...Datei Schreibgeschützt öffnen "ja".
Wie muss ich den nachfolgenden Code um "read.Only" ergänzen - sprich - das Excel gar nicht erst manuel abfragt - sondern die Dateiabfrage "Schreibgeschützt öffnen" automatisch mit "ja" beantwortet. Dunkel habe ich da read.only in Erinnerung...aber wo..?
Danke!
Fabio
Auszug:
If strFile ZielBook Then
'Workbook open
Workbooks.Open strPath & strFile
QuellBook = ActiveWorkbook.Name
For i = 1 To Workbooks(QuellBook).Sheets().Count()
Workbooks(ZielBook).Sheets(strTab).Cells(lngR, 2).Value = Workbooks( _
QuellBook). _
_
Sheets(i).Name
Workbooks(ZielBook).Sheets(strTab).Cells(lngR, 3).Value = Workbooks( _
QuellBook). _
_
Sheets(i).Cells(80, 4)
lngR = lngR + 1
Next i
Workbooks(QuellBook).Close