Symbolleiste entfernen
28.01.2009 19:05:34
Reinhard
in einem kleinen Excelforum versuche ich einem Anfrager zu helfen, bin aber am Ende meiner Fahnenstange angekommen.
Er hat engl. Excel. Er sagt nach Installation von Lotus Notes Sametime wären in allen MS-Office Programmen eine Symbolleiste namens OfficeAddin zu sehen.
Nach mehreren Rückfragen bietet sich jetzt folgendes Bild.
Diese Symbolleiste "OfficeAddinn" kann er pro Excelsitzung durch Rechtsklick darauf und Anwählen von "Deaktivieren" ausblenden.
Aber er will sie dauerhaft weghaben.
Nun habe ich ihm für Excel ein Makro gebastelt was ihm alle Symbolleisten in Ansicht--Symbollleisten anzeigt. Denn dort ist die Symbolleiste "OfficeAddin" zu sehen. Nachstehend ist das Makro, was er sich auch problemlos für's engl. Excel umschreiben konnte.
Leider ist es so, diese Symbolleiste ist zwar unter Ansicht--Symbolleisten zu sehen, aber im Makro wird es nicht angezeigt.
Jetzt weiß ich nicht warum man diese Symbolliste in Excel nicht entfernen kann per Makro.
Dabei ist ja noch vollkommen offen wie das mit den anderen Office-Programmen ist.
Meinen Tipp mal in den Einstellungen von Lotus Notes Sametime zu schauen ob da was zu finden ist hat er befolgt aber nix gefunden.
Aktuell ist es so, ich habe ihm geraten mal probehalber die Excel*.xlb zu suchen und aus dem Ordner zu verschieben.
M.W. bildet dann Excel beim Start einen neue excel*.xlb.
Tja nun, er hat nach der datei gesucht und nix gefunden. kann das sein? Wie man gleich sieht wurde wohl nach *.xlb gesucht.
Und, er sagt, er hätte:
12x die Datei script.xlb und 12x die Datei dialog.xlb
gefunden, in verschiedenen Ordnern.
Jetzt meine Frage, was sind das für Dateien?
Danke für das Interesse
Gruß
Reinhard
Sub tt()
Dim cb As Object
For Each cb In Application.CommandBars("Worksheet Menu Bar").Controls("&Ansicht").Controls("& _
Symbolleisten").Controls
MsgBox cb.Caption
If cb.Caption = "OfficeAddin" Then cb.Delete
Next cb
End Sub