Gruppe
Datei
Problem
Wie kann ich eine passwortgeschützte Arbeitsmappe öffnen, Werte in diese Arbeitsmappe einlesen und die Mappe wieder schießen?
StandardModule: basMain
Sub DatenImport()
Dim rng As Range
Dim sFile As String
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Testdatei wurde nicht gefunden!"
GoTo ERRORHANDLER
End If
Set rng = Worksheets("Data").Range("F1:I10")
Workbooks.Open _
FileName:=sFile, _
password:="Password"
rng.Value = Range("A1:D10").Value
ActiveWorkbook.Close savechanges:=False
Worksheets("Data").Select
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub