Pogreška "Varijabla koristi vrstu automatizacije koja nije podržana" u uređivaču Visual Basic Editor u programu Excel za Mac

Zadnje ažuriranje: 10. studenog 2017.

PROBLEM

U listopadu 2017. objavljen je novi uređivač za Visual Basic u programu Excel za Mac. Kada koristite taj novi uređivač za VB, pojavljuje se problem prilikom stvaranja deklaracija objekata pomoću odabira na padajućem izborniku pri vrhu prozora s kodom.

Ako kliknete padajući izbornik na lijevoj strani i odaberete stavku na popisu, trebali biste dobiti kod za odabrani događaj na padajućem popisu na desnoj strani. Možete dodatno odabrati stavke na padajućem popisu na desnoj strani da biste stvorili dodatni kod za rukovanje odabranim događajem.

Uređivač VBE prikazuje padajući popis za odabir objekata

Umjesto toga, pojavit će se pogreška uz obavijest da kod nije stvoren.

Pogreška jezika Microsoft Visual Basic: Varijabla koristi vrstu automatizacije koja nije podržana u jeziku Visual Basic.

STATUS: ZAOBILAZNO RJEŠENJE

Odaberite jedno od zaobilaznih rješenja za taj problem:

ZAOBILAZNO RJEŠENJE #1

Sličan korak možete izvršiti na računalu s programom Excel za Windows, a zatim kod zalijepiti u Excel za Mac.

ZAOBILAZNO RJEŠENJE #2

Posjetite MSDN i pronađite sintaksu za događaj koji želite koristiti i ručno upišite kod u VBA projekt. U ovom se članku opisuju događaji "radnje knjige" programa Microsoft Excel – Događaji radne knjige.

ZAOBILAZNO RJEŠENJE #3

Kopirajte odgovarajući kod događaja iz primjera u nastavku i zalijepite u VBA projekt. Za svaki događaj obavezno kopirajte od "Privatna pod..." do "Završna pod", uključujući obje vrijednosti.

    
    

Private Sub Workbook_Activate()

End Sub

Private Sub Workbook_AddinInstall()

End Sub

Private Sub Workbook_AddinUninstall()

End Sub

Private Sub Workbook_AfterRemoteChange()

End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforeRemoteChange()

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Private Sub Workbook_Deactivate()

End Sub

Private Sub Workbook_NewChart(ByVal Ch As Chart)

End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object)

End Sub

Private Sub Workbook_Open()

End Sub

Private Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable)

End Sub

Private Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable)

End Sub

Private Sub Workbook_RowsetComplete(ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean)

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

End Sub

Private Sub Workbook_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)

End Sub

Private Sub Workbook_SheetPivotTableBeforeAllocateChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetPivotTableBeforeCommitChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetPivotTableBeforeDiscardChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)

End Sub

Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable)

End Sub

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Private Sub Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject)

End Sub

Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)

End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)

End Sub

Ikona stručnjaka (mozak, zupčanik)

Pitajte stručnjake

Povežite se sa stručnjacima, razgovarajte o najnovijim vijestima o programu Excel, ažuriranjima i najboljim postupcima te čitajte naš blog.

Tehnička zajednica za Excel

Ikona zajednice

Zatražite pomoć u zajednici

Postavite pitanje agentima za podršku, MVP-ovima, inženjerima i ostalim korisnicima programa Excel te pronađite rješenja.

Forum s odgovorima na pitanja o programu Excel

Ikona zahtjeva za značajku (žarulja, ideja)

Predložite novu značajku

Volimo čitati vaše prijedloge i povratne informacije! Podijelite s nama svoje mišljenje. Slušamo vas.

Excel UserVoice

Dodatni sadržaji

Popravci i zaobilazna rješenja za nedavne probleme u programu Excel za Mac

Proširite svoje vještine korištenja sustava Office
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×