Hallo zusammen,
ich stehe vor der Herausforderung, die "Menüleiste -> Ansicht -> Tabellenansicht" (wie im Bild zu sehen) für Benutzer in der jeweils geöffneten Datei zu deaktivieren. Alternativ wäre es hilfreich, wenn Änderungen an der Ansicht abgefangen werden könnten, um mit dem Code fortzufahren. Dies ist nur ein Beispiel für eine mögliche Vorgehensweise.
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
Das Ziel ist es, dass jeder Benutzer, der auf die Datei zugreift, seine eigene Ansicht hat. Diese Ansichten werden dynamisch durch ein Makro generiert, basierend auf verschiedenen Faktoren.
Ich habe bereits mehrere Stunden damit verbracht, nach möglichen Ansätzen zu suchen, jedoch bisher ohne Erfolg. Ich hoffe, dass mir hier jemand helfen kann, eine Lösung zu erarbeiten.
|