10. august 2003 - 11:27Der er
11 kommentarer og 1 løsning
Menu-linie problem
Hej
Jeg har en projektmappe som fungerer som patientliste hvorfra andre projektmapper kan opstartes. For at minimere brugerens mulighed for at lave fejl har jeg fjernet Worksheet Menu linien hvilket fungerer fint når den startes men når jeg har været inde i en af de andre mapper og disse afsluttes (og vha vba aktiverer patientlisten) gendannes menuen - hvad kan gøres?
Følgende vba er lagt i Thisworkbook: workbook_Open (og forsøgt lagt i workbook.activate uden effekt).
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Den skal IKKE gendannes i de aktuelle projektmapper. I patientlisten er der overhovedet ingen menulinie, i 2 andre har jeg konstrueret en separat menulinie! Menulinien kommmer helt af sig selv - også hvis der opstår en eller anden fejl i vba (den er faktisk ret svær at blive af med)
Steen-> Den separate menulinie du selv konstruerer, bruges sansynligvis CommandBars(1).Controls.Add CommandBars(1) er det samme som CommandBars("Worksheet Menu Bar"), altså laver du ikke en ny, men ændrer den gamle.
Jeg tror at du i en af de mapper du lukker først har en sub som denne Private Sub Workbook_BeforeClose(Cancel As Boolean) Call DeleteMenuBar End Sub
Den laver en restore af den originale commandbar og da du har enabled CommandBars(1) vil den vises, når subben er kørt.....
Nej ikke indviklet - du var helt sikkert på sporet af noget rigtig. Det fik mig til at kigge i Workbook_BeforeClose hvor følgende linie havde sneget sig ind: Application.CommandBars("Worksheet Menu Bar").Enabled = True Med andre ord gør den det modsatte af det der var meningen
Nå - jeg fjernede ovenstående hvorefter den når jeg lukker mappen skriver (lukket med ovenstående ActiveworkbookClose):
Application-defined or object-defined error
Ved du hvad det betyder??? Jeg vil da meget gerne sende den til dig men de er efterhånden blevet lidt store og du er vel fortsat på nettet vha telefonlinien??? ;0))
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.
