Thomas Risi Softwareentwicklung

Symbolleisten Ein / Aus

Dieses kleine Programm blendet alle Symbolleisten aus, und blendet sie auf Wunsch wieder ein.

Option Explicit Dim myCollection As New Collection Dim cb As CommandBar ' Blendet alle Symbolleisten aus Private Sub cbAus() On Error Resume Next For Each cb In Application.CommandBars If cb.Visible Then myCollection.Add cb 'cb.Enabled = False cb.Visible = False End If Next cb End Sub ' Blendet alle Symbolleisten ein Private Sub cbEin() If myCollection.Count Then For Each cb In myCollection 'cb.Enabled = True cb.Visible = True Next End If End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)