Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Symbolleisten ausblenden

Symbolleisten ausblenden
08.08.2003 11:51:10
Tobias Müller
... und dann noch eine Frage, wie kann ich mit VBA in einer Arbeitsmappen, die symbolleisten alle ausblenden, nur noch ein Schliessen-Symbol haben

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

Betreff
Datum
Anwender
Anzeige
AW: Symbolleisten ausblenden
08.08.2003 11:57:28
Michael Scheffler
Hi,

bite ins Archiv schauen, ist mindestens schon 1000 Mal beantwortet worden.

Gruß

Micha


AW: Das ist keine Antwort.
08.08.2003 16:12:07
xx
x


AW: Symbolleisten ausblenden
08.08.2003 12:13:12
Ramses
Hallo,

auf eigene Verantwortung :-)


'(C) Ramses
Public n As Integer
Public myCBArr() As Variant
Sub Alle_sichtbaren_ausblenden()
On Error Resume Next
Dim cb As CommandBar, i As Integer
n = 0
For Each cb In Application.Commandbars
    If cb.Visible = True Then
        n = n + 1
    End If
Next
ReDim myCBArr(n)
n = 0
For Each cb In Application.Commandbars
    If cb.Visible = True Then
        myCBArr(n) = cb.Name
        n = n + 1
    End If
Next
For Each cb In Application.Commandbars
  cb.Enabled = False
  cb.Visible = False
Next
End Sub


Sub Alle_wieder_einblenden()
On Error Resume Next
Dim i As Integer
Dim cb As CommandBar
For i = 0 To n
    Application.Commandbars(myCBArr(i)).Enabled = True
    Application.Commandbars(myCBArr(i)).Visible = True
Next i
End Sub
'Ende
'------------------------------------------------- 
     Code eingefügt mit Syntaxhighlighter 1.16




Den "Rettungscode" würde ich mir auch gleich in VB-Editor kopieren ;-))

Gruss Rainer


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige