Gruppe
Datei
Bereich
Arbeitsmappe
Thema
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen
Problem
Wie kann ich eine passwortgeschützte Arbeitsmappe öffnen, Werte in diese Arbeitsmappe einlesen und die Mappe wieder schießen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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