Hallo EricV,
Dat is mogelijk.
Open Excel, Map1.xls opent automatisch.
Klik op Nieuw. Map2.xls opent. Sla dit bestand op als Afsluiten.xls.
Verklein de 2 bestanden, zodat je ze beiden kan zien.
Met Afsluiten.xls actief klik je op Extra, Macro, Nieuwe macro opnemen. In het volgend venster verander je de Macronaam "Macro1" in "Afsluiten" en bij "Macro opslaan in:" kies je voor "Deze werkmap". Klik op OK. Er verschijnt nu een heel klein venstertje in beeld.
Selecteer nu Map1.xls, kies Bestand, Sluiten en kies er voor om dit bestand niet op te slaan.
Keer nu terug naar dat kleine venstertje en klik op het vierkantig blokje in het venstertje, de "stop opname"-knop.
Je hebt nu een macro opgenomen waarin een macro zit om Map1.xls af te sluiten.
We gaan deze macro bewerken zodat hij op het active document werkt. Klik op Extra, Macro, Macro's..., Selecteer in de lijst de macro "Afsluiten" en klik op de knop "Bewerken".
De macrocode van macro Afsluiten wordt zichtbaar:
Option Explicit
Sub Afsluiten()
'
' Afsluiten Macro
' De macro is opgenomen op 24/10/2005 door SoftAid.
'
'
Windows("Map1").Activate
ActiveWorkbook.Close
End Sub
Verander de macro door de lijn
Windows("Map1").activate weg te halen, door deze te selecteren en Delete te drukken.
Ook alles wat in het groen staat
mag je verwijderen. Resultaat wordt dan:
Option Explicit
Sub Afsluiten()
ActiveWorkbook.Close
End Sub
Klik op Bestand, Opslaan.
Open Word, Klik met de muis ergens in de werkbalken zodat het menu "Werkbalken" zichtbaar wordt, kies daar heel beneden voor "Aanpassen...". Kies het tabblad "Opdrachten" en klik nu op de knop "Sluiten" in de werkbalk. Er verschijnt een vierkant rond de knop, en je kan deze nu bewerken met de knop "Selectie wijzigen" in het tabblad "Opdrachten".
In "Selectie wijzigen" kies je voor "Knopvlak kopiëren".
Je mag Aanpassen afsluiten en Word afsluiten.
Je bent nu terug in Excel, Klik met de muis ergens in de werkbalken zodat het menu "Werkbalken" zichtbaar wordt, kies daar heel beneden voor "Aanpassen...". Kies het tabblad "Opdrachten" en kies de opdracht "Macro's" in het vak "Categorieën". Rechts verschijnt er een opdracht "Aangepaste knop". Sleep deze naar de knoppenbalk, bijvoorbeeld naast je knop "Openen". Laat de muis los en er wordt een smilie in je werkbalk geplaatst. Er staat een vierkant rond die smilie, en je kan deze nu bewerken met de knop "Selectie wijzigen" in het tabblad "Opdrachten". In "Selectie wijzigen" kies je voor "Knopvlak plakken". De smilie veranderd in de Word-knop "Afsluiten"
Je mag Aanpassen nu afsluiten.
Dat was het. Een hele boterham om het uit te leggen, maar in de praktijk gaat het veel sneller
.
Succes,
SoftAid