Excel - Symbolleiste gelöscht
hey ihr
ich brauch eure hilfe ... totale panik macht sich grad breit ...
ich hab ein wenig in excel experimentiert, einen eigenen button einzufügen und mit nem makro zu koppeln
der button war da, aber ich wollte ihn umbenennen, außerdem war er versehentlich 2x da, also wollte ich beide löschen.
auf dem bild seht ihr, was am ende rauskam (versehen und zu oft geklickt ... und die unerfahrenheit :D wenn die kleinen halt groß anfangen wollen ...)
ja ... wie krieg ich das alles jetzt wieder her?
und die smileys weg?
die smileys hab ich so hergezaubert:
Option Explicit
Private Sub Workbook_Activate()
Dim myMenuBar As Variant
Dim ctrl1 As Variant
Set myMenuBar = Application.CommandBars("Worksheet Menu Bar")
Set ctrl1 = myMenuBar.Controls.Add(Type:=msoControlButton, ID:=2950)
ctrl1.Caption = ""
ctrl1.TooltipText = "Alle 5 Minuten automatisch speichern"
ctrl1.OnAction = "automatisch_speichern"
End Sub
Und so wollte ich Sie wieder verschwinden lassen, aber alles andre war weg:
Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Controls(msoControlButton).Delete
End Sub
HILFE!
und schönes wochenende
ich brauch eure hilfe ... totale panik macht sich grad breit ...
ich hab ein wenig in excel experimentiert, einen eigenen button einzufügen und mit nem makro zu koppeln
der button war da, aber ich wollte ihn umbenennen, außerdem war er versehentlich 2x da, also wollte ich beide löschen.
auf dem bild seht ihr, was am ende rauskam (versehen und zu oft geklickt ... und die unerfahrenheit :D wenn die kleinen halt groß anfangen wollen ...)
ja ... wie krieg ich das alles jetzt wieder her?
und die smileys weg?
die smileys hab ich so hergezaubert:
Option Explicit
Private Sub Workbook_Activate()
Dim myMenuBar As Variant
Dim ctrl1 As Variant
Set myMenuBar = Application.CommandBars("Worksheet Menu Bar")
Set ctrl1 = myMenuBar.Controls.Add(Type:=msoControlButton, ID:=2950)
ctrl1.Caption = ""
ctrl1.TooltipText = "Alle 5 Minuten automatisch speichern"
ctrl1.OnAction = "automatisch_speichern"
End Sub
Und so wollte ich Sie wieder verschwinden lassen, aber alles andre war weg:
Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Controls(msoControlButton).Delete
End Sub
HILFE!
und schönes wochenende
Please also mark the comments that contributed to the solution of the article
Content-Key: 102896
Url: https://administrator.de/contentid/102896
Printed on: April 24, 2024 at 05:04 o'clock
3 Comments
Latest comment