AW: Passwort geschützte Verknüpfung
18.03.2009 18:45:44
Ramses
Hallo
Da ich nicht weiss, ob du bereits eine "Persönliche Arbeitsmappe" hast,.. hier die Anleitung dazu.
Extras - Makro -Makro aufzeichnen
Makronamen vergeben
"Speichern in:" Persönlicher Arbeitsmappe
OK
Nun kannst du die Aufzeichnung bereits wieder beenden. Es ging nur um das erstellen und korrekte speichern dieser speziellen Mappe.
Nun wechselst du mit "Alt"+"F11" in den VB-Editor
Dort siehst du eine Datei die heisst "VBA Projekt PERSONL.XLS"
Doppelklick darauf
Doppelklick auf "Module"
Auf der rechten Seite siehst du nun den Makronamen des Makros den du gerade aufgezeichnet hast.
Dort fügst du diesen Code ein
Option Explicit
Sub Open_all_Files()
Workbooks.Open ("C:\Pfad\Datei1.xls"), Password:="Passwort"
Workbooks.Open ("C:\Pfad\Datei2.xls"), Password:="Passwort"
Workbooks.Open ("C:\Pfad\Datei3.xls"), Password:="Passwort"
Workbooks.Open ("C:\Pfad\Datei4.xls"), Password:="Passwort"
Workbooks.Open ("C:\Pfad\Datei5.xls"), Password:="Passwort"
Workbooks.Open ("C:\Pfad\Datei6.xls"), Password:="Passwort"
Workbooks.Open ("C:\Pfad\Hauptmappe.xls"), UpdateLinks:=xlUpdateLinksAlways, Password:="Passwort"
End Sub
Die Pfade und die Passwörter musst du noch anpassen.
Eventuell, hast du auch LeseSchreibPasswörter vergeben, dann müssen diese Zeilen
Workbooks.Open ("C:\Pfad\Datei1.xls"), Password:="Passwort"
angepasst werden in
Workbooks.Open ("C:\Pfad\Datei1.xls"), WriteResPassword:="Passwort"
Nun kannst du über
Extras - Makro - Makro ausführen
das Makro jederzeit starten und deine Mappen öffnen
Gruss Rainer