PROBLEMA COM VBA EXCEL
Bom dia.
Estou com problemas em máquinas clientes, para executar uma aplicação que desenvolvi em VBA. Nas máquinas do local onde trabalho nenhuma apresenta o erro.
Os clientes quando abrem o arquivo excel da aplicação recebem o seguinte erro:
Run-Time error [ô]1004[ô]: Can't move focus to the control because it is invisible, not enabled, or of a type that does not accept the focus.
O método Open do Workbook tem o código abaixo.
Private Sub Workbook_Open()
With Application
.ActiveWorkbook.ChangeFileAccess xlReadOnly
.ActiveWorkbook.Protect Structure:=False, Windows:=False
.Visible = False
.ActiveWindow.DisplayHeadings = False
.ActiveWindow.DisplayHorizontalScrollBar = False
.ActiveWindow.DisplayVerticalScrollBar = False
.ActiveWindow.DisplayWorkbookTabs = False
.Sheets([Ô]Filtro[Ô]).Visible = True
.Sheets([Ô]Contas[Ô]).Visible = True
.Sheets([Ô]Combo[Ô]).Visible = True
.DisplayAlerts = False
End With
frmPrincipal.Show
End Sub
Alguém já viu este problema, tem algum idéia de como solucionar ?
Estou com problemas em máquinas clientes, para executar uma aplicação que desenvolvi em VBA. Nas máquinas do local onde trabalho nenhuma apresenta o erro.
Os clientes quando abrem o arquivo excel da aplicação recebem o seguinte erro:
Run-Time error [ô]1004[ô]: Can't move focus to the control because it is invisible, not enabled, or of a type that does not accept the focus.
O método Open do Workbook tem o código abaixo.
Private Sub Workbook_Open()
With Application
.ActiveWorkbook.ChangeFileAccess xlReadOnly
.ActiveWorkbook.Protect Structure:=False, Windows:=False
.Visible = False
.ActiveWindow.DisplayHeadings = False
.ActiveWindow.DisplayHorizontalScrollBar = False
.ActiveWindow.DisplayVerticalScrollBar = False
.ActiveWindow.DisplayWorkbookTabs = False
.Sheets([Ô]Filtro[Ô]).Visible = True
.Sheets([Ô]Contas[Ô]).Visible = True
.Sheets([Ô]Combo[Ô]).Visible = True
.DisplayAlerts = False
End With
frmPrincipal.Show
End Sub
Alguém já viu este problema, tem algum idéia de como solucionar ?
Eu ja vi problemas semelhantes.... sugiro vc colocar um super DO EVENTS antes do [Ô]frmPrincipal.Show[Ô].
Vc já foi em:
Excel / Ferramentas / Macro / Segurança / Editores confiaveis
e marcou a opção [Ô]Confiar no acesso ao projeto no Visual Basic[Ô]
marca lá e tenta.
Excel / Ferramentas / Macro / Segurança / Editores confiaveis
e marcou a opção [Ô]Confiar no acesso ao projeto no Visual Basic[Ô]
marca lá e tenta.
TVREIS2009
Já havia tentado isso, mas não resolveu.
Agradeço ao ASHKATCHUP e ao TVREIS2009
Consegui identificar o problema. A linha abaixo em destaque causava o erro, agora não sei responder o motivo.
Private Sub Workbook_Open()
With Application
.ActiveWorkbook.ChangeFileAccess xlReadOnly
.ActiveWorkbook.Protect Structure:=False, Windows:=False
.Visible = False
.ActiveWindow.DisplayHeadings = False
.ActiveWindow.DisplayHorizontalScrollBar = False
.ActiveWindow.DisplayVerticalScrollBar = False
.ActiveWindow.DisplayWorkbookTabs = False
.Sheets([Ô]Filtro[Ô]).Visible = True
.Sheets([Ô]Contas[Ô]).Visible = True
.Sheets([Ô]Combo[Ô]).Visible = True
.DisplayAlerts = False
End With
frmPrincipal.Show
End Sub
Tópico encerrado , respostas não são mais permitidas