Knap til en macro på værkstøjslinjen

Løsningen på dit problem er at lave en tilføjelse i Before close (eller noget i den stil).
Her laver du en programstump, der sletter den relevante knap/værktøjslinie.

så skal du osse lige huske at tilføje den i workbook open, så vidt jeg husker

Du skal oprette en "arkskabelon" dette gør du ved at oprette en projektmappe og derefter gemme den som skabelon (gem som - ind i filtype og vælg *.xlt) derefter kan du oprette din "macroknap" i denne skabelon og den vil så kun være tilgængelig i de regnearker der er oprettet ud fra denne skabelon. Se forøvrigt HJÆLP under "oprette en arkskabelon til nye projektmapper".

b_hansen >> Jeg tror, at jeg benytter mig af din forslag om at lave noget kode der tilføjer og fjerner knappen. Men hvordan gør jeg det? Har du allerede en kode der tilføjer en knap og derefter assigner en macro til knappen? Og bagefter sletter den?

Næsten somaliomar. Jeg har lavet noget kode, der tilføjer og sletter en menubjælke. Måske det kan hjælpe?
Det forudsætter dog, at du har tilføjet menulinien til det aktuelle ark. I this workbook tilføjer du følgende kode:

Private Sub Workbook_Open()
    Application.CommandBars("Menu til informationsystem").Visible = True
End Sub   

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Menu til informationsystem").Visible = False
    Application.CommandBars("Menu til informationsystem").Delete
End Sub

Hvis du laver det som en selvstændig menubjælke, behøver du ikke assigne makroen hver gang.

har du fået det til at virke somaliomar?

Nej ikke helt...

Er der en anden måde at gøre det på end at oprette en selvstændig menubjælke?

Det vil jeg da tro, men jeg har ikke selv testet det. Men du kan jo eventuelt prøve at optage en makro, hvor du tilføjer en knap og tilhørende makro til en eksisterende menu, og bagefter sletter den igen.
Så deler du kodestumpen op i den del, der opretter menupunktet, som placeres i Private Sub Workbook_Open()
Den del, der sletter igen, placerer du herefter under Private Sub Workbook_BeforeClose(Cancel As Boolean)

Det burde virke. Men ellers burde det nu ikke være noget problem med en selvstændig menubjælke. Den kan jo placeres ved siden af en eksisterende, så det ser ud som om, der er tale om én.

Det har jeg prøvet, men macro-generatoren vil ikke optage den kode, der skal til for at tilføje og fjerne en knap på værktøjslinjen.

Jeg har fundet to muligheder for at tilføje menupunkter ved at optage en makro:
Application.CommandBars("Menuens navn").Controls.Add Type:= _
        msoControlButton, ID:=2949, Before:=6
Application.CommandBars("Menuens navn").Controls.Add Type:= _
        msoControlButton, ID:=2950, Before:=6
Den første tilføjer et "brugerdefineret menupunkt" og den anden tilføjer en "brugerdefineret knap"

Jeg har fået fremtryllet følgende slettemulighed:
Application.CommandBars("Brugerdefineret genvejsmenu5").Controls(1).Delete

Det skal bemærkes, at jeg testede på en brugerdefineret menu, jeg havde lavet i forvejen. Hvorvidt det virker på standardmenuerne, ved jeg ikke. Umiddelbart kan jeg finde ud af at tildele en makro.

Indsæt disse to makroer i ThisWorkBook.
Den første indsætter knap når regnearket åbnes og den næste fjerner den igen når det lukkes.
I punktet .OnAction=  skriver du navnet på den makro du ønsker at knappen skal køre.
Vær opmærksom på at Before 25 vil få knappen til at være nummer 25. Dette nummer skal bruges når den slettes igen.
Knappen lægges i Standard-menubjælken. Denne hedder ikke nødvendigvis standard på dansk.

Private Sub Workbook_Open()
Dim test As Object
    Set test = Application.CommandBars("Standard").Controls.Add(Type:=msoControlButton, ID _
        :=266, Before:=25, temporary:=True)
    With test
        .Caption = "Hent regneark"
        .OnAction = "Hent_Ark"
    End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.CommandBars("Standard").Controls(25).Delete
End Sub

bak >> Det virker sgu!! Gider du ikke lige smide et svar?

jeg bøjer mig i støvet for bak *S*

b_hansen >> Det gør vi begge to (men jeg gør det ikke i støvet) :)

Jeg venter lige til bak svarer, så fordeler jeg pointene ligeligt mellem jer to... Jeg håber det er i orden.

Tak for points.
Du behøver ikke bøje dig, hansen. Jeg stjæler jo også stumper med arme og ben :-)

nej, pointene tilkommer bak. Han er kommet med den helstøbte løsning.

og så lige svaret...

PS. Jeg deler gerne med hansen. Han gør et godt forabejde.

b_hansen >> Jeg ved det! Men du har sgu brugt din dyrebare tid på, at finde en løsning på problemet. Det er det mindste jeg kan gøre :)

Det er også i orden med bak...

nå så ok da *S* Jeg takker for pointene

Jeg takker for jeres tid... :)