ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Ocultar procedimentos na execução do código

Dúvidas gerais sobre Excel
Chico_Planejamento
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Sex Nov 20, 2009 1:22 pm

Ocultar procedimentos na execução do código

Mensagem por Chico_Planejamento » Sex Nov 20, 2009 1:25 pm

Boa tarde Tomas,

Criei um código que abre 8 arquivos de Excel, e usei o comando application.screenupdating = false para ocultar a execução do processo, porém observo que aparecem os arquivos sendo abertos na barra de tarefas. Há uma forma de fazer com que isso fique oculto?

Abraço



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 2806
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Ocultar procedimentos na execução do código

Mensagem por webmaster » Sex Nov 20, 2009 5:41 pm

Chico,

Tente o seguinte:

Código: Selecionar todos

Sub AbrePasta()
    Application.ShowWindowsInTaskbar = False
    Dim myBook1 As Workbook, myBook2 As Workbook
    Set myBook1 = Workbooks.Open("C:\MyBook1.xls")
    Set myBook2 = Workbooks.Open("C:\MyBook2.xls")
    'coloque as outras planilhas aqui
    Application.ShowWindowsInTaskbar = True
End Sub
A propriedade Application.Propriedade ShowWindowsInTaskbar define se haverá um botão separado na barra de tarefas do Windows para cada pasta de trabalho aberta. O valor padrão é True.Boolean de leitura/gravação.

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Responder