Mahesh verfügt über eine Reihe von Excel-Arbeitsmappen, die alle im selben Ordner gespeichert sind.

Er fragt sich, ob es möglich ist, dem gesamten Ordner ein Kennwort zuzuweisen, damit alle Arbeitsmappen geschützt sind.

Die kurze Antwort lautet Nein, das können Sie in Excel nicht. Es gibt eine Reihe verschiedener Techniken, die Sie anwenden können, um jedoch das gewünschte Ergebnis zu erzielen. Die erste Methode besteht darin, ein Programm wie WinZip zu verwenden, um alle Arbeitsmappen in einer einzigen Zip-Datei zu kombinieren. Diese Datei kann passwortgeschützt sein (in WinZip), so dass nicht jeder sie öffnen kann. Sie können dann die Zip-Datei (mit Ihrem Kennwort) öffnen und auf eine darin enthaltene Arbeitsmappe doppelklicken, um sie mit Excel zu ändern. Das Ergebnis ist in jeder Hinsicht, dass Sie einen „Ordner“ (die Zip-Datei) haben, der geschützt ist, während die einzelnen darin enthaltenen Dateien dies nicht sind.

Ein anderer Ansatz besteht darin, den Arbeitsmappenordner auf einem Netzwerklaufwerk abzulegen und den Ordner dann vom Netzwerkadministrator schützen zu lassen. Mit den meisten Netzwerkbetriebssystemen können Administratoren steuern, wer Zugriff auf bestimmte Ordner und deren Inhalte hat.

Ein dritter Ansatz besteht darin, ein Programm eines Drittanbieters zum Schutz des Ordners zu verwenden.

Bei einer schnellen Suche im Internet werden zweifellos mehrere Kandidaten auftauchen, z. B. die folgenden:

http://www.folder-password-expert.com

Sie können auch ein Excel-Makro verwenden, um die Arbeitsmappen zu schützen. Es bietet zwar keinen echten Schutz auf Ordnerebene, ermöglicht es Ihnen jedoch, alle Arbeitsmappen im Ordner so einfach wie möglich zu schützen.

Sub ProtectAll()

Dim wBk As Workbook     Dim sFileSpec As String     Dim sPathSpec As String     Dim sFoundFile As String

sPathSpec = "C:\MyPath\"

sFileSpec = "*.xls"



sFoundFile = Dir(sPathSpec & sFileSpec)

Do While sFoundFile <> ""

Set wBk = Workbooks.Open(sPathSpec & sFoundFile)

With wBk             Application.DisplayAlerts = False             wBk.SaveAs FileName:=.FullName, _               Password:="swordfish"

Application.DisplayAlerts = True         End With         Set wBk = Nothing         Workbooks(sFoundFile).Close False         sFoundFile = Dir     Loop End Sub

Stellen Sie sicher, dass Sie die Variablen sPathSpec und sFileSpec am Anfang des Codes so ändern, dass sie den Ordner mit den Arbeitsmappen und das Muster für die Namen der Arbeitsmappen widerspiegeln, die geschützt werden sollen. Das Makro geht davon aus, dass alle Arbeitsmappen ungeschützt sind. Ist dies nicht der Fall, fordert das Makro zur Eingabe des Kennworts der Arbeitsmappe auf.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2878) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: