ich habe folgendes Problem:
Ich will aus passwortgeschuetzten Excelfiles importieren und dabei die nervige Passwortabfrage unterdruecken. Ein "Klick" auf OK (Inputbox) wuerde schon nuetzen, weil sich dann der jeweilige file trotzdem oeffnen wuerde. Also ein Eintrag ist hier nicht erforderlich.
Passwort-Code des zu oeffnenden files in "DieseArbeitsmappe":
Private Sub Workbook_Open()
Dim Passwort
Passwort = InputBox("Please insert password")
If Passwort "1" Then
Sheets("pop up lists").Visible = xlVeryHidden
Worksheets("MLR BP").Activate
ActiveSheet.Unprotect
Rows("1:3").Select
Selection.EntireRow.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.EnableOutlining = True
Else
Sheets("pop up lists").Visible = True
Worksheets("MLR BP").Activate
ActiveSheet.Unprotect
Rows("1:3").Select
Selection.EntireRow.Hidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.EnableOutlining = True
End If
End Sub
Aus Sicht des Master-files:
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\...\import.xls", origin:=xlWindows,
Sheets("MLR BP").Select
Range("b8:af1000").Select
Selection.Copy
Workbooks("import.xls").Close SaveChanges:=False
Range("b8").Select
ActiveSheet.Paste
Wie gesagt, immer die Passwortabfrage. Hat jemand einen guten Ratschlag? Bin gespannt!
Besten Gruss aus dem suedlichen Afrika
Florian