Mit Tastenkombination div. Excel-Mappen öffnen

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe® VBA Experte!

Nutze Excel 2007.
Ich habe div. Excel-Mappen mit einem, immer dem gleichen Blattschutz(Bsp. „schutz“) versehen. Die Mappen haben unterschiedlichste Namen.
Jetzt suche ich eine Möglichkeit, mittels Tastenkombination (z.B. Strg + ö) den Blattschutz aufzuheben.
Das Makro sollte jedoch nicht in den einzelnen Mappen stehen sondern in einem Add-In(? sinnvoll?)stehen. Damit nur ich den Blattschutz aufheben kann und nicht andere User.
Bitte mal die Vorgehensweise/Syntax erläutern/aufzeigen.

Danke schon mal im Voraus.

Gruß Dietrich

#2

Ich habe div. Excel-Mappen mit einem, immer dem gleichen
Blattschutz(Bsp. „schutz“) versehen. Die Mappen haben
unterschiedlichste Namen.
Jetzt suche ich eine Möglichkeit, mittels Tastenkombination
(z.B. Strg + ö) den Blattschutz aufzuheben.
Das Makro sollte jedoch nicht in den einzelnen Mappen stehen
sondern in einem Add-In(? sinnvoll?)stehen. Damit nur ich den
Blattschutz aufheben kann und nicht andere User.

Hallo Dietrich,

in „Diese Arbeitsmappe“ deiner personl.xls:

Private Sub Workbook_Open()
Application.OnKey „^ö“, „Schutz“
End Sub

in ein Standardmodul der personl.xls:

Sub Schutz()
ActiveSheet.Unprotect password:=„schutz“
End Sub

Frag nach wenn du nicht klarkommst dann erläutere ich das genauer.

Gruß
Reinhard

#3

Guten Tag,

Danke Reinhard für die schnelle Antwort.
Jedoch habe ich in der Anzeige VBA Projekten nur das Projekt Mappe1 bzw. die offenen Mappen.
Muss ich das Projekt „personl.xls“ bzw. personl.xlam als Add-In speichern und einfügen?

Gruß

Dietrich

#4

Jedoch habe ich in der Anzeige VBA Projekten nur das Projekt
Mappe1 bzw. die offenen Mappen.
Muss ich das Projekt „personl.xls“ bzw. personl.xlam als
Add-In speichern und einfügen?

Hallo Dietrich,

mein Problem ist, ich hab kein XL2007, insofern kann ich nur von „alten“ Versionen ausgehen.

Gehe mal auf Extras—Makro—Makro aufzeichnen und zeichne etwas belangloses auf, alos A1 nach B1 kopieren o.ä.
Wichtig ist dabei Speichern in persönlicher Arbeitsmappe auszuwählen beim Start der Aufzeichnung.

Daraufhin erstellt Excel eine personl.xls. Zumindest vor XL2007.

Dorthinein gehört mein Code.

Gruß
Reinhard

#5

Hallo!

Nach langem suchen habe ich die Personal.XLSB gefunden.
Kann auch das Modul einfügen.
Jedoch wird das Projekt beim öffnen von Excel nicht automatisch „geladen“.
Wo kann ich den einstellen, welche Projekte automatisch beim öffnen von Excel geladen werden.

Danke

#6

Hallo Dietrich,

Nach langem suchen habe ich die Personal.XLSB gefunden.

wieso nach langem Suchen? Im VB-Editor müßtest du sie doch links in der Projektliste sehen.

Kann auch das Modul einfügen.
Jedoch wird das Projekt beim öffnen von Excel nicht
automatisch „geladen“.

Wenn das Makro Workbook_Open() in „Diese Arbeitsmappe“ steht müßte es beim Starten von Excel ausgeführt werden.

Gruß
Reinhard

#7

Guten Tag,

Hallo!

Habs geschafft!
Da sich das Personal.XLSB trotz Makro Workbook_Open() nicht beim Starten geladen hat, habe ich ein Add-In geschrieben (wie von Reinhard in Re^2 beschrieben).
Das ganze mit der Endung .xlam speichern und in Excel-Optionen -> Add-Ins -> Verwalten hinzufügen.
Anschließend wird das Add-In beim Starten von Excel geladen und kann genutzt werden.

Danke Reinhard für die Hilfe.
Gruß Dietrich