Kennwortschutz für Outlook-Ordner

Ein Kennwortschutz für Outlook bewirkt, dass die Ordner nur nach Eingabe des Kennworts geöffnet werden können - überaus praktisch, falls Sie Outlook den ganzen Tag geöffnet haben, und zwischendurch Ihren Schreibtisch verlassen. Um so eine Lösung in Outlook einzubauen, sind Erweiterungen in verschiedenen Teilen des Objektmodells notwendig. Eine fertige Lösung gibt es nicht, allerdings eine Anleitung.
Für den Kennwortschutz
  • Wählen Sie das Menü Extras –> Makro –> Sicherheit an,  und aktivieren Sie die Stufe "niedrig" (Outlook 2003, 2002/XP, 2000) oder "keine Sicherheitsüberprüfung für Makros" (Outlook 2007). Klicken Sie auf OK und starten Sie Outlook neu. Diesen Schritt müssen Sie machen, da das Programm Sie sonst bei jedem Start aus Virenschutzgründen fragt, ob die Makros in "VbaProject.OTM" aktiviert werden sollen. Da außer Ihnen selbst niemand im VBA-Projekt arbeitet und auch keine schädlichen Makros durch das Öffnen von Dokumenten eingeschleust werden können, wie es bei Word und Excel der Fall ist, kann die Makrosicherheit in Outlook durchaus heruntergesetzt werden.
  • Wechseln Sie nach dem Neustart mit Alt + F11 in die VBA-Entwicklungsumgebung.
  • Öffnen Sie das VBA-Projekt per Doppelklick und darin die Bereiche "Microsoft Office Outlook Objekte" und "Diese OutlookSitzung".

    Geben Sie im VBA-Editor ein:

                   Private WithEvents _ 

                   objExplorer as Explorer

    • Stellen Sie die Liste Objekt (rechts) auf den Eintrag "Application" und die Liste Prozedur (links) auf "Startup" ein.
    • Geben Sie in der Ereignisprozedur "Application_Startup" folgendes ein:

                    Set objExplorer = _

                              Explorers(1)

    • Stellen Sie die Liste Prozedur auf "Quit" ein.
    • Geben Sie in der Ereignisprozedur "Application_Quit" ein:

                    Set objExplorer = _

                    Nothing

    • Stellen Sie die Liste Objekt auf "objExplorer" und die Liste Prozedur auf "BeforeFolderSwitch" ein.
    • Geben Sie in der Ereignisprozedur "objExplorer_BeforeFolderSwitch" ein:

                    Dim strKennwort As String

                    On Error Resume Next

                    If NewFolder.Name = _

                        "Leer" Then Exit Sub

                       strKennwort = _            


                    InputBox$("Kennwort eingeben:",

                    "Kennwortschutz", "")

                    If strKennwort <> "geheim" Then

                            Beep

                            Cancel = True

                     End If

                Das oben fettgedruckte "geheim" ersetzen Sie dabei durch Ihr gewünschtes Kennwort.

    • Speichern Sie die Änderungen und verlassen Sie die VBA-Entwicklungsumgebung.
    • Legen Sie einen Ordner beliebigen Typs an und geben Sie ihm die Bezeichnung "Leer". Bevor Sie Ihren Arbeitsplatz verlassen, aktivieren Sie diesen Ordner, damit in der Übersicht keine Elemente sichtbar sind und die Kennwortabfrage beim Zugriff auf einen anderen Ordner erfolgen kann.                

Damit ist der Kennwortschutz einsatzbereit und beim Zugriff auf den nächsten beliebigen Ordner wird die Kennwortabfrage gestartet.