Sub test() Dim x As Long For x = 1 To Application.CommandBars("Worksheet Menu Bar").Controls.Count Application.CommandBars("Worksheet Menu Bar").Controls(x).Visible = True Next End Sub
Man behøver ikke skjule hver enkelt punkt for at fjerne linien. Måske er det fordi, at man først skal indsætte en anden værktøjslinie før man kan fjerne "Worksheet Menu Bar".
Jeg har lavet et eksempel som illustrerer hvordan det skal gøres. janvogt@esenet.dk
Du kan nok ikke sætte selve CommandButton op i menulinien, men den makro som ligger bag kan du godt gøre til et menupunkt på samme måde som det sker i modellen med "VigMig" makroen.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.