Erro em tempo de execução do BASIC.
‘1’
Type: com.sun.star.uno.DeploymentException
Message: component context fails to supply singleton com.sun.star.ui.theModuleUIConfigurationManagerSupplier of type com.sun.star.ui.XModuleUIConfigurationManagerSupplier
Olá, quais foram estas “várias versões” que vc testou. Precisamente, a partir de qual instalação vc encontrou esse erro? Qual seu sistema operacional? É importante dar mais informações para a comunidade lhe ajudar com mais precisão…
Também estou com o mesmo erro e atualmente estou com a versão 7.2.1.2 e já venho testando essa mesma planilha a alguns messes com outras versões.
Olá amigo, a macro é essa…
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub Menu()
Application.CommandBars("Cell").Reset
Dim cbc As CommandBarControl
For Each cbc In Application.CommandBars("cell").Controls
cbc.Visible = False
Next cbc
Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup).Caption = "Importar"
With Application.CommandBars("Cell").Controls("Importar")
x = "Folha"
.Controls.Add(Type:=msoControlButton).Caption = x
.Controls(x).OnAction = "'Importar_Folha_INSS_FGTS.Principal """ & x & """'"
.Controls(x).FaceId = 144
x = "INSS_FGTS"
.Controls.Add(Type:=msoControlButton).Caption = x
.Controls(x).OnAction = "'Importar_Folha_INSS_FGTS.Principal """ & x & """'"
.Controls(x).FaceId = 144
x = "Provisao_Decimo_Ferias"
.Controls.Add(Type:=msoControlButton).Caption = x
.Controls(x).OnAction = "Importar_Provisao_Decimo_Ferias.Principal"
.Controls(x).FaceId = 144
End With
Application.CommandBars("Cell").ShowPopup
Application.CommandBars("Cell").Reset
End Sub
A chamada “Option VDASupport 1” , não garante 100% compatibilidade com o Basic.
É necessário converter para Basic.
Poste um arquivo Modelo e o que a macro deve fazer.