<\/p>\n
Im Beitrag „Software freischalten per Schlüssel“ zeigen wir, wie Sie mit einem Freischaltschlüssel eine Information übergeben können, welche Funktionen einer Datenbank für den Benutzer mit dem Schlüssel freigegeben sind und wie Sie etwa in einem Formular die Schaltflächen aktivieren oder deaktivieren, die diese Funktionen aufrufen. Im vorliegenden Beitrag wollen wir uns anschauen, wie Sie die Schaltflächen eines Ribbons abhängig von den mit dem Freischaltschlüssel übergebenen Daten aktivieren oder deaktivieren können.<\/b><\/p>\n
In dem genannten Beitrag Software freischalten per Schlüssel <\/b>(www.access-im-unternehmen.de\/1126<\/b>) gibt es eine Funktion, welche einen Wert für die mit einem Freischaltschlüssel freigeschalteten Features des Programms mitliefert. Diese bietet einen Wert von 0 <\/b>bis 7<\/b>, wobei diese Zahl in eine Binärzahl umzuwandeln ist und dann über die einzelnen Positionen angibt, welche der Features freigeschaltet sind.<\/p>\n
Der Wert 7 <\/b>würde also beispielsweise bedeuten, dass alle Features funktionieren sollen – 7 <\/b>entspricht binär 111<\/b>. Der Wert 4 <\/b>würde heißen, dass nur die Funktion aktiviert ist, welche der ersten Position von links entspricht, der Wert 1<\/b>, dass nur die Funktion auf der dritten Position laufen soll.<\/p>\n
Bevor wir uns um diesen Wert und seine Interpretation für die Steuer-elemente des Ribbons kümmern, wollen wir aber erst einmal das Ribbon hinzufügen.<\/p>\n
Für die Programmierung des Ribbons benötigen wir zunächst einen Verweis auf die Office-Bibliothek, den wir über den Verweise<\/b>-Dialog hinzufügen. Diesen öffnen Sie im VBA-Editor (Alt + F11<\/b>) über den Menüeintrag Extras|Verweise<\/b>. Im Dialog setzen Sie einen Haken für den Eintrag Microsoft Office x.0 Object Library<\/b>, wobei x <\/b>für die bei Ihnen verfügbare Version steht (siehe Bild 1).<\/p>\n
![\"Verweis](\"..\/fileadmin\/_temp_\/2018_02\/pic_1122_001.png\")
<\/p>\n
Bild 1: Verweis auf die Office-Bibliothek<\/span><\/b><\/p>\n Danach fügen Sie eine Tabelle namens USysRibbons <\/b>zur Datenbank hinzu, welche die Ribbon-Definitionen speichern soll. Diese sieht in der Entwurfsansicht wie in Bild 2 aus.<\/p>\n Bild 2: Definition der Tabelle USysRibbons<\/span><\/b><\/p>\n Wegen Ihres Namens, der USys… <\/b>beginnt, wird die Tabelle normalerweise nicht im Navigationsbereich von Access angezeigt. Sie können diese jedoch einblenden, wenn Sie in den Optionen des Navigationsbereichs, den Sie durch einen Klick mit der rechten Maustaste auf den Titel des Navigationsbereichs und Auswahl des Eintrags Navigationsoptionen… <\/b>aus dem Kontextmenü den Eintrag Systemobjekte anzeigen <\/b>aktivieren.<\/p>\n Anschließend können wir das Ribbon definieren. Dieses sieht im ersten Entwurf wie in Listing 1 aus. Den dortigen Code tragen Sie in das Feld RibbonXML <\/b>der Tabelle USysRibbons <\/b>ein. Das Feld Ribbonname <\/b>erhält den Wert Main<\/b>. Die Tabelle sieht dann im Entwurf wie in Bild 3 aus.<\/p>\n Bild 3: Die Tabelle USysRibbons mit der Ribbon-Definition<\/span><\/b><\/p>\n Listing 1: Definition des Ribbons mit drei Schaltflächen, drei Tabs und drei Gruppen<\/span><\/b><\/p>\n Dadurch, dass wir die Eigenschaft startFromScratch <\/b>des Elements ribbon <\/b>auf den Wert true <\/b>eingestellt haben, werden alle eingebauten Elemente des Ribbons ausgeblendet und nur noch die benutzerdefinierten Elemente angezeigt.<\/p>\n Damit das Ribbon nun auch noch in der Anwendung erscheint, sind noch weitere Schritte nötig. Als Erstes müssen Sie die Anwendung schließen und neu starten. Erst dann ist die neue Ribbon-Definition auch in der Auswahlliste der Ribbons für diese Anwendung enthalten. Die Auswahlliste finden Sie, wenn Sie mit einem Klick auf den Datei<\/b>-Reiter des Ribbons den Backstage-Bereich öffnen und dann auf den Eintrag Optionen <\/b>klicken. Im nun erscheinenden Dialog Access-Optionen <\/b>wählen Sie links den Eintrag Aktuelle Datenbank <\/b>aus. Rechts finden Sie dann unter Menüband- und Symbolleistenoptionen <\/b>die Eigenschaft Name des Menübands, wo Sie unser soeben erstelltes Ribbon namens Main <\/b>auswählen (siehe Bild 4).<\/p>\n Bild 4: Auswahl des Ribbons in den Einstellungen der Datenbank<\/span><\/b><\/p>\n Wenn Sie danach die Anwendung nochmals schließen und wieder öffnen, erscheint unser Ribbon und sieht wie in Bild 5 aus.<\/p>\n Bild 5: Benutzerdefiniertes Ribbon<\/span><\/b><\/p>\n Nun sind allerdings noch keine Elemente deaktiviert geschweige denn hätten wir überhaupt irgendwelche Maßnahmen ergriffen, um dies zu bewerkstelligen. Wie aber wollen wir dafür sorgen, dass die Schaltflächen in Abhängigkeit von den freigeschalteten Funktionen aktiviert oder deaktiviert werden Dazu benötigen wir zunächst einige Callback-Attribute für die einzelnen Elemente sowie die VBA-Prozeduren, welche die passenden Werte zum Aktivieren oder Deaktivieren zurückliefern.<\/p>\n Genau genommen können wir nur die Button-Elemente aktivieren oder deaktivieren, da nur diese über eine enabled<\/b>-Eigenschaft verfügen und eine entsprechende getEnabled<\/b>-Eigenschaft.<\/p>\n Wir wollen aber auch anhand der tab<\/b>– und group<\/b>-Elemente zeigen, wie sich diese in Abhängigkeit vom Funktionsumfang beeinflussen lassen. Es fehlt diesen Elementen zwar an einer enabled<\/b>-Eigenschaft, dafür stellen Sie aber ein visible<\/b>-Attribut und ein entsprechendes getVisible<\/b>-Callback-Attribut zur Verfügung.<\/p>\n <\/p>\n Also statten wir die getEnabled<\/b>-Attribute der button<\/b>-Elemente und die getVisible<\/b>-Attribute der tab<\/b>– und der group<\/b>-Elemente mit den Werten getEnabled <\/b>beziehungsweise getVisible <\/b>aus. Die Definition des Ribbons sieht dann wie in Listing 2 aus.<\/p>\n Listing 2: Definition des Ribbons mit drei Schaltflächen, drei Tabs und drei Gruppen, diesmal mit Callback-Attributen<\/span><\/b><\/p>\n Was haben wir damit erreicht Wenn wir die Elemente des Ribbons, die wir mit den Callback-Attributen ausgestattet haben, durch Starten der Anwendung sichtbar machen, sucht Access im VBA-Projekt nach VBA-Funktionen, deren Namen den für die Attribute getEnabled <\/b>und getVisible <\/b>angegebenen Werten entsprechen. Diese werden dann aufgerufen und wir können innerhalb dieser Funktionen festlegen, welchen Wert die Elemente für die entsprechende Eigenschaft enabled <\/b>oder visible <\/b>zugewiesen bekommen.<\/p>\n Wir nehmen an, dass die über die im Beitrag Software freischalten per Schlüssel <\/b>beschriebene Technik den Wert für die freigeschalteten Funktionen in einer öffentlichen Variablen namens intFunktionen <\/b>im Modul mdlTools <\/b>speichert:<\/p>\n Dann können wir in der Funktion getEnabled<\/b>, die beim Anzeigen der button<\/b>-Elemente des Ribbons für jedes Element einmal aufgerufen wird, auf diese Variable zugreifen und in Abhängigkeit vom Wert dieser Variablen die einzelnen Steuer-elemente aktivieren oder deaktivieren. Die folgende erste Version der Funktion getEnabled <\/b>ist der übersichthalber etwas umfangreicher geworden. Sie prüft anhand der Eigenschaft id <\/b>des Parameters control <\/b>den Namen des auslösenden Steuerelements und sieht in den Zweiten einer Select Case<\/b>-Bedingung für jedes Element eine entsprechende Behandlung vor.<\/p>\n Die Schaltfläche btn1 <\/b>soll beispielsweise aktiviert werden, wenn die erste 1 <\/b>im Binärwert von intFunktionen <\/b>gesetzt ist. Das wäre beispielsweise beim Wert 4 <\/b>der Fall, was binär 100 <\/b>entspricht. Ob die erste 1 <\/b>gesetzt ist, ermitteln wir mit dem Ausdruck (intFunktionen And 4) = 4<\/b>.<\/p>\n Ist dies der Fall, wird enabled auf True eingestellt, wenn nicht, auf False. Die erste Schaltfläche ist somit aktiviert, wenn der Wert von intFunktion <\/b>gleich 4<\/b>, 5 <\/b>oder 7 <\/b>ist.<\/p>\n Die folgende Funktion legen wir wie die weiteren Funktionen in Zusammenhang mit dem Ribbon in einem neuen Standardmodul namens mdlRibbon <\/b>an:<\/p>\n Dies kann man auch kürzer fassen:<\/p>\n Auf die gleiche Weise wollen wir getVisible<\/b>-Attribute der tab<\/b>– und group<\/b>-Elemente bearbeiten:<\/p>\n Wenn nun der Wert der Variablen intFunktionen <\/b>beispielsweise 4 <\/b>lautet, ergibt sich nach dem Starten der Anwendung das Bild aus Bild 6. Dort ist nur die Funktion der Schaltfläche btn1 <\/b>freigeschaltet, und die Elemente group2 <\/b>und group3 <\/b>sowie tab2 <\/b>und tab3 <\/b>sind komplett ausgeblendet.<\/p>\n Bild 6: Ribbon mit nur einer freigeschalteten Funktion<\/span><\/b><\/p>\n Sollten in Ihrer Anwendung Fehler auftreten, sodass beispielsweise das Ribbon gar nicht angezeigt wird, kann es sich natürlich auch um einen Fehler in der Ribbon-Definition oder um einen Fehler in den Callback-Funktionen handeln. Solche Fehler werden standardmäßig nicht an die Benutzeroberfläche gemeldet.<\/p>\n Um sie sichtbar zu machen, müssen Sie erst eine bestimmte Option aktivieren. Diese finden Sie auch in den Access-Optionen, und zwar im Bereich Clienteinstellungen <\/b>unter Allgemein<\/b>. Die zu aktivierende Option heißt Fehler von Benutzeroberflächen-Add-Ins anzeigen <\/b>(siehe Bild 7).<\/p>\n Bild 7: Fehleranzeige des Ribbons aktivieren<\/span><\/b><\/p>\n Nun kann es natürlich geschehen, dass der Benutzer während der Laufzeit einen neuen Freischalt-Schlüssel eingibt, etwa weil er neue Funktionen hinzugebucht hat. Stellen wir also nun über den Direktbereich einmal den Wert der Variablen intFunktionen <\/b>auf den Wert 5 <\/b>ein:<\/p>\n Es tut sich natürlich nichts, denn es gibt ja kein Ereignis, das beim Anpassen von Variablenwerten ausgelöst wird.<\/p>\n Wir müssen also noch etwas nachhelfen, damit wir bei änderungen des Funktionsumfangs zur Laufzeit auch eine änderung der aktivieren Steuer-elemente erhalten.<\/p>\n Dazu nutzen wir eine Möglichkeit, die das Aktualisieren der durch Callback-Attribute eingestellten Eigenschaftswerte der Ribbon-Elemente erlaubt.<\/p>\n Dazu sind zunächst zwei vorbereitende Schritte notwendig. Der erste ist, in der Ribbon-Definition für das Callback-Attribut onLoad <\/b>des customUI<\/b>-Elements den Wert onLoad_NeuesRibbon <\/b>festzulegen:<\/p>\n Im VBA-Modul mdlRibbon<\/b>, wo sich bereits die schon angelegten Callback-Funktionen befinden, deklarieren wir eine Variable, welche einen Verweis auf das durch unsere XML-Definition erstellte Ribbon aufnehmen soll:<\/p>\n Damit dieser Verweis beim Initialisieren des Ribbons auch zugeordnet wird, legen wir die passende Funktion für das Callback-Attribut onLoad <\/b>namens onLoad_Main<\/b> an:<\/p>\n Die einzige Anweisung dieser Funktion weist der Variablen objRibbon_Main <\/b>den Inhalt des von der Funktion gelieferten Parameters ribbon <\/b>zu.<\/p>\n Nun können wir zur Laufzeit den Wert von intFunktionen <\/b>ändern, zum Beispiel in den Wert 5<\/b>, 6 <\/b>oder 7<\/b>, und danach dafür sorgen, dass die Callback-Funktionen der Ribbon-Elemente erneut aufgerufen werden. Das geht mit zwei einfachen Anweisungen ganz einfach über den Direktbereich. Zuvor müssen Sie allerdings die Anwendung noch einmal schließen und wieder öffnen, damit das Ribbon neu initialisiert und somit auch die Variable objRibbon_Main <\/b>gefüllt wird. Danach stellen wir erst den Wert von intFunktionen <\/b>auf einen neuen Wert ein:<\/p>\n Dann sorgen wir durch den Aufruf der Invalidate<\/b>-Methode des IRibbonUI<\/b>-Elements objRibbon_Main <\/b>dafür, dass die Funktionen für die Callback-Attribute erneut aufgerufen werden:<\/p>\n Das Ergebnis sehen sie in Bild 8. Nun ist nicht nur die Funktion mit dem Index 1<\/b>, der wir die erste Stelle in der binären Zahl für die freigeschalteten Funktionen zugewiesen haben, freigeschaltet, sondern auch noch die Funktion mit dem Index 3<\/b>, welche die dritte Stelle in der binären Zahl belebt (also nun 101 = 5<\/b>). Wenn wir alle Funktionen freischalten wollen, nutzen wir die folgenden beiden Anweisungen:<\/p>\nTabelle zum Speichern der Ribbon-Definition<\/h2>\n
![\"Definition](\"..\/fileadmin\/_temp_\/2018_02\/pic_1122_002.png\")
<\/p>\nRibbon definieren<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2018_02\/pic_1122_005.png\")
<\/p>\n<xml version=\"1.0\">\r\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\" onLoad=\"OnLoad_NeuesRibbon\">\r\n <ribbon startFromScratch=\"true\">\r\n <tabs>\r\n <tab id=\"tab1\" label=\"Tab 1\">\r\n <group id=\"grp1\" label=\"Gruppe 1\">\r\n <button label=\"Button 1\" id=\"btn1\"\/>\r\n <button label=\"Button 2\" id=\"btn2\"\/>\r\n <button label=\"Button 3\" id=\"btn3\"\/>\r\n <\/group>\r\n <group id=\"grp2\" label=\"Gruppe 2\" getVisible=\"getVisible\">\r\n <button label=\"Button 1\" id=\"btn21\"\/>\r\n <\/group>\r\n <group id=\"grp3\" label=\"Gruppe 3\" getVisible=\"getVisible\">\r\n <button label=\"Button 1\" id=\"btn31\"\/>\r\n <\/group>\r\n <\/tab>\r\n <tab id=\"tab2\" label=\"Tab 2\" \/>\r\n <tab id=\"tab3\" label=\"Tab 3\" \/>\r\n <\/tabs>\r\n <\/ribbon>\r\n<\/customUI><\/pre>\n
![\"Auswahl](\"..\/fileadmin\/_temp_\/2018_02\/pic_1122_004.png\")
<\/p>\n![\"Benutzerdefiniertes](\"..\/fileadmin\/_temp_\/2018_02\/pic_1122_006.png\")
<\/p>\nCallback-Attribute anlegen<\/h2>\n
<xml version=\"1.0\">\r\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\">\r\n <ribbon startFromScratch=\"true\">\r\n <tabs>\r\n <tab id=\"tab1\" label=\"Tab 1\" getVisible=\"getVisible\">\r\n <group id=\"grp1\" label=\"Gruppe 1\" getVisible=\"getVisible\">\r\n <button getEnabled=\"getEnabled\" label=\"Button 1\" id=\"btn1\"\/>\r\n <button getEnabled=\"getEnabled\" label=\"Button 2\" id=\"btn2\"\/>\r\n <button getEnabled=\"getEnabled\" label=\"Button 3\" id=\"btn3\"\/>\r\n <\/group>\r\n <group id=\"grp2\" label=\"Gruppe 2\" getVisible=\"getVisible\">\r\n <button label=\"Button 1\" id=\"btn21\"\/>\r\n <\/group>\r\n <group id=\"grp3\" label=\"Gruppe 3\" getVisible=\"getVisible\">\r\n <button label=\"Button 1\" id=\"btn31\"\/>\r\n <\/group>\r\n <\/tab>\r\n <tab id=\"tab2\" label=\"Tab 2\" getVisible=\"getVisible\"\/>\r\n <tab id=\"tab3\" label=\"Tab 3\" getVisible=\"getVisible\"\/>\r\n <\/tabs>\r\n <\/ribbon>\r\n<\/customUI><\/pre>\n
Enabled-Eigenschaft zur Laufzeit zuweisen<\/h2>\n
Public <\/span>intFunktionen As Integer<\/span><\/pre>\nSub <\/span>getEnabled(control As <\/span>IRibbonControl, ByRef enabled)\r\n Select Case control.Id\r\n Case <\/span>\"btn1\"\r\n If <\/span>(intFunktionen And 4) = 4 Then<\/span>\r\n enabled = True<\/span>\r\n Else<\/span>\r\n enabled = False<\/span>\r\n End If<\/span>\r\n Case <\/span>\"btn2\"\r\n If <\/span>(intFunktionen And 2) = 2 Then<\/span>\r\n enabled = True<\/span>\r\n Else<\/span>\r\n enabled = False<\/span>\r\n End If<\/span>\r\n Case <\/span>\"btn3\"\r\n If <\/span>(intFunktionen And 1) = 1 Then<\/span>\r\n enabled = True<\/span>\r\n Else<\/span>\r\n enabled = False<\/span>\r\n End If<\/span>\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nSub <\/span>getEnabled(control As <\/span>IRibbonControl, ByRef enabled)\r\n Select Case control.Id\r\n Case <\/span>\"btn1\"\r\n enabled = (intFunktionen And 4) = 4\r\n Case <\/span>\"btn2\"\r\n enabled = (intFunktionen And 2) = 2\r\n Case <\/span>\"btn3\"\r\n enabled = (intFunktionen And 1) = 1\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nSub <\/span>getVisible(control As <\/span>IRibbonControl, ByRef visible)\r\n Select Case control.Id\r\n Case <\/span>\"tab1\"\r\n visible = (intFunktionen And 4) = 4\r\n Case <\/span>\"tab2\"\r\n visible = (intFunktionen And 2) = 2\r\n Case <\/span>\"tab3\"\r\n visible = (intFunktionen And 1) = 1\r\n Case <\/span>\"grp1\"\r\n visible = (intFunktionen And 4) = 4\r\n Case <\/span>\"grp2\"\r\n visible = (intFunktionen And 2) = 2\r\n Case <\/span>\"grp3\"\r\n visible = (intFunktionen And 1) = 1\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Ribbon](\"..\/fileadmin\/_temp_\/2018_02\/pic_1122_007.png\")
<\/p>\nEventuelle Fehler im Code anzeigen<\/h2>\n
![\"Fehleranzeige](\"..\/fileadmin\/_temp_\/2018_02\/pic_1122_003.png\")
<\/p>\nänderungen während der Laufzeit<\/h2>\n
intFunktionen = 5<\/pre>\n
<customUI xmlns=\"...\" onLoad=\"OnLoad_Main\"><\/pre>\n
Public <\/span>objRibbon_Main As <\/span>IRibbonUI<\/pre>\nSub <\/span>onLoad_Main(ribbon As <\/span>IRibbonUI)\r\n Set<\/span> objRibbon_Main = ribbon\r\nEnd Sub<\/span><\/pre>\nintFunktionen = 5<\/pre>\n
objRibbon_Main.Invalidate<\/pre>\n
![\"Ribbon](\"..\/fileadmin\/_temp_\/2018_02\/pic_1122_008.png\")
<\/p>\n
![\"Ribbon](\"..\/fileadmin\/_temp_\/2018_02\/pic_1122_009.png\")
<\/p>\n