Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
Private Sub cbAus()
On Error Resume Next
For Each cb In Application.CommandBars
If cb.Visible Then
myCollection.Add cb
cb.Visible = False
End If
Next cb
End Sub
Private Sub cbEin()
If myCollection.Count Then
For Each cb In myCollection
cb.Visible = True
Next
End If
End Sub
© 2001 -
by Thomas Risi