Kennwortgeschützte Datei per VBA öffnen

Beim Öffnen einer kennwortgeschützten Arbeitsmappe fragt Excel dieses Kennwort ab. Das ist natürlich auch gewünscht so, die folgende Abbildung zeigt, wie das Fenster zur Kennworteingabe aussieht:

Wenn Sie eine Arbeitsmappe per Makro öffnen, ist die Kennworteingabe natürlich sehr lästig. Sie können die Kennwortabfrage aber mit einem Makro umgehen. Setzen Sie den folgenden Programmcode ein:

Sub OeffneKennwortDatei()
Dim Mappe As Workbook
Set Mappe = Application.Workbooks.Open(Filename:="C:\Dateien\Schutzdatei.xls", Password:="Kennwort")
End Sub

Das funktioniert natürlich nur, wenn Sie das Kennwort kennen. Ersetzen Sie dazu den Text "Kennwort" durch das Passwort, das Sie festgelegt haben. Durch den Einsatz der Objektvariablen Mappe können Sie über diese Variable nach dem Öffnen der Arbeitsmappe problemlos auf die Tabellenblätter der gerade geöffneten Arbeitsmappe zugreifen.