Menüleiste Funktion deaktivieren

Dim Benutzer As String Dim WS As Worksheet Dim ActiveSheetView As String Dim View As NamedSheetViewCollection On Error Resume Next Set WS = ThisWorkbook.Worksheets("Tabelle1") Set View = WS.NamedSheetViews ActiveSheetView = View.GetActive.Name Benutzer = Environ("username") If ActiveSheetView > Benutzer Then ActiveSheet.NamedSheetViews.GetItem(Benutzer).Activate End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Private Module Option Explicit Public objRibbon As IRibbonUI Public Sub onloadShow(Ribbon As IRibbonUI) Set objRibbon = Ribbon End Sub Sub OnShow(control) If ActiveWorkbook.Name > ThisWorkbook.Name Then Exit Sub MsgBox "Dateimenü aufgerufen.", 64, "Hinweis" End Sub Sub OnHide(control) If ActiveWorkbook.Name > ThisWorkbook.Name Then Exit Sub MsgBox "Dateimenü geschlossen.", 64, "Hinweis" End Sub

Hi,

eine Lösung weiß ich noch immer nicht, aber...

...ein vielleicht-Denkfehler von dir kann sein, ...
...dass du nur Beschreibungen lieferst (die man durchaus auch falsch verstehen kann)
...dass du nur Bilder zeigst (Excel ist aber kein Bildbearbeitungsprogramm, sondern, zumindest für mich, so etwas wie ein "explodierter" Taschenrechner mit soo verdammt vielen mathematischen Funktionen)
...dass du uns nur Codeschnipsel zeigst (wir aber vielleicht deswegen nicht den ganzen Zusammenhang verstehen)
...und dass du uns leider nicht per Upload-Funktion aus diesem Forum mal bitte eine Excel-Bsp-Datei mit allem zeigst, was erforderlich ist, um dein Problem auch sehen zu können...und um dann mit der Bsp-Datei von dir testen zu können

Das ist alles nur meine Meinung. Natürlich kann auch ich mich irren.

Ciao
Thorsten

Herzlichen Dank für deinen Hinweis. Leider kann ich die Datei nicht hochladen, da vertrauliche Informationen enthalten sind. Allerdings habe ich dank deines bereitgestellten Links und ein wenig Recherche einige Erkenntnisse gewonnen:

Die Deaktivierung der Tabellenansicht per VBA ist von Office aus gesperrt.

Es scheint jedoch möglich zu sein, diese Funktionen mithilfe einer XML-Datei abzufangen.

Bedauerlicherweise gibt es nur begrenzte Informationen darüber, wie die XML-Datei angepasst werden muss und welche idMso dabei erforderlich ist.

Aktuell habe ich die XML-Datei folgendermaßen strukturiert (s. Bild und Code unten).

[url=https://ibb.co/QJwmYdY][img]https://i.ibb.co/QJwmYdY/2024-02-01-08-12-39-Office-Ribbon-X-Editor.jpg[/img][/url]

"" customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" ">"

   "" ribbon ">"

     "" tabs ">"

         "" tab idMso="TabView" ">"

            "" group idMso="GroupNamedSheetView" label="Sheet View" ">"

               "" comboBox idMso="SheetViewComboBox" label="View:"  onChange="Anwesenheit Sage 2024.xlsm!OnSheetViewComboBoxChange"/ ">"

               "" button idMso="KeepTemporarySheetView" label="Keep Temporary View"  onAction="Anwesenheit Sage 2024.xlsm!OnKeepTemporarySheetView"/ ">"

               "" button idMso="ExitSheetView" label="Exit Sheet View"  onAction="Anwesenheit Sage 2024.xlsm!OnExitSheetView"/ ">"

               "" button idMso="NewSheetView" label="New Sheet View"  onAction="Anwesenheit Sage 2024.xlsm!OnNewSheetView"/ ">

               "" button idMso="SheetViewOptions" label="Sheet View Options"  onAction="Anwesenheit Sage 2024.xlsm!OnSheetViewOptions"/ ">"

            "" /group ">"

         "" /tab ">"

      "" /tabs ">"

   "" /ribbon ">"

   "" backstage onHide="Anwesenheit Sage 2024.xlsm!OnHide" onShow="Anwesenheit Sage 2024.xlsm!OnShow" ">"

      "" !-- Backstage Ribbon XML -- ">"

   "" /backstage ">"

"" /customUI ">"

Option Explicit



Public Sub OnSheetViewComboBoxChange(control As IRibbonControl, text As String)

    MsgBox "Sheet View ComboBox geändert. Neue Auswahl: " & text, vbInformation, "Hinweis"

End Sub



Public Sub OnKeepTemporarySheetView(control As IRibbonControl)

    MsgBox "Keep Temporary Sheet View gedrückt.", vbInformation, "Hinweis"

End Sub



Public Sub OnExitSheetView(control As IRibbonControl)

    MsgBox "Exit Sheet View gedrückt.", vbInformation, "Hinweis"

End Sub



Public Sub OnNewSheetView(control As IRibbonControl)

    MsgBox "New Sheet View gedrückt.", vbInformation, "Hinweis"

End Sub



Public Sub OnSheetViewOptions(control As IRibbonControl)

    MsgBox "Sheet View Options gedrückt.", vbInformation, "Hinweis"

End Sub



Sub OnHide(control)

    If ActiveWorkbook.Name > ThisWorkbook.Name Then Exit Sub

    MsgBox "Dateimenü geschlossen.", 64, "Hinweis"

End Sub



Sub OnShow(control)

    If ActiveWorkbook.Name > ThisWorkbook.Name Then Exit Sub

    MsgBox "Dateimenü aufgerufen.", 64, "Hinweis"

End Sub

Der Abschnitt für das Abfangen des Dateimenüs funktioniert bereits.
Leider gestaltet sich das Abfangen anderer Funktionen als schwieriger.
In dem Bereich, wo momentan eine MsgBox erscheint, soll später die Überprüfung erfolgen, welche Tabellenansicht aktiv ist. Diese Funktionalität habe ich bereits, leider fehlt das auslöse Event.

Mein Ziel ist es, Benutzern, die die Datei in SharePoint öffnen, je nach ihrer Identität oder Rolle unterschiedliche Ansichten zuzuweisen. Dabei sollen bestimmte Daten je nach Ansicht ausgeblendet oder eingeschränkt werden, um die Vertraulichkeit zu gewährleisten.

Ich hoffe, dies verdeutlicht meine Herausforderung besser. Sollte etwas unklar sein, stehe ich gerne zur Verfügung und bin bereit, meine Fragestellung weiter zu präzisieren. Nochmals herzlichen Dank für deine Unterstützung; sie hat mich bereits erheblich vorangebracht.
Ich denke, ich bin auf dem richtigen Weg zur Lösung, dank deiner Hilfe.

Beliebteste Forumthreads (12 Monate)

Menüleiste Funktion deaktivieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Menüleiste Funktion deaktivieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread