derhenry.net

Um den VBA-Projekt-Explorer übersichtlich zu halten und nicht ungewollte Änderungen an den Makros von Kollegen vorzunehmen, hat es sich bei uns eingebürgert, Projekte mit einem Kennwort zu versehen. Weniger zum Schutz von Geheimnissen, als vielmehr deshalb, weil das Öffnen von eingebundenen Projekten hierdurch einfach bewusster erfolgt. Dumm ist aber, wenn sich Kollegen nicht an das einheitlich zu verwendende Kennwort halten und dann auch noch das Unternehmen verlassen. Da der Schutz einer Projektdatei jedoch äußerst schwach ist, lässt sich mit den folgenden Schritten das Kennwort zurücksetzen.

• Die Arbeitsmappe oder Add-In-Datei muss mit einem Hex-Editor geöffnet werden.
• Wir begeben uns auf die Suche nach der ASCII-Zeichenfolge “DPB”. Die richtige Stelle haben wir gefunden, wenn kurz darauf der String “Host Extender Info” folgt.
• Aus diesem “DPB” machen wir ein “DPx” und speichern die Änderungen.
• Excel begrüßt uns mit dem Hinweis, dass die so manipulierte Datei einen ungültigen Schlüssel-Wert enthalte, wenn wir sie öffnen. Wir laden sie dennoch und ignorieren auch die ggf. folgenden unerwarteten Fehler.
• Im VBA-Editor (Alt+F11) müsste der Code nun bereits einsehbar sein. Sollten weitere Fehlermeldungen erscheinen, kann das Kennwort unter Extras > Eigenschaften > Schutz überschrieben werden.

Für viele Kleinigkeiten des täglichen Excel-Arbeitslebens bietet es sich an Makros zu erstellen. Eintönige Routineaufgaben lassen sich damit automatisieren und die Tabellenkalkulation um zahlreiche individuelle Features ergänzen.

Spätestens, wenn man die kleinen Helfer dann nicht nur selber nutzen, sondern auch etwa den Kollegen bereitstellen möchte, macht es teilweise Sinn, sie in einem Add-In zu bündeln und mit Menüeinträgen den komfortablen Aufruf zu ermöglichen. Wie das geht, fasse ich hier fix zusammen.

In meiner Arbeitsmappe finden sich sämtliche Module, Prozeduren und Funktionen, die wir in der Firma regelmäßig verwenden. Als Add-In wird diese nun stets geöffnet, wenn man Excel startet und bohrt als erstes durch folgenden Code im Bereich Workbook_Open das Menü auf:

1
2
3
4
5
6
7
8
9
10
11
12
13

Option Explicit
 
Private Sub Workbook_Open()
    Application.CommandBars("Worksheet Menu Bar").Controls("Daten").Reset
 
    Dim myCommandBar As CommandBar
    Dim myCommandBarPopup As CommandBarPopup
    Dim myCommandBarButton As CommandBarButton
 
    Set myCommandBar = Application.CommandBars("Worksheet Menu Bar")
    Set myCommandBarPopup = myCommandBar.Controls("Daten")
    Set myCommandBarButton = myCommandBarPopup.Controls.Add(Type:=msoControlButton, _
        before:=myCommandBarPopup.Controls.Count, temporary:=True)

Weiter »

Lust auf ein Fußball-Tippspiel mit Freunden und Kollegen? Diese makrofreie Excel-Arbeitsmappe ermöglicht einem Spielleiter die Verwaltung eines kleinen Wettbüros und ist bereits mit den Spielpaarungen für die Weltmeisterschaft 2010 in Afrika gefüllt.

• Bis zu 20 Spieler
• Bis zu 5 Teams
• Punkte bei richtigem Tipp, richtiger Differenz und richtiger Tendenz
• Bonuspunkte für Tipp auf Turniersieger und Tor-Anzahl
• Jackpot-Verwaltung
• Tabellarische Auswertung und Siegertreppchen

Eine vorgeschlagene Spielanleitung findet Ihr auf dem ersten Tabellenblatt.
Erstellt und getestet wurde mit Excel 2003.

Download

Wenn Ihr Bugs findet, sagt an, wenn alles klappt meldet Euch und bei Fragen bitte kommentieren!
Viel Spaß.

Leider bietet Excel (bisher) von Haus aus kein Cockpit-Chart als Standard- Diagrammtyp. Da das Ding aber ungeheuer praktisch ist, habe ich in einer Schritt-für-Schritt-Anleitung beschrieben, wie man sich ein solches Chart mit etwas Aufwand selber basteln kann. Benötigt wird dafür Rob Bovey’s XY-Chart Labeler – ein auch über dieses Beispiel hinaus sehr nützliches Freeware-Add-In.

CockpitChart-Tutorial