Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
RibbonX - Teil 4 - Checkboxen
zurück: RibbonX - Teil 5 - Auswahl- und Kombinationsfelder weiter: RibbonX - Teil 3 - Umschaltflächen (Tooglebutton) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
mumpel
Fortgeschrittener


Verfasst am:
15. Jul 2008, 16:11
Rufname: René
Wohnort: Lindau (B)

RibbonX - Teil 4 - Checkboxen - RibbonX - Teil 4 - Checkboxen

Nach oben
       Version: Office 2007

In diesem Teil wollen wir eine Checkbox erstellen. Hierfür wird folgender RibbonX-Code verwendet. Der Beispielcode erstellt eine Checkbox.

Das folgende Beispiel erstellt eine Checkbox. Mit dieser wird geprüft, ob die aktive Tabelle geschützt ist.

Erstellen Sie eine neue Arbeitsmappe. Fügen Sie den folgenden VBA-Code in den Codebereich einer jeden Tabelle ein. Dieser Code ist notwendig, um den Schutzzustand beim Aktivieren des Tabellenblattes auslesen zu können.

Private Sub worksheet_activate()
On Error Resume Next
objRibbon.Invalidate
End Sub



Fügen Sie jetzt ein neues Modul ein und in dieses die folgenden Makros.

Option Private Module
Public objRibbon As IRibbonUI
Public Sub rx_onload(ribbon As IRibbonUI)
Set objRibbon = ribbon
End Sub
Public Sub Checkbox_onAction(control As IRibbonControl, pressed As Boolean)
If pressed = True Then
ActiveSheet.Protect
objRibbon.Invalidate
Else
ActiveSheet.Unprotect
objRibbon.Invalidate
End If
End Sub
Public Sub Checkbox_getLabel(control As IRibbonControl, ByRef label)
If ActiveSheet.ProtectContents = False Then
label = "Tabelle freigegeben"
Else
label = "Tabelle geschützt"
End If
End Sub
Public Sub Checkbox_getPressed(control As IRibbonControl, ByRef returnValue)
If ActiveSheet.ProtectContents = True Then returnValue = 1
End Sub



Anschließend speichern Sie die Arbeitsmappe und schließen sie. Öffnen Sie jetzt die Arbeitsmappe mit dem CustomUI-Editor und fügen folgenden Code in das Codefenster ein.

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="rx_onLoad">
<ribbon startFromScratch="true">
<tabs><tab id="tab01" label="Checkbox">
<group id="grpCBX" label="Checkbox" >
<checkBox id="cbx" getLabel="Checkbox_getLabel"
onAction="Checkbox_onAction" getPressed="Checkbox_getPressed" />
</group>
</tab></tabs></ribbon></customUI>



Speichern Sie nun die Änderung und schließen den Editor.
Öffnen Sie nun die Arbeitsmappe und testen Sie die Makros. Beim Öffnen wird nun geprüft, ob das aktive Tabellenblatt geschützt ist und setzt den Wert returnValue bei geschützter Tabelle auf 1. Bei 1 ist die Checkbox aktiv (Haken gesetzt. beim Wechsel in eine andere Tabelle wird die Prüfung (objRibbon.Invalidate) erneut durchgeführt.

Beschreibung:
id: Gibt die control.ID an

getPressed: Ruft beim Öffnen der Arbeitsmappe das Makro auf, welches den definierten Zustand abfragt.

onAction: Das aufzurufende Makro.

getlabel: Das Makro, welches die Beschriftung des Labels an den definierten Zustand anpasst.

Sie können auch die Beispielmappe nutzen.



XL07_Checkbox.zip
 Beschreibung:

Download
 Dateiname:  XL07_Checkbox.zip
 Dateigröße:  21.39 KB
 Heruntergeladen:  643 mal



Zuletzt bearbeitet von mumpel am 31. Aug 2011, 21:58, insgesamt 3-mal bearbeitet
mumpel
Fortgeschrittener


Verfasst am:
14. Okt 2008, 13:10
Rufname: René
Wohnort: Lindau (B)

AW: RibbonX - Teil 4 - Checkboxen - AW: RibbonX - Teil 4 - Checkboxen

Nach oben
       Version: Office 2007

Bücher zum Thema:

Das Excel-VBA Codebook (Melanie Breden/Michael Schwimmer)

Ribbon-Programmierung für Office 2007 (André Minhorst / Melanie Breden )
mumpel
Fortgeschrittener


Verfasst am:
13. Aug 2009, 18:36
Rufname: René
Wohnort: Lindau (B)


AW: RibbonX - Teil 4 - Checkboxen - AW: RibbonX - Teil 4 - Checkboxen

Nach oben
       Version: Office 2007

{Dient nur der Sortierung}
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: nur der erste Teil der Artikelnummer anzeigen 3 Bernett22 306 05. Nov 2008, 14:50
Bernett22 nur der erste Teil der Artikelnummer anzeigen
Keine neuen Beiträge Excel Formeln: Anzahl Checkboxen mit Haken ermitteln 2 1cyber 1524 26. Okt 2008, 09:51
1cyber Anzahl Checkboxen mit Haken ermitteln
Keine neuen Beiträge Excel Formeln: Checkboxen in Excel 2007 mit VB 4 Thomsen 5689 19. Sep 2008, 10:10
Thomsen Checkboxen in Excel 2007 mit VB
Keine neuen Beiträge Excel Formeln: Teil einer Formel Fett ? 1 ReneG8 2011 24. Jul 2008, 08:51
ReneG8 Teil einer Formel Fett ?
Keine neuen Beiträge Excel Formeln: Teil der Zelle zwischen zeichen ersetzen 2 Mandrake 3541 30. Jun 2008, 11:58
Mandrake Teil der Zelle zwischen zeichen ersetzen
Keine neuen Beiträge Excel Formeln: Teil einer Zelle anzeigen (=TEIL) bei unbek. Zeichenlänge 3 Steph95 1721 28. Mai 2008, 17:43
Heinz Schweigert Teil einer Zelle anzeigen (=TEIL) bei unbek. Zeichenlänge
Keine neuen Beiträge Excel Formeln: Summenprodukt Teil einer zahl suchen und zählen 11 formicacid 3330 28. Mai 2008, 17:09
HermannZ Summenprodukt Teil einer zahl suchen und zählen
Keine neuen Beiträge Excel Formeln: Hilfe bei verschaltelter Wenn-Funktion benötigt - Teil 2 2 Ruhrpottfriese 498 19. Mai 2008, 10:19
Ruhrpottfriese Hilfe bei verschaltelter Wenn-Funktion benötigt - Teil 2
Keine neuen Beiträge Excel Formeln: Teil in einer Formel unterstreichen 1 Haddrwaidaag 2051 17. Mai 2008, 20:19
CaBe Teil in einer Formel unterstreichen
Keine neuen Beiträge Excel Formeln: Registername in Zelle ausgeben - aber nur Teil davon 2 Gast 3642 03. Mai 2008, 22:40
Gast Registername in Zelle ausgeben - aber nur Teil davon
Keine neuen Beiträge Excel Formeln: Aus einer Zelle ein Teil entnehmen 2 Rantanplan78 388 17. Apr 2008, 08:31
Rantanplan78 Aus einer Zelle ein Teil entnehmen
Keine neuen Beiträge Excel Formeln: teil aus zeile löschen 4 freshbarcode 1111 25. Feb 2008, 20:50
freshbarcode teil aus zeile löschen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks