Erro em abertura de arquivo com Macro autoexecutável

Se executo a macro não automaticamente, funciona normal, mas se coloco para executar na Abertura do arquivo, aparece estes erros. ( Em Win10 + Libo7421 )

erro3

erro4
ESTRANHO é que, em Standard Module1 não tem

erro5

A macro é esta:

' xplan = planilha de aberura ( menu do arquivo )
' xtitulo = título que mostra no cabeçãlho da tela
'Para abrir TELA INTEIRA na abertura do arquivo
'Ferramentas / Personalizar / Eventos
'Ao abrir documento
'ligar a MACRO ok.
Dim oSheet As Object
Dim oController As Object
oSheet = ThisComponent.Sheets.getByName( "MOVIMENTAÇÃO DE PRODUTO" )  '<== Planilha a Visualizar Inicialmente.
oController = ThisComponent.CurrentController
With oController
 .setActiveSheet(oSheet)
 .ColumnRowHeaders = False
 .SheetTabs = False
 .Frame.LayoutManager.HideCurrentUI = True
 .HorizontalScrollBar = False
 .VerticalScrollBar = False 
 .Frame.Title = "C O N T R O L E    D E    E S T O Q U E"
end With
end Sub

Ela oculta os Menus, Barras de ferramentas, etc etc, só fica visível a planilha.

1 Like

vnd.sun.star.script:Standard.Module1.LoadingLibraries?language=Basic&location=application
.
Informa que a macro em questão foi atribuída ao aplicativo, não ao arquivo.
.

method: ‘LoadingLibraries’
location: ‘application’

Quando atribuída ao documento, fica assim:

location: ‘document’

Dê uma olhada em Ferramentas > Personalizar > Eventos
.
Na Caixa de Lista Salvar em: selecione por LibreOffice desvincule ou refaça a atribuição da macro para ver se resolve.