Gruppe
Menue
Problem
Wie kann ich in XL8 überflüssige, benutzerdefinierte Symbolleisten löschen? Die Symbolleisten sollen abgefragt und angezeigt werden.
StandardModule: basMain
Sub DeleteCmdBar()
Dim oBar As CommandBar
For Each oBar In Application.CommandBars
If oBar.Visible And oBar.BuiltIn = False Then
If MsgBox( _
prompt:=oBar.Name & " löschen?", _
Buttons:=vbYesNo + vbQuestion) = vbYes Then
If MsgBox( _
prompt:="Tatsächlich?", _
Buttons:=vbYesNo + vbQuestion) = vbYes Then
oBar.Delete
End If
End If
End If
Next oBar
End Sub