symbolleiste ausschalten tunkts ...aber ??

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: symbolleiste ausschalten tunkts ...aber ??
von: roland_k
Geschrieben am: 14.02.2005 07:09:51
hi leute ,,,,
im beitrag von benjamin
Antwort auf: Symbolleiste per VBA ausblenden von Benjamin vom 13.02.2005 21:50:04
hat gerdw
diesen code angegeben:
Option Explicit
Dim cb As Object


Private Sub Workbook_Activate()
For Each cb In Application.CommandBars
  cb.Enabled = False
Next
End Sub


Private Sub Workbook_Deactivate()
For Each cb In Application.CommandBars
  cb.Enabled = True
Next
End Sub

das funktioniert ..soweit
aber ?? die bearbeitungsleiste solle auch ausgeschaltet werden ..geht das ?
danke fuer die muehe
gruss roland_k
Bild

Betrifft: Application.DisplayFormulaBar=False - o.T.
von: Matthias G
Geschrieben am: 14.02.2005 07:25:27
-
Bild

Betrifft: nun bin verwirrt ...nix geht mehr??
von: roland_k
Geschrieben am: 14.02.2005 08:10:26
hi matthias ...danke soweit i o wenn das in
workbook_open eingebe
nun wollte ich mit nem togglebutton
ein und ausschalten ...

Private Sub ToggleButton1_Click()
For Each cb In Application.CommandBars
cb.Enabled = False
Next
End Sub

shit varialble cb nicht definiert ?
das musste doch bei open auch nicht ??

grrrrr
der toggle button ist neu fuer mich
es sollte zwei zustände sein
caption aus .....symbolleisten und bearbeitungsleiste aus ....
caption ein.....symbolleisten und bearbeitungsleiste ein....
mir raucht schon wieder der kopf :-((
sitze im auto und weiss nicht wie man gas gibt ((
danke wenn du mir das kurz erläutern wurdest
gruss roland_k
Bild

Betrifft: AW: nun bin verwirrt ...nix geht mehr??
von: Matthias G
Geschrieben am: 14.02.2005 08:21:06
Hallo Roland,
Private Sub ToggleButton1_Click()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = Not cb.Enabled
Next
Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
End Sub
Du solltest aber nichts destotrotz noch eine Routine schreiben, die alles definitiv einblendet, falls mal was durcheinander gerät:
Sub AllesEin()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = True
Next
Application.DisplayFormulaBar = True
End Sub
Gruß Matthias
Bild

Betrifft: Happy ...habs bisschen anders aber funkts
von: roland_k
Geschrieben am: 14.02.2005 08:33:19
hi matthias danke
muss das noch probieren ....bin kein schnellkapierer ((
bin gerade dabei dabei gewesen ,,,beitrag erledigt schreiben
habe das so gemacht:

Sub ToggleButton1_Click()
Dim cb As Variant
If ToggleButton1.Value = True Then
For Each cb In Application.CommandBars
cb.Enabled = False
Next
Application.DisplayFormulaBar = False
ToggleButton1.Caption = "E"
End If
If ToggleButton1.Value = False Then
For Each cb In Application.CommandBars
cb.Enabled = True
Next
Application.DisplayFormulaBar = True
ToggleButton1.Caption = "A"
End If
End Sub

beachte dim.....als variant ...))
nu will noch die farben umschalten rot gruen,,,, das bekome denk hin
das mit dem buchstaben habe ja auch gefunden ..muehsam ernährt sich das eichhoernchen

danke dir ...
ohne das forum koennte denke ich mein projekt vergessen ..hmmm

viel spass noch
gruss roland_k
 Bild

Beiträge aus den Excel-Beispielen zum Thema "symbolleiste ausschalten tunkts ...aber ??"