24. januar 2002 - 15:47Der er
8 kommentarer og 2 løsninger
Tildeling af makroer til knapper
Jeg har en Excel-fil med nogle makroer. Makroerne er knyttet til nogle knapper i en menu. Mit problem er at hvis man åbner filen og gemmer den med et andet navn, ændres menuen også således at det nu er makroerne i den nye fil der er tildelt knapperne.
Hvordan kommer jeg uden om det? I Word kan jeg lave en menu og gemme den i en fil således at menuen kun viser sig når denne fil er åbnet. Men jeg synes ikke jeg kan se denne mulighed i Excel.. det ville nemlig løse mit problem (tror jeg).
Hvis man kun kan gemme menuer og knapper på værktøjslinien i person.xls vil jeg gerne vide om det kan lade sig gøre at danne en menu og tildele makroer programmeringsmæssigt når en fil åbnes, og slette dem når filen lukkes.
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
Private Sub Workbook_Open() Application.CommandBars("Menu til informationsystem").Visible = True
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Her slås menuen fra igen og slettes, før Infosys lukkes Application.CommandBars("Menu til informationsystem").Visible = False Application.CommandBars("Menu til informationsystem").Delete
MEN HUSK, at du SKAL have tildelt menuen til dit regnearket
1.Åbn det ark du skal bruge egen menu i. 2.Højreklik på menubaren og vælg Tilpas 3.Vælg værktøjslinier, "NY" og Vedhæft 4.vælg nu nogle til fra kommandoer og sæt på din nye menubar 5.Før din nye menubar derhen hvor den skal være.
tryk alt-F11 og åbn VBA-editoren indsæt et nyt modul og kopier nedenstående to makroer over i det. Erstat de steder der står Brugerdefineret 1 med navnet på din værktøjslinie. Når arket åbner kommer værktøjslinien frem og når det lukkes lukker værktøjslinien.
sub auto_open() Application.CommandBars("Brugerdefineret 1").Visible = True end sub
sub auto_close() Application.CommandBars("Brugerdefineret 1").Visible = False End sub
Tusind tak... det var jeg aldrig kommet frem til på egen hånd!
30 point til bak for en meget brugervenlig forklaring :-) 30 point til b_hansen fordi du trods alt var først med svaret og havde .delete med
Håber det er ok med Jer....
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
