Erro "A variável usa um tipo de automação sem suporte" no editor do Visual Basic no Excel para Mac

Aplica-se a
Excel 2016 para Mac

Última atualização: 10 de abril de 2019

PROBLEMA

Apresentamos um novo Editor do Visual Basic no Excel para Mac em outubro de 2017. Nesse novo editor, há um problema relacionado à criação de declarações de objeto por meio das opções do menu suspenso na parte superior da janela de código.

Quando clica no menu suspenso à esquerda e escolhe um item da lista, você deve obter algum código para o evento selecionado na lista suspensa à direita. Você pode fazer seleções adicionais na lista suspensa à direita para criar outro código a fim de tratar o evento escolhido.

Editor VBE mostrando a lista suspensa de seleção de objeto Em vez disso, ocorre um erro informando que o código não é criado.

Erro do Microsoft Visual Basic: usos de variáveis e tipo de automação não têm suporte no Visual Basic. STATUS: SOLUÇÃO ALTERNATIVA

Escolha uma das seguintes soluções alternativas para esse problema:

SOLUÇÃO ALTERNATIVA 1

Faça o mesmo procedimento em um computador com Excel para Windows e copie o código para o Excel para Mac.

SOLUÇÃO ALTERNATIVA 2

Vá para o MSDN, localize a sintaxe do evento que deseja usar e digite o código manualmente no projeto VBA. Este artigo descreve os eventos da "pasta de trabalho" do Microsoft Excel - Eventos da Pasta de Trabalho.

SOLUÇÃO ALTERNATIVA 3

Copie o código de evento apropriado dos exemplos abaixo e cole-o no projeto VBA. Copie de "Private Sub..." a "End Sub" para cada evento, inclusive.

Sub Privado Workbook_Activate()
End Sub

Sub Privado Workbook_AddinInstall()
End Sub

Sub Privado Workbook_AddinUninstall()
End Sub

Sub Privado Workbook_AfterRemoteChange()
End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
End Sub

Assinatura privada Workbook_BeforeClose(Cancelar como booleano)
End Sub

Assinatura privada Workbook_BeforePrint(Cancelar como booleano)
End Sub

Sub Privado Workbook_BeforeRemoteChange()
End Sub

Assinatura privada Workbook_BeforeSave(ByVal SaveAsUI Como Boolean, Cancel As Boolean)
End Sub

Sub Privado Workbook_Deactivate()
End Sub

Sub Privado Workbook_NewChart (ByVal Ch Como Gráfico)
End Sub

Sub Privado Workbook_NewSheet(ByVal Sh Como Objeto)
End Sub

Sub Privado Workbook_Open()
End Sub

Sub Privado Workbook_PivotTableCloseConnection(Destino ByVal como Tabela Dinâmica)
End Sub

Sub Privado Workbook_PivotTableOpenConnection(Destino ByVal como Tabela Dinâmica)
End Sub

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

Sub Privado Workbook_SheetActivate(ByVal Sh Como Objeto)
End Sub

Sub Privado Workbook_SheetBeforeDelete(ByVal Sh Como Objeto)
End Sub

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

Sub Privado Workbook_SheetBeforeRightClick(ByVal Sh Como Objeto, ByVal Destino Como Intervalo, Cancelar Como Booleano)
End Sub

Sub Privado Workbook_SheetCalculate(ByVal Sh Como Objeto)
End Sub

Sub Privado Workbook_SheetChange(ByVal Sh Como Objeto, ByVal Destino Como Intervalo)
End Sub

Sub Privado Workbook_SheetDeactivate(ByVal Sh Como Objeto)
End Sub

Sub Privado Workbook_SheetFollowHyperlink(ByVal Sh Como Objeto, ByVal Destino Como Hiperlink)
End Sub

Sub Privado Workbook_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable Como PivotTable, ByVal TargetRange As Range)
End Sub

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

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

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

Sub Privado Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable)
End Sub

Sub Privado Workbook_SheetPivotTableUpdate(ByVal Sh Como Objeto, ByVal Destino Como Tabela Dinâmica)
End Sub

Sub Privado Workbook_SheetSelectionChange(ByVal Sh Como Objeto, ByVal Destino Como Intervalo)
End Sub

Sub Privado Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject)
End Sub

Sub Privado Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)
End Sub

Sub Privado Workbook_WindowActivate (ByVal Wn Como Janela)
End Sub

Sub Privado Workbook_WindowDeactivate(ByVal Wn Como Janela)
End Sub

Sub Privado Workbook_WindowResize (ByVal Wn Como Janela)
End Sub

Mais recursos

Ícone de Especialistas (cérebro, engrenagens) Pergunte aos especialistas

Conecte-se com especialistas, participe de discussões sobre as mais recentes novidades, atualizações e práticas recomendadas do Excel e leia o nosso blog.

Excel Tech Community

Ícone da Comunidade Obter ajuda na comunidade

Faça uma pergunta e encontre as soluções com os Agentes de Suporte, MVPs, Engenheiros e outros usuários do Excel.

Fórum do Excel no Answers

Ícone de solicitação de recursos (lâmpada, ideia) Sugira um novo recurso

É um prazer ler seus comentários e sugestões! Compartilhe suas ideias. Estamos ouvindo.

Fazer comentários

Confira também

Correções e soluções alternativas para problemas recentes no Excel para Mac