programmeringsåtkomst (inte betrodd)

[Lahhe]

Hej,

Jag kan ej köra följande programrader:

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule

.insertlines .CountOfLines + 1, Code

End With

(Övriga programmet går att köra)

Det ger Körfel 1004: "Programmeringsåtkomst till Visual Basic-projekt är inte betrodd".

 

Jag har bara ett konto och det är administratörskontot och Excel-filen är sparad som "makroaktiverad".

Någon som vet vad det kan vara för fel?

[Monshi]

Dela upp raden i de delar det går och ta reda på vilken del av den som inte fungerar som den ska.

 

Är det With-raden som inte fungerar kanske? Vilken del av den?

 

Flyttar tråden till VBA

[Lahhe]

Tack för tipset.

När jag tittade närmare i projektträdet till vänster såg jag att det stod VBAProject

(och inte bara VBProject). Jag ändrade det och fick ett annat felmeddelande: Objektet stöder inte den här egenskapen eller metoden

Jag plockade ned "punkt efter punkt" från With-raden ner i With satsen.

Först när jag plockat ned allt utom ActiveWorkbook och körde programmet kom "efter With" upp i direktfönstret:

 

With ActiveWorkbook

Debug.Print "efter With"

.VBAProject.VBComponents(ActiveSheet.Name).CodeModule.insertlines .CountOfLines + 1,Code

Debug.Print "efter CountOfLines + 1,Code"

End With

Säger det här något?

[Monshi]

Ah, nu är jag med på vad du försöker göra. Du försöker lägga till rader till VBA-koden, skjuta in ny kod.

 

För att detta ska gå måste du ställa in i Excels inställningar att Åtkomst till objektmodell för VBA-projekt är betrodd.

I Excel 2007/2010 gör du det i Excels säkerhetscenter vill jag minnas.

[Lahhe]

Tack. Det hade jag knappast kommit på själv! Nu fungerar det.