OCULTAR BARRA DE TAREFAS DO WINDOWS
Alguém sabe me informar qual código que uso para ocultar e reexibir a barra de tarefas do Windows? O meu problema é em VBA EXCEL. Obrigado!
Ocultando e reexibindo barras de ferramentas do Excel
Abra o excel, entre no editor de VBA , alt+f11, insira um módulo e copie o
código abaixo;
Sub Ocultar()
Dim barras
For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen
= True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Sub Reexibir()
Dim barras
Application.EnableCancelKey =
xlDisabled
On Error Resume Next
For Each barras In
Application.CommandBars
barras.Enabled = True
Next
Application.DisplayFormulaBar = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
** Obs. Este código de ocultar as barras pode ser colocado também em
EstaPasta_de_trabalho para que quando inicializado seu arquivo de excel o mesmo
já oculte as barras.**
veja se é isto
Abra o excel, entre no editor de VBA , alt+f11, insira um módulo e copie o
código abaixo;
Sub Ocultar()
Dim barras
For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen
= True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Sub Reexibir()
Dim barras
Application.EnableCancelKey =
xlDisabled
On Error Resume Next
For Each barras In
Application.CommandBars
barras.Enabled = True
Next
Application.DisplayFormulaBar = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
** Obs. Este código de ocultar as barras pode ser colocado também em
EstaPasta_de_trabalho para que quando inicializado seu arquivo de excel o mesmo
já oculte as barras.**
veja se é isto
MARCELO-TREZE
Eu já estou usando este código na minha planilha, porém preciso usar as barras de rolagem e quando habilito-as a barra de rolagem horizontal fica atrás da barra de tarefas no windows por isso quero oculta-la e reexibi-la novamente depois de fechar a planilha.
Obrigado
Eu já estou usando este código na minha planilha, porém preciso usar as barras de rolagem e quando habilito-as a barra de rolagem horizontal fica atrás da barra de tarefas no windows por isso quero oculta-la e reexibi-la novamente depois de fechar a planilha.
Obrigado
Para ficar mais claro o que eu queria mesmo é que no Vba Excel, Eu Precisava Ativar E Desativar Opção: Ocultar Automaticamente A Barra De Tarefas Do Windows Xp. Alguém pode me ajudar?
vê se isso ajuda:
http://www.freevbcode.com/ShowCode.asp?ID=5229
http://www.freevbcode.com/ShowCode.asp?ID=5229
Grande MARCOSLING,
Valeu cara!!!! é exatamente isso!!!! Funcionou perfeitamente. Muito obrigado mesmo. Estou fechando o tópico e pontuando você.
Um abraço!
Valeu cara!!!! é exatamente isso!!!! Funcionou perfeitamente. Muito obrigado mesmo. Estou fechando o tópico e pontuando você.
Um abraço!
Tópico encerrado , respostas não são mais permitidas