Supportnet / Forum / Tabellenkalkulation
Symbolleisten Dateibezogen ausblenden
Frage
Hallo..........
da ich noch ziemlich neu im Excel bin brauch ich mal Hilfe.
Ich möchte mit Hilfe von Makro eine die Symbolleisten nur in einer Exceltabelle ausblenden, sodas der Benutzer der Tabelle nur die von mir mit einem Makro belegten Button arbeiten kann und nicht mit dem Menü. Der Admin der Tabelle muss aber die Symbolleisten wieder einblenden können um evtl. Änderungen durchführen zu können.
Vielen Dank für Eure Hilfe
Gruß Elhamplo
Antwort 1 von coros
Hi Elhamplo,
nachfolgend zwei Makros, mit denen Du alle Symbolleisten ausblendest, außer Deiner neu erstellten und auch wieder einblenden kannst. Kopiere die Makros in ein StandardModul und starte sie über eine Schaltfläche oder eine Tastenkombination.
Du musst allerdings in dem Makro Alle_Symbolleisten_deaktivieren in den Zeilen
Application.CommandBars("Der neue Symbolleistenname").Enabled = True
Application.CommandBars("Der neue Symbolleistenname").Visible = True
den Text "Der neue Symbolleistenname" gegen den Namen Deiner neuen Symbolleiste ändern. Trage den Namen Deiner Symbolleiste zwischen die beiden Anführungsstriche ("") ein.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird. In Anleitungsnummer 7 ist auch beschrieben, wie man dem Makro eine Tastenkombination zuordnen kann.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
nachfolgend zwei Makros, mit denen Du alle Symbolleisten ausblendest, außer Deiner neu erstellten und auch wieder einblenden kannst. Kopiere die Makros in ein StandardModul und starte sie über eine Schaltfläche oder eine Tastenkombination.
Sub Alle_Symbolleisten_deaktivieren()
Dim Menue As CommandBar
Rem Alle Symbol- und Menüleisten ausblenden und Symbolleistenkontextmenü,
Rem erscheint bei Rechtsklick, deaktivieren
On Error Resume Next
For Each Menue In Application.CommandBars
Menue.Enabled = False
Menue.Protection = msoBarNoCustomize
Menue.Protection = msoBarNoChangeVisible
Next
On Error GoTo 0
Rem Neu erstellte Symbolleiste einblenden
Application.CommandBars("Der neue Symbolleistenname").Enabled = True
Application.CommandBars("Der neue Symbolleistenname").Visible = True
End Sub
Sub Alle_Symbolleisten_aktivieren()
Dim Menue As CommandBar
Rem Alle Symbol- und Menüleisten einblenden und Symbolleistenkontextmenü,
Rem erscheint bei Rechtsklick, aktivieren
On Error Resume Next
For Each Menue In Application.CommandBars
Menue.Enabled = True
Menue.Protection = msoBarYesCustomize
Menue.Protection = msoBarYesChangeVisible
Next
On Error GoTo 0
End SubDu musst allerdings in dem Makro Alle_Symbolleisten_deaktivieren in den Zeilen
Application.CommandBars("Der neue Symbolleistenname").Enabled = True
Application.CommandBars("Der neue Symbolleistenname").Visible = True
den Text "Der neue Symbolleistenname" gegen den Namen Deiner neuen Symbolleiste ändern. Trage den Namen Deiner Symbolleiste zwischen die beiden Anführungsstriche ("") ein.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird. In Anleitungsnummer 7 ist auch beschrieben, wie man dem Makro eine Tastenkombination zuordnen kann.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von Elhamplo
Super Danke Coros!!!!!
Ist ja echt Genial!!!!!!!!!!!!
Danke
Gruß Coros
Ist ja echt Genial!!!!!!!!!!!!
Danke
Gruß Coros