How to Hide All of the Excel’s Buttons - Close ❌ Maximize ➕ Minimize ➖ - Video 112
HTML-код
- Опубликовано: 15 сен 2024
- This video was motivated by a question from one of ours subscribers, he wants to know how to hide all of the Excel’s buttons when his application is in the full screen.
I confess, when I read his question on this content, on time I though, oh man, I have another video to my channel!!! This thing is very exciting, because almost the entire content in my channel comes from question, doubts and another things, some of these are from my work, but others are from subscriber’s questions.
Well, sorry about my text and let’s watch the video.
I hope you like this and share this content with your network and friends, I'd like you to subscribe to my channel, if you didn't do this yet, leave a comment and Thumbs Up!!
▬▬▬▬▬▬▬▬▬▬▬ஜ۩۞۩ஜ▬▬▬▬▬▬▬▬▬▬▬▬▬
▓▓▓▒▒▒░░░ READ THE DESCRIPTION ░░░▒▒▒▓▓▓
▬▬▬▬▬▬▬▬▬▬▬ஜ۩۞۩ஜ▬▬▬▬▬▬▬▬▬▬▬▬▬
β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β
👉 Link Arquivo Download: 1drv.ms/x/s!At...
β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β
β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β
👉 Link Inscrição Canal: www.youtube.co...
β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β β
Parabéns !! Sua didática é otima, e material diferenciado.
Procurei por décadas por este código! Gratidão meu amigo. Inscrito com sucesso. 😉👍
Eu que agradeço, fico muito feliz com seu comentário!!
É AMIGÃO, BAIXEI TUA PLANILHA E MESMO ASSIM NÃO FUNCIONOU. MAS PARABÉNS PELOS VIDEOS E EXCELENTE TRABALHOS EM EXCEL. SEMPRE AJUDA MUITO!
Derley, tudo bem!!
Que estranho, é um código padrão e deveria funcionar.
O que tenho visto, é que de versão para versão, o Office tem reformulado coisas e nem sempre funcionam do modo esperado. Você usa que versão do Office?
@@valdereiantunes Opa meu amigo, aqui coloquei tudo dentro de um módulo que eu já tinha criado e funcionou lisinho.
Apaguei todo o código do meu módulo e colei esse código, depois chamei no Open da minha pasta de tabalho (Call Ocultar tudo)
Só isso. Vou deixar o código todo já aqui abaixo, só copiar e colar dentro do seu módulo:
'OCULTA OS BOTÕES MINIMIZAR / MAXIMIZAR E FECHAR DA BARRA DO EXCEL
'Fonte:ideiasnew.wordpress.com
'Reformulado por Valderei Antunes
'Canal Soluções em Excel + VBA
'=============================================================================================================================
'Sem as declarações abaixo as macros para retirar e repor os botões não funcionarão
'Elas já estão com as declarações PtrSafe - office 64 bits
Declare PtrSafe Function FindWindow32 Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer
Declare PtrSafe Function GetWindowLong32 Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Integer, ByVal nIndex As Integer) As Long
Declare PtrSafe Function SetWindowLong32 Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Integer, ByVal nIndex As Integer, _
ByVal dwNewLong As Long) As Long
Global Const GWL_STYLE = (-16)
Global Const WS_SYSMENU = &H80000
'=============================================================================================================================
'Os dois próximos procedimentos, irão usar as API'S para ocultar a barra de status do Excel
'Ocultar a barra de status da worksheet
Sub RetiraXdaBarra()
Application.ScreenUpdating = False
Dim WindowStyle As Long
Dim hWnd As Integer
Dim WindowName As String
Dim result As Variant
WindowName = Application.Caption
hWnd = FindWindow32(0&, ByVal WindowName)
WindowStyle = GetWindowLong32(hWnd, GWL_STYLE)
WindowStyle = WindowStyle And (Not WS_SYSMENU)
result = SetWindowLong32(hWnd, GWL_STYLE, WindowStyle)
'Força a barra de títulos a se atualizar, Ocultando os Botões
Application.Caption = "OCULTAR TODOS OS BOTÕES"
ActiveWindow.Caption = "OCULTAR TODOS OS BOTÕES"
'Application.ScreenUpdating = True
End Sub
'=============================================================================================================================
'PROCEDIMENTO PARA REPOR E RETIRAR O X DA BARRA DO EXCEL
Sub RepoeXdaBarra()
Application.ScreenUpdating = True
Dim WindowStyle As Long
Dim hWnd As Integer
Dim WindowName As String
Dim result As Variant
WindowName = Application.Caption
hWnd = FindWindow32(0&, ByVal WindowName)
WindowStyle = GetWindowLong32(hWnd, GWL_STYLE)
WindowStyle = WindowStyle Or WS_SYSMENU
result = SetWindowLong32(hWnd, GWL_STYLE, WindowStyle)
'Força a barra de títulos a se atualizar, Retornando os Botões
Application.Caption = "OCULTAR TODOS OS BOTÕES"
ActiveWindow.Caption = "OCULTAR TODOS OS BOTÕES"
End Sub
'=============================================================================================================================
'PROCEDIMENTO PARA OCULTAR_TUDO E EXIBIR_TUDO
Sub Ocultar_Tudo()
'Menu superior
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)"
'barra de Fórmulas
Application.DisplayFormulaBar = False
'barra de status
Application.DisplayStatusBar = False
'Cabeçalhos
ActiveWindow.DisplayHeadings = False
'Guias da planilha
ActiveWindow.DisplayWorkbookTabs = False
'Linhas de grade
ActiveWindow.DisplayGridlines = False
'barras horozontais
ActiveWindow.DisplayHorizontalScrollBar = False
'barras verticais
ActiveWindow.DisplayVerticalScrollBar = False
With Application
.WindowState = xlMaximized
End With
'Call RetiraXdaBarra
End Sub
'=============================================================================================================================
Sub Mostrar_Tudo()
'Menu superior - As chamadas Ribbons
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)"
'barra de Fórmulas
Application.DisplayFormulaBar = True
'barra de status
Application.DisplayStatusBar = True
'Cabeçalhos
ActiveWindow.DisplayHeadings = True
'Guias da planilha
ActiveWindow.DisplayWorkbookTabs = True
'Linhas de grade
'ActiveWindow.DisplayGridlines = True
'barras horozontais
ActiveWindow.DisplayHorizontalScrollBar = True
'barras verticais
ActiveWindow.DisplayVerticalScrollBar = True
With Application
.WindowState = xlMaximized
End With
Call RepoeXdaBarra
End Sub
'=============================================================================================================================
@@lborgespro , que serviço fantástico, muito obrigado por compartilhar!!!
@@lborgespro No meu não funcionou nenhum dos códigos, Excel Pro 2019
Muito bom, goste, Obrigado!i
Valeu, obrigado.
Olá bom dia!como faço pra entrar em contato contigo?
Contato na descrição.
ATUALIZA PARA NÓS ESTA INFORMAÇÃO PQ ESTA NAO DEU CERTO NOVO EXCEL
Emerson Fonseca, tudo bem!!!!
Arquivo atualizado e funcionando perfeitamente.
Agradeço seu comentário e se encontrar mais algum arquivo com problema de funcionamento, me avise que venho ver o que pode estar ocorrendo.
Abraço e obrigado pela inscrição no canal.
Bora compartilhar este conteúdo com a turma.
Valderei, Can you send me the file please🙏👍👍👍👍👍
Redha, thanks for you coment.
I'm going to ask you to send an e-mail for me - valderei.antunes@gmail.com.
Muito bom esse material. Será que tem como modificar a cor da guia superior também?
Não entendi sua pergunta, Jorge.
Você conseguiu resolver?
@@valdereiantunes Tinha conseguidi resolver, porém estava no Office 2010. Na Black Friday comprei uma licença do Office 2019 e o código não funciona mais. Os botões voltaram a aparecer.
@@valdereiantunes O código infelizmente deixou de funcionar com o Office 2019, ou seja, os botões de MINIMIZAR, MAXIMIZAR e FECHAR, não ficam mais ocultos.
Office 2021 no Windows 11: NÃO FUNCIONOU. Há alguma versão atualizada dessa macro?
Oi, Fábio, obrigado pelo comentário, mas infelizmente não, o 365 atualizou e acabou mexendo com algumas linhas de código que usávamos, por hora sem remédio.
Muito bom esse conteúdo, estava procurando um outro tema sobre códigos e encontrei esse aqui, que servirá muito bem num Database que estou criando, com o Excel oculto e uso via UseForm's apenas.
Esse código me deu a ideia de colocar a primeira página de abertura do Database numa planilha do Excel mesmo mas em FullScreen com tudo oculto, apenas a identificação que colocarei e o restante acesso via botão de comando.
Vou testar aqui para ver como fico, muito grato pelo conteúdo, pelos comentários só estou em dúvida se irá funcionar no Office 2016 Professional Plus (64bits).
Fala André Oak, tudo bem!!
Fico feliz em poder ajudar e se ainda não é, faça sua inscrição, se já for, muito obrigado pela força.
Quanto a dúvida, sim, se fizer alguns ajustes no código ele poderá funcionar em 64bits, este disponibilizado ainda não foi feito.
Olá professor, parabéns pelo vídeo, baixei o exemplo, uso a versão 360 do Office e não está funcionando...
Olá James, tudo bem.
A versão do office 365 é 32 ou 64 bits, se for 64, não irá funcionar mesmo.
@@valdereiantunes Opa, bom dia, mas existe uma solução alternativa para isso? PQ o VBA já está funcionando perfeitamente em 64 bits...
@@jamesoliveira599 tudo bem.
Podemos ver para fazermos alguns comentários no código dela e fazer funcionar, realmente, li uma material esta semana e dizia que a grande maioria das funções podem ser aplicadas para o 64 bits.
Boa noite Valderei -
Meu sistema é 64bits e meu Excel é o 365 e o código com a API para Ocultar Botão Fechar - Maximizar e Minimizar da Planilha não funciona como resolver isso?
Já vasculhei a ‘internet’ atrás de uma API para VBA que funcione e não encontrei
Conseguiu resolver?
Se não conseguiu, veja se a versão de seu Office 365 não é 64 bits, se for este é o causador da não funcionalidade da API.
Para funcionar nas versões 64Bits é só trocar aonde está escrito "As Integer" por "As LongLong"
boa tarde, gostaria de saber como fazer para que quando abrir o excel, ele abra uma planilha de menu que criei? obrigado
Gerson, tudo bem.
O menu que foi criado, você usou algum programa de terceiro ou criou usando o modo desenvolvedor do Office 365?
Voce poderia colocar a sequencia para copiar e colar na descrição?
Oi, Erick, posso sim, farei isso no final de semana, Ok.
Bom dia, gostaria de saber como fazer este mesmo procedimento para desativar os mesmos botões no access
Não faço ideia com mexer em Acess, apesar de compartilhar o VBE, ele tem suas formas diferentes.
Vou ficar te devendo a resposta.
Mas pode dar uma passada no Forum MaximoAccess - www.maximoaccess.com, acredito que lá tenha a resposta para sua dúvida.
Seria perfeito se funcionasse em todas as versões! A minha de 2019 não rolou :/
Pujoni, pode ser outro problema e não a versão 2019, acredito que sua instalação seja 64 bits, e como estas funções do Office usam bibliotecas da versão 32 bits, pode haver erro nisso, verifica para nós e me retorne.
Para funcionar nas versões 64Bits é só trocar aonde está escrito "As Integer" por "As LongLong"
Isso mesmo, com esta alteração elas irão funcionar.
Meu amigo, boa tarde. Como faço para adaptar para sistema de 64 bits?
Jean, se puderes, recomendo que use 32 bits, esta sua versão, somente se for estritamente necessária, pois ela não permite o uso de muitos códigos de VBA.
eu queria saber como mudar isso
James, tudo certo.
Não entendi sua dúvida.
@@valdereiantunes é tipo .....puts eu n sei explicar
Olá Professor,
Fiz o passo a passo e não funcionou, poderia me ajudar?
Já falamos via e-mail.
Professor obrigado pela ajuda, deu certo
Oi, eu atualizei meu office para o 365 e a macro não está mais desabilitando os ícones de minimizar, maximizar e fechar. Me ajuda?
Oi Cristiane, tudo bem!!!
Muito estranho, nada deveria mudar apenas pelo motivo de ter atualizado para a versão mais recente do office, pois todo o conteúdo que posto aqui, é feito no Microsoft365.
Veja se ao invés de ter instalado a versão 32bits, foi instalada a versão 64bits, se está última estiver na sua máquina, poderá mesmo gerar conflito com alguns códigos de VBA.
@@valdereiantunes acho q foi isso.
Posso trocar os numero 32 por 64 no codigo?
Quando abro meu google não aparece essas abas minimizar maximizar e ocultar fica preto onde era pra ter
Samuel, você deve usar o pacote desktop do Office para utilizar as funções de VBA, na versão web, não há suporte.
Posso trocar os numero 32 por 64 no codigo? Para funcionar em versão de 64bits.
Cristiane, tudo bem.
Na verdade a menção para 32, é para funcionar no 64, a ideia é "enganar" ou fazer o excel versão 64 aceitar os códigos.
Testei aqui mas apenas deixa em tela cheia e não remove o os botões minimizar Maximizar e fechar da barra (Ocultar Tudo) o que eu fiz de errado?
Olá, tudo bem!!
Interessante, acabo de testar a planilha e para mim funcionou direito.
Pessoal, mais alguém com problemas de funcionamento do código??
@@valdereiantunes eu utilizo o Sistema de 64bits testei se alguêm souber a solução
@@_armagedom_system_6175 interessante, pois este código deveria funcionar em 64 bits. Veja se consegue testar em outro equipamento com 32btis.
@@valdereiantunes não funcionou tbem!!!
Um Amigo me ajudou e agora funcionou professor