Schaltfläche Symbolleiste deaktivieren/aktivieren

Hallo,
ich bin Nutzer von Excel2000 und habe ein wenig Makroerfahrung (Makrorekorder!). Vielleicht kann man mir hierzu helfen:
Ich habe in der Symbolleiste einige Schaltflächen mit zu aktivierenden Makros. Diese Makros sind für bestimmte Tabelle geschrieben worden. Leider ist es so, das diese Schaltflächen bei allen anderen Tabellenblättern immer zur Verfügung stehen. Dies irritiert den entsprechenden Anwender.
Die Idee dazu:
Nun wird bei aktivierten Excelprogramm -UND- nichtaktivierten Arbeitsmappe (d.h. OHNE aktivierte Tabellenblätter) die meisten Symbolleisten deaktiviert bzw. grau hinterlegt sind.
Daraus die Frage:
Ist es möglich, das in der Arbeitsmappe eingebundenen Symbolleisten (Namen: "BERECHNUNG" und "BERECHNUNG1"), nur die definierten Tabellenblätter (Namen: "BERECHNUNG" und "Rentenerhoehungen (Jahre)") als NICHT aktiviert (also: grau) hinterlegt anzuzeigen.
Ich bedanke mich im voraus.
Gruss
MichaelP.
Wenn man eine Katze auseinandernehmen will,
um zu sehen, wie sie funktioniert,
hat man als erstes eine nicht funktionierende Katze in den Händen.
(Douglas Adams)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
am Besten, die Symbolleiste nicht an die Mappe anbinden, sondern bei Bedarf erstellen und löschen:
In ein Modul:


Const SymbolleistenName = "Meine Symbolleiste"
Sub LöscheSymbolleiste()
On Error Resume Next 'kein Fehler, falls nicht vorhanden
Application.CommandBars(SymbolleistenName).Delete 'löschen, falls vorhanden
End Sub
Sub BaueSymbolleiste()
Dim cB As CommandBar
Dim CBC As Object
LöscheSymbolleiste 'falls schon vorhanden
Set cB = Application.CommandBars.Add(Name:=SymbolleistenName, _
temporary:=True, Position:=msoBarTop, MenuBar:=msoBarTypeNormal)
On Error GoTo 0
cB.Visible = True
cB.Protection = msoBarNoMove
cB.Enabled = True
'----------------- Button erstellen Beginn
Set CBC = cB.Controls.Add(Type:=msoControlButton)
With CBC
.Style = msoButtonCaption
'.BeginGroup = True 'nur, wenn Strich vorher erscheinen soll
.Caption = "Makro aufrufen"
.OnAction = "Makro1"
.TooltipText = "Makro 1 aufrufen"
End With
'----------------- Button erstellen Ende
End Sub
'TESTMAKRO
Sub Makro1()
MsgBox "M1"
End Sub

In "DieseArbeitsmappe":


Private Sub Workbook_Activate()
If ActiveSheet.Name = "Tabelle1" Then BaueSymbolleiste 'Namen der Tabelle anpassen
End Sub
Private Sub Workbook_Deactivate()
LöscheSymbolleiste
End Sub

Ins Modul von Tabelle1:

Private Sub Worksheet_Activate()
BaueSymbolleiste
End Sub
Private Sub Worksheet_Deactivate()
LöscheSymbolleiste
End Sub


Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Schaltfläche Symbolleiste deaktivieren/aktivieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread