SoftAid, ik heb je probleem geprobeerd na te splen. Maar bij mij gaat het gewoon goed.
Daarom toch wat vragen... Heb je het bestand 'Kas2006.xls' via save as (opslaan als) gedaan of heb je via je explorer (verkenner) een kopie getrokken?
En die extra knoppen... Horen die bij het workbook en verdwijnen ze dus als je het workbook sluit? Of staan ze d'r al als je Excel opstart?

Groet, Leo

Hoi SoftAid,

Heb je de code achter de knoppen ook aangepast? Ik vermoed dat er in de code achter deze knoppen effectief verwezen word naar kasboek2006. DE kans bestaat dat je deze dan ook moet aanpassen naar 2007.
Heb je dit al eens gecontroleerd?

Hallo Eric,

Misschien kan je een bestandje uploaden met 1 knop en 1 testmacrootje.

Was het maar zo simpel, ik had het al lang gedaan 

Ik heb een kopie gemaakt van Kas2006.xls in Verkenner, Kopie van Kas2006.xls, maar de macro's worden dan niet in mee gecopïeerd. Als ik die kopie open en op een van de knoppen druk, dan opent Kas2006.xls ook, automatisch. Dit omdat er in de kopie elke knop gekoppeld is aan een  macro in Kas2006.xls.

Als ik én Kas2006.xls én een nieuw bestand open, en ik kopïeer de werkbladen, dan gaan de macro's ook niet mee.

Een testfile, ja. Maar hoe moet ik die maken zodat de macro's ook worden gecopieerd.

De macro's staan allemaal in een module in Kas 2006.xls.

De knoppen staan al in de werkbalk, ook als ik een blanco Excel (Map1.xls) open.

En daar wringt het nu juist, denk ik.

De knoppen in de knoppenbalk staan in (waarschijnlijk) een xlb-bestand dat automatisch opgestart wordt bij het starten van Excel. De Macro's daarentegen staan enkel in Kas2006.xls.

binnenkort moet ik het bestand hernoemen in 2008 

SoftAid        


PS: eigenlijk zou ik ook graag hebben dat die knoppen enkel werden getoont als ik Kas2006.xls (en hopelijk Kas2007.xls) open. In andere werkboeken zijn de functies van deze knoppen niet van toepassing.
 

Hoi SoftAid,

Kijk eens in mogelijke volgende lokaties.
Van hieruit word de code opgestart die je in je persoonlijke mappen (prsnlk.xls) geplaatst hebt.

C:\Program Files\Microsoft Office\Office10\Xlstart
C:\Windows\Application Data\Microsoft\Excel\Xlstart
C:\Winnt\Profiles\gebruikersnaam\Application Data\Microsoft\Excel\Xlstart

spyder

 

SoftAid, ik ben benieuwd naar het resultaat van het volgende... Verander in Exporer (verkenner) de naam van het huidige bestand 'Kas2007.xls' eens naar 'Kas2007.xls.old' (negeer de melding dat het bestand onbruikbaar kan worden). Open dan vervolgens het oude bestand Kas2006.xls en doe dan een Save As (opslaan als) vanuit Excel zelf. Ik gok dat de koppelingen dan wel netjes worden meegenomen...

Groet, Leo

bedankt voor de raad ivm de knoppen via een macro zichtbaar te maken in de gewenste werkboeken, maar het kopïeren van de hele map (en werkend houdend) is op dit ogenblik mijn eerste prioriteit.

tuurlijk, maar dat was inbegrepen in de oplossing

Die knoppen hebben het probleem enigszins verwarrend gemaakt, want het ziet er voor mij naar uit dat er nog andere oplossingen mogelijk waren...
Maar goed, terwijl het nu werkt zoals je wil kunnen we eens kijken hoe de knoppen "exclusief" voor het specifieke werkboek kunnen verschijnen.

Even antwoord nodig op

Wat wil je als tekst op de knop, of had je liever een menu met enkele items? Welke subroutines worden er aangeroepen: geef eventueel schema per menuitem.

om aan de slag te kunnen.

beste groeten,
Erik

Om een werkbalk te maken met knoppen, 1 per subroutine, die enkel zichtbaar is, wanneer het werkboek actief is, kan je dit doen:

ThisWorkbook module
Option Explicit

Private Sub Workbook_Activate()
Application.CommandBars(CmdBarName).Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
delete_commandbar
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars(CmdBarName).Visible = False
End Sub

Private Sub Workbook_Open()
CmdBarName = "Exclusive CommandBar"
create_commandbar
End Sub
"gewone module"
Option Explicit

Public CmdBarName As String

Dim CmdBar As CommandBar

Sub create_commandbar()
'Erik Van Geit
'070924

delete_commandbar

Set CmdBar = Application.CommandBars.Add(Name:=CmdBarName, Position:=msoBarFloating, MenuBar:=False, Temporary:=True)

    With CmdBar
       
        With .Controls.Add(Type:=msoControlButton)
        .Caption = "Macro1"
        .Style = msoButtonCaption
        .TooltipText = "Macro1"
        .OnAction = "Macro1"
        End With
   
        With .Controls.Add(Type:=msoControlButton)
        .Caption = "Macro2"
        .Style = msoButtonCaption
        .TooltipText = "Macro2"
        .OnAction = "Macro2"
        End With
   
        With .Controls.Add(Type:=msoControlButton)
        .Caption = "Macro3"
        .Style = msoButtonCaption
        .TooltipText = "Macro3"
        .OnAction = "Macro3"
        End With
   
        With .Controls.Add(Type:=msoControlButton)
        .Caption = "Macro4"
        .Style = msoButtonCaption
        .TooltipText = "Macro4"
        .OnAction = "Macro4"
        End With

    .Visible = True
    End With

End Sub

Sub delete_commandbar()

On Error Resume Next
Application.CommandBars(CmdBarName).Delete
On Error GoTo 0

End SubHet is ook mogelijk een "lijst" van opdrachten te maken in plaats van allemaal knoppen naast elkaar.

Persoonlijk vind ik het handiger om alle informatie, zoals macronamen, buttoncaptions, tooltips en andere nuttige gegevens, in een verborgen werkblad te zetten en dit te lezen vanuit de macro in een "loopje". Dat is overzichterlijker.

goeienacht!
Erik