Schaltfläche ausblenden wenn Zelle nicht gleich 0
21.08.2024 14:29:26
Katja
Ich beschäftige mich zur Zeit mit kleineren VBA Aufgaben und bin jetzt auf ein Hindernis gestoßen:
Ich möchte einen Benutzer- und einen Entwicklermodus für eine Exceldatei haben.
Im Benutzermodus ist das Menüband und jegliche andere Auswahlmöglichkeit die für die Mitarbeiter nicht wichtig sind ausgeblendet.
Jedoch ist beim ersten Öffnen der Datei (Bevor diese umbenannt werden muss, um sie abzuspeichern und bevor einige Eingaben durch den Entwickler getätigt werden) eine Schaltfläche für die "Entwickler" um in den Entwicklermodus zu schalten.
Diese Schaltfläche möchte ich nach Eingabe eines Wertes in eine Zelle mit VBA zukünftig dann für die Mitarbeiter ausblenden.
Ist es möglich Schaltflächen mit so einer Bedingung auszublenden?
Bisheriger Code für Benutzermodus:
Sub Benutzermodus()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayFullScreen = True
ActiveWindow.Zoom = 160
ActiveWindow.DisplayWorkbookTabs = False
If Q5 = "" Then
ActiveSheet.Shape("SchaltflächeModus").Visible = True
Else
ActiveSheet.Shape("SchaltflächeModus").Visible = False
End If
End SubDanke und Grüße Katja
Anzeige