Menueband (Ribbon)
02.01.2023 07:28:56
Elmar
ich habe eine Arbeitsmappe mit mehreren Tabellenblättern erstellt.
Die erste Tabelle wird von mehreren Nutzern verwendet, um verschiedene Daten einzugeben.
Diese Nutzer neigen jedoch dazu, ihre eigenen Vorstellungen des Tabellenblattes zu verwirklichen,
z. B. Text eingeben, wo nur Zahlen erlaubt sind, Spaltenbreite ändern usw.
Deshalb habe ich diese Sicherheitsmerkmale per VBA festgelegt:
Arbeitsmappe ist schreibgeschützt
VBA-Code ist passwort-geschützt
die Mappe kann nur unter einem anderen Namen gespeichert werden
sie kann nur gespeichert werden, wenn mindestens ein Name und ein Vorname eingegeben wurden
über einen Comman-Button "Speichern" wird die Mappe unter "Name Vorname.xlsm" gespeichert
zuerst wird in einer Prozedur "Public sub Pruefen()" auf die Richtigkeit der Eingaben geprüft
zu Beginn der Prozedur wird eine Variable "bolPruefen" auf False gesetzt und erst bei erfolgreicher Prüfung auf True
die Prozedur "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)" setzt Cancel auf True, wenn "bolPruefen" noch False ist
und gibt eine MsgBox aus, die darauf hinweist, welche Eingaben noch ergänzt werden müssen
zudem habe ich in der Prozedur "Private Sub Workbook_Activate()" das Menueband ausgeblendet mit
"Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)""
Die gespeichert Datei kann von den Nutzern jederzeit geöffnet, geändert und neu gespeichert werden.
Es gibt einen Bereich mit verbundenen Zellen zur Texteingabe. In diesem Bereich möchten die Nutzer die Möglichkeit bekommen bestimmte Textpassagen als "Fett" zur formatieren.
Wie schaffe ich es bei ausgeblendetem Menueband nur dieses "F" anzuzeigen, damit es angeklickt werden kann?
Beste Grüße
Elmar