VBA i Excel 2003 / 2007

Åbnet i 2010

http://gupl.dk/671328/

http://gupl.dk/671329/

http://gupl.dk/671330/

Det ser jo (delvist) rigtigt ud, men!

Sådan virker det ikke i min Excel 2007 (ny installeret Enterprise Edition).

Fanen Tilføjelsesprogrammer vises først efter manuel kørsel af makroen =pretMenu. Ellers vises min egen menu slet ikke.

Indlæse eller fjerne tilføjelsesprogrammer
http://office.microsoft.com/da-dk/excel-help/indlaese-eller-fjerne-tilfojelsesprogrammer-HP010096834.aspx#BMexceladdin

Efter at ha' været inde og tilføje komponenter i Office 2007 virker det på samme måde her.
Men det ville være rart om menuen kom frem uden at den lå i fanen Tilføjelsesprogrammer.
Mon det er muligt?

På bostedet vil det være Office 2007 Standard på en Citrix platform.
Mon det i det mindste virker ligesådan i den?

PS. Efter at ha' tilføjet komponenter indlæste den selv de nødvendige tilføjelsesprogrammer (Analysis Toolpak og Analysis Toolpak - VBA).
Men det der med menuen?

Tilpasning af båndet
Excel har (næsten) altid været kendt for de meget omfattende muligheder
for at tilpasse næsten hvad som helst, fx ved oprettelse af egne
menuer, værktøjslinjer mv.
Med undtagelse af muligheden for tilpasning af den næsten usynlige
værkstøjslinje Hurtig adgang forsvandt stort set alle tilpasningsmuligheder
i Excel 2007.

http://webcache.googleusercontent.com/search?q=cache:38253Q6FzIcJ:http://www.libris.dk/files/other/bilag/P-R/955-0-profexcel-2010.pdf
Side 16 og nedaf
(Klik på linket øverst, så åbnes som PDF)

Jow, men sådan som menuen præsenteres i båndet nu er næsten acceptabelt.
Men til gengæld mangler jeg noget jeg lagde ind som sikkerhed mod brugernes Fejl40.
Kode i filen gjorde at at filnavn og placering blev valgt ud fra beboernavn og startdato. Men brugerne havde det med at gemme filen under samme navn efter at de havde skiftet til ny måned.
Ikke så godt, sidste måneds regnskab blev overskrevet hver gang de gjorde det.
For at forhindre dette lavede jeg kode der spærrede for de almindelige gemmefunktioner (Gem og GemSom i menuen Filer i Excel 2003) og lægge et punkt i min menu der kaldte min egen gemmefunktion hvor brugerne ikke fik lov til at vælge filnavn og placering.
Spærringen de almindelige gemmefunktioner virker ikke i Excel 2007.

Jeg spærrer dem med denne kode:
    With Application
        .CommandBars("Worksheet Menu Bar").Controls("Filer").Controls("Gem").Enabled = False
        .CommandBars("Standard").Controls(3).Delete
    End With

der ligger i en Workbook_Open Sub

Den første .CommandBars deaktiverer punktet Gem i Filer menuen, den anden fjerner 'disketten' i værktøjslinjen.

En anden kode der ligger i en Workbook_BeforeSave Sub omdirigerer GemSom til min egen gemmekode:
    If SaveAsUI Then
        Cancel = True
        Call Test_Navn
    End If


Men disse virker ikke i Excel 2007!

Hvordan mon jeg får dem til det?

Mindre fejltagelse!

Koden
    If SaveAsUI Then
        Cancel = True
        Call Test_Navn
    End If

virker faktisk, 'man' opdager det bare ikke lige med det samme ;-b

Har også prøvet
    If SaveUI Then
        Cancel = True
        Call Test_Navn
    End If

Det kunne jo være, men desværre virker det ikke!

store-morten
Det meste virker nu, og det var dine henvisninger der viste mig løsningen.
Læg et svar.

Det lyder godt :-)

Værsgo'