{"id":55001283,"date":"2021-02-01T00:00:00","date_gmt":"2021-02-17T18:40:34","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1283"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"RibbonAnzeige_im_Griff","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/","title":{"rendered":"Ribbon-Anzeige im Griff"},"content":{"rendered":"<p><img loading=\"lazy\" decoding=\"async\" src=\"http:\/\/vg07.met.vgwort.de\/na\/23f6c052e7c041c4be0973caf1777e6b\" width=\"1\" height=\"1\" alt=\"\"><\/p>\n<p><b>Das Ribbon von Microsoft Access macht meist, was es soll &#8211; es bietet die im aktuellen Kontext ben&ouml;tigten Befehle zur Auswahl an. Manchmal zickt es aber anscheinend rum: Es verschwindet oder wird nur beim &Uuml;berfahren der Registerreiter sichtbar. Keine Frage: Meist sitzt das Problem vor dem Rechner und hat dieses Verhalten irgendwie angesto&szlig;en. Nur: Wie bekomme ich das Ribbon wieder in den Griff Dieser Beitrag erl&auml;utert, welche verschiedenen Zust&auml;nde das Ribbon haben kann und wie Sie diese &uuml;ber die Benutzeroberfl&auml;che und per VBA einstellen beziehungsweise wiederherstellen k&ouml;nnen.<\/b><\/p>\n<h2>Standardansicht des Ribbons<\/h2>\n<p>Normalerweise erscheint das Ribbon wie in Bild 1. Sie k&ouml;nnen die verschiedenen Register beziehungsweise Tabs per Klick anzeigen und diese werden dauerhaft angezeigt.<\/p>\n<p class=\"image\"><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2021_01\/pic_1283_001.png\" alt=\"Standardansicht des Ribbons\" width=\"700\" height=\"164,0745\" \/><\/p>\n<p><b><span style=\"color:darkgrey;\">Bild 1: Standardansicht des Ribbons<\/span><\/b><\/p>\n<p>Es kann jedoch auch sein, dass nur die Leiste mit den Tab-&Uuml;berschriften erscheint (siehe Bild 2). Diese Anzeige ist recht praktisch, wenn nicht viel Platz auf dem Bildschirm verf&uuml;gbar ist. Sie klicken dann auf einen der Reiter, um die Befehle des jeweiligen Tabs einzublenden. Nachdem Sie den gew&uuml;nschten Befehl aufgerufen haben, verschwindet die Leiste mit den Ribbon-Befehlen wieder.<\/p>\n<p class=\"image\"><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2021_01\/pic_1283_002.png\" alt=\"Ribbon minimiert\" width=\"700\" height=\"116,7939\" \/><\/p>\n<p><b><span style=\"color:darkgrey;\">Bild 2: Ribbon minimiert<\/span><\/b><\/p>\n<h2>Ribbon anheften<\/h2>\n<p>Wenn Sie das Ribbon dauerhaft sehen m&ouml;chten, finden Sie nach dem Ausklappen auf der rechten Seite ein Pin-Symbol. &Uuml;berfahren Sie dieses mit der Maus, erscheint die Beschreibung, die besagt, dass sich die Befehlsleiste mit dieser Schaltfl&auml;che oder mit der Tastenkombination <b>Strg + F1 <\/b>anheften l&auml;sst (siehe Bild 3).<\/p>\n<p class=\"image\"><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2021_01\/pic_1283_003.png\" alt=\"Ausgeklapptes, nicht angeheftetes Ribbon mit der M&ouml;glichkeit zum anheften\" width=\"700\" height=\"226,652\" \/><\/p>\n<p><b><span style=\"color:darkgrey;\">Bild 3: Ausgeklapptes, nicht angeheftetes Ribbon mit der M&ouml;glichkeit zum anheften<\/span><\/b><\/p>\n<p>Mit der Tastenkombination <b>Strg + F1 <\/b>k&ouml;nnen Sie die Leiste mit den Ribbon-Befehlen auch wieder in den nicht angehefteten Zustand bringen. Dieser Vorgang nennt sich reduzieren &#8211; &uuml;ber die Benutzeroberfl&auml;che stellen sie diesen Zustand her, indem Sie auf den kleinen Pfeil nach oben klicken, der sich im angehefteten Zustand rechts unten im Ribbon befindet.<\/p>\n<p>Ein weiterer Weg, das Ribbon in den angehefteten Zustand zu &uuml;berf&uuml;hren, ist ein Doppelklick auf einen der Tab-Reiter des Ribbons. Andersherum k&ouml;nnen Sie ein angeheftetes Ribbon per Doppelklick auf einen der Tab-Reiter auch wieder reduzieren.<\/p>\n<h2>Anheften und reduzieren per VBA<\/h2>\n<p>Es kann Gr&uuml;nde geben, warum Sie in Ihrer Anwendung den angehefteten oder den reduzierten Zustand herstellen m&ouml;chten &#8211; beispielsweise damit der Benutzer sicher immer alle Ribbon-Befehle sieht und diese nicht verborgen sind.<\/p>\n<p>Die Einstellung ist Access-spezifisch, das hei&szlig;t, dass diese nicht ge&auml;ndert wird, wenn Sie eine Anwendung schlie&szlig;en und die n&auml;chste mit Access wieder &ouml;ffnen.<\/p>\n<p>Wenn der Benutzer also normalerweise aus Platzmangel mit dem reduzierten Ribbon arbeitet und Sie dieses maximieren wollen, um die Funktionalit&auml;t Ihrer Anwendung sicherzustellen, k&ouml;nnen Sie das per VBA erledigen.<\/p>\n<p>Sie sollten den vorherigen Zustand beim Schlie&szlig;en der Anwendung allerdings wieder herstellen.<\/p>\n<h2>Anheften und Reduzieren per Minimieren<\/h2>\n<p>Hier taucht eine kleine Ungereimtheit auf. Der folgende Befehl versetzt das Ribbon in den reduzierten Zustand, wenn es angeheftet war:<\/p>\n<pre>CommandBars.ExecuteMso \"MinimizeRibbon\"<\/pre>\n<p>Das ist noch logisch. Sie k&ouml;nnen den Befehl jedoch auch verwenden, um das Ribbon vom reduzierten in den angehefteten Zustand zu versetzen!<\/p>\n<p>Wenn wir also zuverl&auml;ssig den angehefteten oder den reduzierten Zustand herstellen wollen, m&uuml;ssen wir vorher abfragen, in welchem Zustand sich das Ribbon gerade befindet. Daf&uuml;r gibt es wiederum keinen eingebauten Befehl, sondern wir nutzen die Tatsache, dass das Ribbon als <b>CommandBar<\/b>-Objekt referenzierbar ist, und zwar &uuml;ber <b>CommandBars(&#8222;Ribbon&#8220;)<\/b>. Machen Sie sich keine Hoffnungen: Das Ribbon ist nun nicht &uuml;ber das <b>CommandBar<\/b>-Objektmodell zu bearbeiten. Das <b>CommandBar <\/b>namens <b>Ribbon <\/b>enth&auml;lt lediglich ein Control mit dem Wert <b>Ribbon <\/b>in der Eigenschaft <b>Caption<\/b>. <\/p>\n<p>N&uuml;tzlich ist jedoch, dass die <b>Height<\/b>-Eigenschaft dieses <b>Control<\/b>-Objekts je nach Zustand unterschiedliche Werte zur&uuml;ckliefert. Haben wir das Ribbon zuvor in den angehefteten Zustand versetzt, liefert <b>Height <\/b>unter Access 365 den folgenden Wert:<\/p>\n<pre>  Commandbars(\"Ribbon\").Controls(1).Height\r\n  161 <\/pre>\n<p>Stellen wir den reduzierten Zustand her, erhalten wir dieses Ergebnis:<\/p>\n<pre>  Commandbars(\"Ribbon\").Controls(1).Height\r\n  65 <\/pre>\n<p>Diese Werte &auml;ndern sich gelegentlich. Unter Access 2010 liefert der reduzierte Zustand beispielsweise den Wert <b>54 <\/b>und der angeheftete Zustand den Wert <b>142<\/b>.<\/p>\n<p>Man k&ouml;nnte also annehmen, dass der Wert im reduzierten Zustand unter 100 liegt und im angehefteten Zustand &uuml;ber 100. Allerdings haben wir die Rechnung gemacht, ohne die M&ouml;glichkeit zu betrachten, dass man die Schnellzugriffsleiste &uuml;ber und unter dem Ribbon platzieren kann. <\/p>\n<p>Diesen Zustand &auml;ndern Sie, indem Sie in der Schnellzugriffsleiste auf das Symbol f&uuml;r das Aufklappmen&uuml; klicken und dort den Eintrag <b>Unter dem Men&uuml;band anzeigen <\/b>ausw&auml;hlen (siehe Bild 4).<\/p>\n<p class=\"image\"><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2021_01\/pic_1283_005.png\" alt=\"Einstellen, ob die Schnellzugriffsleiste &uuml;ber oder unter dem Ribbon angezeigt werden soll\" width=\"424,7115\" height=\"443,2875\" \/><\/p>\n<p><b><span style=\"color:darkgrey;\">Bild 4: Einstellen, ob die Schnellzugriffsleiste &uuml;ber oder unter dem Ribbon angezeigt werden soll<\/span><\/b><\/p>\n<p>Wenn sich die Schnellzugriffsleiste unter dem Ribbon befindet, liefert <b>CommandBars(&#8222;Ribbon&#8220;).Controls(1).Height <\/b>ganz andere Werte, n&auml;mlich <b>100 <\/b>f&uuml;r den reduzierten Zustand und <b>196 <\/b>f&uuml;r den angehefteten Zustand (Access 365)! Unter Access 2010 liegen die Werte bei <b>78 <\/b>und <b>168<\/b>.<\/p>\n<p><!--30percent--><\/p>\n<p>Wir k&ouml;nnen uns also bei der Ermittlung des aktuellen Zustandes nicht auf eine einfache Funktion wie die folgende  verlassen, die von einem bestimmten Wert ausgeht:<\/p>\n<pre><span style=\"color:blue;\">Public Function <\/span>MenuebandAngeheftet()<span style=\"color:blue;\"> As Boolean<\/span>\r\n     <span style=\"color:blue;\">If <\/span>CommandBars(\"Ribbon\").Controls(1).Height &gt; 100<span style=\"color:blue;\"> Then<\/span>\r\n         MenuebandAngeheftet = <span style=\"color:blue;\">True<\/span>\r\n     <span style=\"color:blue;\">End If<\/span>\r\n<span style=\"color:blue;\">End Function<\/span><\/pre>\n<h2>Wo befindet sich die Schnellzugriffsleiste aktuell<\/h2>\n<p>Stattdessen m&uuml;ssen wir noch ermitteln, ob die Schnellzugriffsleiste gerade &uuml;ber oder unter dem Ribbon angezeigt wird und das in die Funktion einbeziehen.<\/p>\n<p>Aber Google lieferte keine Erkenntnisse dar&uuml;ber, wo wir eine Einstellung finden, mit der wir die Position der Schnellzugriffsleiste, auch Quick Access Toolbar genannt, einstellen k&ouml;nnen.<\/p>\n<p>Schlie&szlig;lich haben wir es auf gut Gl&uuml;ck in der Registry gesucht und dort <b>QuickAccessToolbar <\/b>als Suchbegriff eingegeben. Das hat den Eintrag aus Bild 5 geliefert. Der passende Registry-Zweig lautet:<\/p>\n<p class=\"image\"><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2021_01\/pic_1283_004.png\" alt=\"Einstellung f&uuml;r die Position der Schnellzugriffsleite\" width=\"649,559\" height=\"358,2\"\/><\/p>\n<p><b><span style=\"color:darkgrey;\">Bild 5: Einstellung f&uuml;r die Position der Schnellzugriffsleite<\/span><\/b><\/p>\n<pre>HKEY_CURRENT_USERSOFTWAREMicrosoftOffice16.0CommonToolbarsAccess<\/pre>\n<p>Die Abbildung zeigt die Einstellung f&uuml;r die Position &uuml;ber dem Ribbon. Wenn wir die Schnellzugriffsleiste wie oben beschrieben unter das Ribbon verschieben, finden wir in der Registry nicht mehr den dezimalen Wert <b>16 <\/b>vor, sondern den Wert <b>17<\/b>.<\/p>\n<p>Diese beiden Werte gelten f&uuml;r das angeheftete Ribbon. F&uuml;r das reduzierte Ribbon liefert die Registry die Werte <b>21<\/b> (Schnellzugriffsleiste unter dem Ribbon) und <b>20 <\/b>(Schnellzugriffsleiste &uuml;ber dem Ribbon).<\/p>\n<p>Nun wissen wir zwar, wo wir die Einstellung f&uuml;r die Position der Schnellzugriffsleiste finden, aber es ist keine M&ouml;glichkeit in Sicht, diese per VBA einzustellen oder abzufragen &#8211; zumindest, wenn wir nicht direkt auf die Registry zugreifen wollen, wozu nicht jeder Benutzer die Berechtigung hat.<\/p>\n<p>Die Werte f&uuml;r die minimale H&ouml;he liegen zwischen <b>54 <\/b>und <b>100 <\/b>und die f&uuml;r die maximale H&ouml;he zwischen <b>142 <\/b>und <b>196<\/b>. Also w&auml;hlen wir <b>120 <\/b>als neuen Wert, um zuverl&auml;ssig zu ermitteln, ob das Ribbon angeheftet oder reduziert angezeigt wird.<\/p>\n<pre><span style=\"color:blue;\">Public Function <\/span>MenuebandAngeheftet()<span style=\"color:blue;\"> As Boolean<\/span>\r\n     <span style=\"color:blue;\">If <\/span>CommandBars(\"Ribbon\").Controls(1).Height &gt; 120<span style=\"color:blue;\"> Then<\/span>\r\n         MenuebandAngeheftet = <span style=\"color:blue;\">True<\/span>\r\n     <span style=\"color:blue;\">End If<\/span>\r\n<span style=\"color:blue;\">End Function<\/span><\/pre>\n<h2>Anheften des Ribbons<\/h2>\n<p>Da wir nun mit der Funktion <b>MenuebandAngeheftet <\/b>herausfinden k&ouml;nnen, in welchem Status sich das Ribbon gerade befindet, k&ouml;nnen wir nun auch Prozeduren entwickeln, die gezielt das Ribbon anheften oder reduzieren. Die erste Prozedur zum Anheften des Ribbons pr&uuml;ft, ob das Ribbon gerade nicht angeheftet ist und ruft nur in diesem Fall die <b>CommandBars.ExecuteMso<\/b>-Methode mit dem Parameter <b>MinimizeRibbon <\/b>auf:<\/p>\n<pre><span style=\"color:blue;\">Public Sub <\/span>MenuebandAnheften()\r\n     <span style=\"color:blue;\">If <\/span>MenuebandAngeheftet = <span style=\"color:blue;\">False<\/span><span style=\"color:blue;\"> Then<\/span>\r\n         CommandBars.ExecuteMso \"MinimizeRibbon\"\r\n     <span style=\"color:blue;\">End If<\/span>\r\n<span style=\"color:blue;\">End Sub<\/span><\/pre>\n<p>Die zweite hei&szlig;t <b>MenuebandReduzieren <\/b>und soll nur dann <b>ExecuteMso <\/b>aufrufen, wenn das Ribbon gerade angeheftet ist:<\/p>\n<pre><span style=\"color:blue;\">Public Sub <\/span>MenuebandReduzieren()\r\n     <span style=\"color:blue;\">If <\/span>MenuebandAngeheftet = <span style=\"color:blue;\">True<\/span><span style=\"color:blue;\"> Then<\/span>\r\n         CommandBars.ExecuteMso \"MinimizeRibbon\"\r\n     <span style=\"color:blue;\">End If<\/span>\r\n<span style=\"color:blue;\">End Sub<\/span><\/pre>\n<h2>Ribbon komplett ausblenden<\/h2>\n<p>Wir k&ouml;nnen das Ribbon auch komplett ausblenden, also inklusive Schnellzugriffsleiste. Dazu rufen Sie den folgenden Befehl auf:<\/p>\n<pre>DoCmd.ShowToolbar \"Ribbon\", acToolbarNo<\/pre>\n<p>Nach dem Aufruf erscheint das Access-Fenster wie in Bild 6. R&uuml;ckg&auml;ngigmachen k&ouml;nnen Sie diese &Auml;nderung mit der gleichen Methode, allerdings mit einem anderen Wert f&uuml;r den zweiten Parameter:<\/p>\n<p class=\"image\"><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2021_01\/pic_1283_006.png\" alt=\"Ribbon komplett ausgeblendet\" width=\"700\" height=\"111,7842\" \/><\/p>\n<p><b><span style=\"color:darkgrey;\">Bild 6: Ribbon komplett ausgeblendet<\/span><\/b><\/p>\n<pre>DoCmd.ShowToolbar \"Ribbon\", acToolbarYes<\/pre>\n<p>Zum Einblenden und Ausblenden des Ribbons legen wir zwei Prozeduren an. Die erste blendet das Ribbon ein:<\/p>\n<pre><span style=\"color:blue;\">Public Sub <\/span>RibbonEinblenden()\r\n     DoCmd.ShowToolbar \"Ribbon\", acToolbarYes\r\n<span style=\"color:blue;\">End Sub<\/span><\/pre>\n<p>Die zweite blendet das Ribbon aus:<\/p>\n<pre><span style=\"color:blue;\">Public Sub <\/span>RibbonAusblenden()\r\n     DoCmd.ShowToolbar \"Ribbon\", acToolbarNo\r\n<span style=\"color:blue;\">End Sub<\/span><\/pre>\n<h2>Pr&uuml;fen, ob das Ribbon sichtbar ist<\/h2>\n<p>Um herauszufinden, ob das Ribbon gerade angezeigt wird, k&ouml;nnen Sie die <b>Visible<\/b>-Eigenschaft des <b>Ribbon<\/b>-Elements der <b>CommandBars<\/b>-Auflistung pr&uuml;fen:<\/p>\n<pre><span style=\"color:blue;\">Debug.Print<\/span> CommandBars(\"Ribbon\").Visible<\/pre>\n<p>Dies packen wir noch in eine <b>Boolean<\/b>-Funktion namens <b>RibbonSichtbar<\/b>:<\/p>\n<pre><span style=\"color:blue;\">Public Function <\/span>RibbonSichtbar()<span style=\"color:blue;\"> As Boolean<\/span>\r\n     <span style=\"color:blue;\">If <\/span>CommandBars(\"Ribbon\").Visible = <span style=\"color:blue;\">True<\/span><span style=\"color:blue;\"> Then<\/span>\r\n         RibbonSichtbar = <span style=\"color:blue;\">True<\/span>\r\n     <span style=\"color:blue;\">End If<\/span>\r\n<span style=\"color:blue;\">End Function<\/span><\/pre>\n<h2>G&uuml;ltigkeit der verschiedenen Zust&auml;nde<\/h2>\n<p>Die Einstellungen unterscheiden sich danach, ob sie in der Datenbank gespeichert werden oder au&szlig;erhalb &#8211; oder auch nur f&uuml;r die aktuelle Session.<\/p>\n<p>Die Einstellung, ob das Ribbon angeheftet oder reduziert dargestellt wird, wird au&szlig;erhalb der Datenbank gespeichert. Wenn Sie das Ribbon f&uuml;r Datenbank A reduziert anzeigen, wird eine danach ge&ouml;ffnete Datenbank B auch das reduzierte Ribbon anzeigen. Offensichtlich speichert Access nicht den Zustand der zuletzt ge&ouml;ffneten Datenbank, sondern die letzte &Auml;nderung des Zustands. <\/p>\n<p>Die Einstellung, ob das Ribbon &uuml;berhaupt angezeigt wird, wird in der aktuellen Session gespeichert, also der aktuellen Instanz von Access. Wenn Sie das Ribbon in Datenbank A ausblenden und die Datenbank dann schlie&szlig;en, ohne Access zu beenden und dann Datenbank A oder eine andere Datenbank &ouml;ffnen, bleibt das Ribbon ausgeblendet. Beim Beenden und erneuten Starten von Access wird das Ribbon wieder eingeblendet.<\/p>\n<p>Die Einstellung, ob die Schnellzugriffsleiste &uuml;berhalb oder unterhalb des Ribbons angezeigt wird, wird ebenfalls au&szlig;erhalt der Datenbank gespeichert und bleibt sitzungs&uuml;bergreifend erhalten.<\/p>\n<h2>Zust&auml;nde pr&uuml;fen, einstellen und wiederherstellen<\/h2>\n<p>Wenn Sie f&uuml;r Ihre Datenbankanwendung nun einen bestimmten Zustand ben&ouml;tigen, m&uuml;ssen Sie ber&uuml;cksichtigen, wie und wo der Zustand gespeichert wird. Angenommen, Sie m&ouml;chten in einer Anwendung sicherstellen, dass das Ribbon angeheftet erscheint und dass nach dem Schlie&szlig;en der Anwendung wieder der Zustand bez&uuml;glich des Status des Ribbons hergestellt ist, der vor dem &Ouml;ffnen Bestand hatte.<\/p>\n<p>Dann m&uuml;ssen Sie beim &Ouml;ffnen der Anwendung einmal pr&uuml;fen, wie der aktuelle Zustand ist, diesen speichern und dann den gew&uuml;nschten Zustand herstellen. Beim Schlie&szlig;en der Anwendung m&uuml;ssen Sie dann den Zustand von vor dem &Ouml;ffnen der Anwendung wiederherstellen.<\/p>\n<p>Das erledigen wir mithilfe eines Formulars, das wir beim Starten der Anwendung &ouml;ffnen und das bis zum Schluss versteckt ge&ouml;ffnet bleibt. Beim Schlie&szlig;en der Anwendung wird dann auch das Formular geschlossen und l&ouml;st das Ereignis <b>Beim Entladen <\/b>aus, in dem wir die ben&ouml;tigten Aktionen durchf&uuml;hren.<\/p>\n<p>Als Erstes deklarieren wir im Klassenmodul des Formulars <b>frmRibbon <\/b>eine Variable, die sich den Zustand beim Start der Anwendung merken soll:<\/p>\n<pre><span style=\"color:blue;\">Dim <\/span>bolBeimStartenAngeheftet<span style=\"color:blue;\"> As Boolean<\/span><\/pre>\n<p>In der Ereignisprozedur <b>Beim Laden <\/b>pr&uuml;fen wir dann mit der Funktion <b>MenuebandAngeheftet<\/b>, ob das Ribbon beim Starten bereits angeheftet ist. Ist das der Fall, stellen wir <b>bolBeimStartenAngeheftet <\/b>auf den Wert <b>True <\/b>ein. Anderenfalls brauchen wir nichts zu tun, denn <b>bolBeimStartenAngeheftet <\/b>hat ja standardm&auml;&szlig;ig schon den Wert <b>False<\/b>. Dann rufen wir, da wir f&uuml;r diese Anwendung den angehefteten Zustand ben&ouml;tigen, die Prozedur <b>MenuebandAnheften<\/b> auf, die das Ribbon anheftet, falls dies noch nicht der Fall ist:<\/p>\n<pre><span style=\"color:blue;\">Private Sub <\/span>Form_Load()\r\n     <span style=\"color:blue;\">If <\/span>MenuebandAngeheftet<span style=\"color:blue;\"> Then<\/span>\r\n         bolBeimStartenAngeheftet = <span style=\"color:blue;\">True<\/span>\r\n     <span style=\"color:blue;\">End If<\/span>\r\n     'Gew&uuml;nschter Zustand: angeheftet\r\n     MenuebandAnheften\r\n<span style=\"color:blue;\">End Sub<\/span><\/pre>\n<p>Das Formular soll beim Start direkt ge&ouml;ffnet werden und dann direkt unsichtbar sein. Daher erstellen wir ein <b>AutoExec<\/b>-Makro und statten dieses mit der Makroaktion <b>&Ouml;ffnenFormular <\/b>mit dem Namen des Formulars und dem Fenstermodus <b>Ausgeblendet <\/b>auf.<\/p>\n<p>Nachdem das Formular auf diese Weise versteckt wird und bis zum Beenden der Anwendung ge&ouml;ffnet bleibt, wird beim Beenden das Ereignis <b>Beim Entladen <\/b>ausgel&ouml;st, f&uuml;r das wir die folgende Ereignisprozedur hinterlegen. Diese pr&uuml;ft, ob <b>bolBeimStartenAngeheftet <\/b>den Wert <b>True <\/b>aufweist. Falls ja, pr&uuml;fen wir mit der Funktion <b>MenuebandAngeheftet<\/b>, ob das Ribbon reduziert ist. In diesem Fall rufen wir die Prozedur <b>MenuebandReduzieren <\/b>auf und stellen so den Anfangszustand wieder her. Anderenfalls pr&uuml;fen wir, ob das Men&uuml;band angeheftet ist und reduzieren es dann:<\/p>\n<pre><span style=\"color:blue;\">Private Sub <\/span>Form_Unload(Cancel<span style=\"color:blue;\"> As Integer<\/span>)\r\n     <span style=\"color:blue;\">If <\/span>bolBeimStartenAngeheftet = <span style=\"color:blue;\">True<\/span><span style=\"color:blue;\"> Then<\/span>\r\n         <span style=\"color:blue;\">If <\/span><span style=\"color:blue;\">Not<\/span> MenuebandAngeheftet<span style=\"color:blue;\"> Then<\/span>\r\n             MenuebandAnheften\r\n         <span style=\"color:blue;\">End If<\/span>\r\n     <span style=\"color:blue;\">Else<\/span>\r\n         <span style=\"color:blue;\">If <\/span>MenuebandAngeheftet<span style=\"color:blue;\"> Then<\/span>\r\n             MenuebandReduzieren\r\n         <span style=\"color:blue;\">End If<\/span>\r\n     <span style=\"color:blue;\">End If<\/span>\r\n<span style=\"color:blue;\">End Sub<\/span><\/pre>\n<h2>Zusammenfassung und Ausblick<\/h2>\n<p>Dieser Beitrag zeigt verschiedene Techniken rund um das Ein- und Ausblenden sowie das Anheften oder Reduzieren des Ribbons. Sie lernen VBA-Methoden kennen, mit denen Sie die verschiedenen Zust&auml;nde programmgesteuert erreichen k&ouml;nnen. Au&szlig;erdem zeigen wir, wie Sie eine eigene Anwendung mit angeheftetem Ribbon &ouml;ffnen und nach dem Schlie&szlig;en das Ribbon wieder reduzieren, falls dies die Einstellung vor dem &Ouml;ffnen der Anwendung war.<\/p>\n<h3>Downloads zu diesem Beitrag<\/h3>\n<p>Enthaltene Beispieldateien:<\/p>\n<p>RibbonAnzeigeImGriff.accdb<\/p>\n<p><a href=\"..\/fileadmin\/beispiele\/6838D7EE-AA33-4D47-A98A-84F5160DF79D\/aiu_1283.zip\">Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Das Ribbon von Microsoft Access macht meist, was es soll &#8211; es bietet die im aktuellen Kontext ben&ouml;tigten Befehle zur Auswahl an. Manchmal zickt es aber anscheinend rum: Es verschwindet oder wird nur beim &Uuml;berfahren der Registerreiter sichtbar. Keine Frage: Meist sitzt das Problem vor dem Rechner und hat dieses Verhalten irgendwie angesto&szlig;en. Nur: Wie bekomme ich das Ribbon wieder in den Griff Dieser Beitrag erl&auml;utert, welche verschiedenen Zust&auml;nde das Ribbon haben kann und wie Sie diese &uuml;ber die Benutzeroberfl&auml;che und per VBA einstellen beziehungsweise wiederherstellen k&ouml;nnen.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66012021,662021,44000028],"tags":[],"class_list":["post-55001283","post","type-post","status-publish","format-standard","hentry","category-66012021","category-662021","category-Ergonomie_und_Benutzeroberflaeche"],"yoast_head":"<!-- This site is optimized with the Yoast SEO Premium plugin v20.9 (Yoast SEO v27.3) - https:\/\/yoast.com\/product\/yoast-seo-premium-wordpress\/ -->\n<title>Ribbon-Anzeige im Griff - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Ribbon-Anzeige im Griff\" \/>\n<meta property=\"og:description\" content=\"Das Ribbon von Microsoft Access macht meist, was es soll - es bietet die im aktuellen Kontext ben&ouml;tigten Befehle zur Auswahl an. Manchmal zickt es aber anscheinend rum: Es verschwindet oder wird nur beim &Uuml;berfahren der Registerreiter sichtbar. Keine Frage: Meist sitzt das Problem vor dem Rechner und hat dieses Verhalten irgendwie angesto&szlig;en. Nur: Wie bekomme ich das Ribbon wieder in den Griff Dieser Beitrag erl&auml;utert, welche verschiedenen Zust&auml;nde das Ribbon haben kann und wie Sie diese &uuml;ber die Benutzeroberfl&auml;che und per VBA einstellen beziehungsweise wiederherstellen k&ouml;nnen.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2021-02-17T18:40:34+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg07.met.vgwort.de\/na\/23f6c052e7c041c4be0973caf1777e6b\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"11\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Ribbon-Anzeige im Griff\",\"datePublished\":\"2021-02-17T18:40:34+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/\"},\"wordCount\":2018,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg07.met.vgwort.de\\\/na\\\/23f6c052e7c041c4be0973caf1777e6b\",\"articleSection\":[\"1\\\/2021\",\"2021\",\"Ergonomie und Benutzeroberfl\u00e4che\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/\",\"name\":\"Ribbon-Anzeige im Griff - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg07.met.vgwort.de\\\/na\\\/23f6c052e7c041c4be0973caf1777e6b\",\"datePublished\":\"2021-02-17T18:40:34+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg07.met.vgwort.de\\\/na\\\/23f6c052e7c041c4be0973caf1777e6b\",\"contentUrl\":\"http:\\\/\\\/vg07.met.vgwort.de\\\/na\\\/23f6c052e7c041c4be0973caf1777e6b\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/RibbonAnzeige_im_Griff\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Ribbon-Anzeige im Griff\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Ribbon-Anzeige im Griff - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/","og_locale":"de_DE","og_type":"article","og_title":"Ribbon-Anzeige im Griff","og_description":"Das Ribbon von Microsoft Access macht meist, was es soll - es bietet die im aktuellen Kontext ben&ouml;tigten Befehle zur Auswahl an. Manchmal zickt es aber anscheinend rum: Es verschwindet oder wird nur beim &Uuml;berfahren der Registerreiter sichtbar. Keine Frage: Meist sitzt das Problem vor dem Rechner und hat dieses Verhalten irgendwie angesto&szlig;en. Nur: Wie bekomme ich das Ribbon wieder in den Griff Dieser Beitrag erl&auml;utert, welche verschiedenen Zust&auml;nde das Ribbon haben kann und wie Sie diese &uuml;ber die Benutzeroberfl&auml;che und per VBA einstellen beziehungsweise wiederherstellen k&ouml;nnen.","og_url":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/","og_site_name":"Access im Unternehmen","article_published_time":"2021-02-17T18:40:34+00:00","og_image":[{"url":"http:\/\/vg07.met.vgwort.de\/na\/23f6c052e7c041c4be0973caf1777e6b","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"11\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Ribbon-Anzeige im Griff","datePublished":"2021-02-17T18:40:34+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/"},"wordCount":2018,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/#primaryimage"},"thumbnailUrl":"http:\/\/vg07.met.vgwort.de\/na\/23f6c052e7c041c4be0973caf1777e6b","articleSection":["1\/2021","2021","Ergonomie und Benutzeroberfl\u00e4che"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/","url":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/","name":"Ribbon-Anzeige im Griff - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/#primaryimage"},"thumbnailUrl":"http:\/\/vg07.met.vgwort.de\/na\/23f6c052e7c041c4be0973caf1777e6b","datePublished":"2021-02-17T18:40:34+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/#primaryimage","url":"http:\/\/vg07.met.vgwort.de\/na\/23f6c052e7c041c4be0973caf1777e6b","contentUrl":"http:\/\/vg07.met.vgwort.de\/na\/23f6c052e7c041c4be0973caf1777e6b"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/RibbonAnzeige_im_Griff\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Ribbon-Anzeige im Griff"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55001283","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55001283"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55001283\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55001283"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55001283"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55001283"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}