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 ??"