Notifications
Clear all

OCULTAR BARRA DE TAREFAS DO WINDOWS COM VBA EXCEL

10 Posts
3 Usuários
0 Reactions
3,454 Visualizações
(@romelvsr)
Posts: 0
New Member
Topic starter
 

Bom dia, amigos!
Sou recém-chegado aqui no fórum e estou precisando de uma ajuda no qual a resposta não estou encontrando.
Estou precisando ocultar a barra de tarefas do windows automaticamente no evento Workbook_Open para que a planilha preencha toda a área do desktop.
Alguém consegui me ajudar?

 
Postado : 01/02/2018 9:25 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!
Veja se ajuda:

Option Explicit 
 'Fonte: http://www.vbaexpress.com/kb/getarticle.php?kb_id=54
Dim handleW1 As Long 
 
Private Declare Function FindWindowA Lib "user32" _ 
(ByVal lpClassName As String, _ 
ByVal lpWindowName As String) As Long 
 
Private Declare Function SetWindowPos Lib "user32" _ 
(ByVal handleW1 As Long, _ 
ByVal handleW1InsertWhere As Long, ByVal w As Long, _ 
ByVal x As Long, ByVal y As Long, ByVal z As Long, _ 
ByVal wFlags As Long) As Long 
 
Const TOGGLE_HIDEWINDOW = &H80 
Const TOGGLE_UNHIDEWINDOW = &H40 
 
Function HideTaskbar() 
    handleW1 = FindWindowA("Shell_traywnd", "") 
    Call SetWindowPos(handleW1, 0, 0, 0, 0, 0, TOGGLE_HIDEWINDOW) 
End Function 
 
Function UnhideTaskbar() 
    Call SetWindowPos(handleW1, 0, 0, 0, 0, 0, TOGGLE_UNHIDEWINDOW) 
End Function 

Att

 
Postado : 01/02/2018 9:38 am
(@romelvsr)
Posts: 0
New Member
Topic starter
 

Me perdoe a ignorância... Sou iniciante no vb, estou estudando ainda.
Vc me informa onde coloco o código para que funcione quando abrir a planilha no evento Workbook_Open.
Preciso também desabilitar a ocultação quando fechar a planilha.

Obrigado!

 
Postado : 01/02/2018 9:53 am
(@romelvsr)
Posts: 0
New Member
Topic starter
 

Joguei no modulo mas sinalizou o texto em vermelho. O que estou fazendo de errado? Segue em anexo print

 
Postado : 01/02/2018 10:15 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

No link está explicativo.

1.Copy the code above.
2.Open any file.
3.Hit Alt+F11 to open the Visual Basic Editor (VBE).
4.Click Insert - Module, paste code in right window.
5.Close the VBE.
6.Create two forms buttons using the Forms toolbar, and assign one to the macro Filename.xls.Module1.HideTaskbar; and assign the other to the macro Filename.xls.Module1.UnhideTaskbar.

Crie Dois Botões usando Forms Control, click com o botão direito Atribuir Macro

Baixe o arquivo no link, caso não consiga resolver por si só.

Att

 
Postado : 01/02/2018 10:48 am
(@romelvsr)
Posts: 0
New Member
Topic starter
 

A macro funcionou, só que o que ela faz é ocultar os ícones da barra de tarefas não a barra de tarefas. Observe no print em anexo, a planilha ainda fica por trás da barra de tarefas. Como podemos resolver isso Alexandre?

 
Postado : 01/02/2018 1:19 pm
(@romelvsr)
Posts: 0
New Member
Topic starter
 

Alguém pode me ajudar?

 
Postado : 02/02/2018 7:17 am
(@klarc28)
Posts: 0
New Member
 

Há um site que ensina como fazer:

http://www.macoratti.net/d040102.htm

 
Postado : 02/02/2018 7:42 pm
(@romelvsr)
Posts: 0
New Member
Topic starter
 

klarc28

Foi o que eu já tinha feito. A mesma situação que mencionei no print acima.
Observa no print acima como a planilha fica por trás da barra de tarefas. Essa macro oculta os ícones da barra.
Será que não tem como resolver isso?

 
Postado : 03/02/2018 12:18 pm
(@romelvsr)
Posts: 0
New Member
Topic starter
 

klarc28

Foi o que eu já tinha feito. A mesma situação que mencionei no print acima.
Observa no print acima como a planilha fica por trás da barra de tarefas. Essa macro oculta os ícones da barra.
Será que não tem como resolver isso?

?

 
Postado : 05/02/2018 6:41 am