Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Ocultar barra de títulos

Ir para baixo 
2 participantes
Ir à página : 1, 2  Seguinte
AutorMensagem
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Ocultar barra de títulos   Ocultar barra de títulos EmptySáb Fev 04, 2012 1:56 am

Gostaria de saber se tem como ocultar a barra de títulos, e como (é para não aparecer os botões de minimizar, restaurar e fechar).

Agradeço a ajuda antecipadamente.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySáb Fev 04, 2012 4:10 am

Boa noite!!!

Aqui tem o que você quer e mais um pouco
Código:
Private Sub Workbook_Open()

Application.ScreenUpdating = False
Application.DisplayFullScreen = True
ActiveWindow.WindowState = xlMaximized

For I = 1 To Toolbars.Count
Toolbars(I).Visible = False
Next

With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = True
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = True
.WindowState = xlMaximized
End With

With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.DisplayNoteIndicator = False
End With

End Sub
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySáb Fev 25, 2012 7:05 am

Tentei fazer mas não consegui...
Onde que coloco este código? Seria dentro da macro auto_open?



alexandrevba escreveu:
Boa noite!!!

Aqui tem o que você quer e mais um pouco
Código:
Private Sub Workbook_Open()

Application.ScreenUpdating = False
Application.DisplayFullScreen = True
ActiveWindow.WindowState = xlMaximized

For I = 1 To Toolbars.Count
Toolbars(I).Visible = False
Next

With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = True
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = True
.WindowState = xlMaximized
End With

With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.DisplayNoteIndicator = False
End With

End Sub
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySáb Fev 25, 2012 12:10 pm

Bom dia!

Ao abrir o Editor VBA (EVBA), com o comando Alt+ F11 do lado esquerdo dê 2 click's em EstaPasta_De_Trabalho.

Cole o código lá dentro
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptyDom Fev 26, 2012 1:06 am

Não mudou nada na aparência... ainda fica aparecendo os 3 botões (minimizar, restaurar e fechar).



alexandrevba escreveu:
Bom dia!

Ao abrir o Editor VBA (EVBA), com o comando Alt+ F11 do lado esquerdo dê 2 click's em EstaPasta_De_Trabalho.

Cole o código lá dentro
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptyDom Fev 26, 2012 1:09 am

Boa noite!!

Consegue tirar proveito desse exemplo..

A senha é ale
http://www.sendspace.com/file/815e6o
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptyDom Fev 26, 2012 1:58 am

Seria alguma planilha?
O que abriu foi uma tela solicitado First Name e Email.
O que faço?


alexandrevba escreveu:
Boa noite!!

Consegue tirar proveito desse exemplo..

A senha é ale
http://www.sendspace.com/file/815e6o
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptyDom Fev 26, 2012 3:42 am

Tem como postar seu arquivo? bom
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptyDom Fev 26, 2012 5:53 am

Como faço para postar?


alexandrevba escreveu:
Tem como postar seu arquivo? bom
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptyDom Fev 26, 2012 1:39 pm

Bom dia!!

albino Poste em site gratuito como o 4Shred ou SendSpce.

Faça um cadastro em um desses, após isso faça a postagem e nos mande o link.

At++ sunny
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptyDom Fev 26, 2012 7:22 pm

Segue o link:
http://www.4shared.com/get/7XE6A2uv/Lanamentos.html



alexandrevba escreveu:
Bom dia!!

albino Poste em site gratuito como o 4Shred ou SendSpce.

Faça um cadastro em um desses, após isso faça a postagem e nos mande o link.

At++ sunny
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptyDom Fev 26, 2012 7:52 pm

Me mandou o link errado!! Twisted Evil
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptyDom Fev 26, 2012 8:28 pm

Segue novamente:
http://www.4shared.com/file/yQLuLllO/Lancamentos.htm

Caso dê errado favor buscar por Lancamentos.xlsm no 4shared.



alexandrevba escreveu:
Me mandou o link errado!! Twisted Evil
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySeg Fev 27, 2012 12:49 am

Boa noite!!!

Baixe o anexo

Check de forma criteriosa, pois o código bloqueia a ação sobre a janela da guia cyclops
http://www.4shared.com/file/wp-55Xdn/Lancamentos.html

Att
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySeg Fev 27, 2012 1:04 am

Boa noite!

Não entendi...
E não consegui baixar o arquivo pelo link...



alexandrevba escreveu:
Boa noite!!!

Baixe o anexo

Check de forma criteriosa, pois o código bloqueia a ação sobre a janela da guia cyclops
http://www.4shared.com/file/wp-55Xdn/Lancamentos.html

Att
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySeg Fev 27, 2012 1:19 am

Boa noite!!


Aquinochess......
Citação :
Caso dê errado favor buscar por Lancamentos.xlsm no 4shared.
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySeg Fev 27, 2012 1:26 am

Qdo faço a busca só aparece o que postei, e não o seu!



alexandrevba escreveu:
Boa noite!!


Aquinochess......
Citação :
Caso dê errado favor buscar por Lancamentos.xlsm no 4shared.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySeg Fev 27, 2012 1:50 am

Boa noite!!!

http://www.4shared.com/file/wp-55Xdn/Lancamentos.html

Muito estranho, veja na sua busca tem o nome do arquivo e quem postou o arquivo.

Antes tente o link para ver se vai dar certo.

Outra coisa, use o link quando estiver logado!
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySeg Fev 27, 2012 2:02 am

Consegui baixar, só que o problem apersiste, ou seja, qdo minimizo e volto para o arquivo não está mais no modo tela cheia... e os botões de minimizar, restaurar e fechar também estão aparecendo.



alexandrevba escreveu:
Boa noite!!!

http://www.4shared.com/file/wp-55Xdn/Lancamentos.html

Muito estranho, veja na sua busca tem o nome do arquivo e quem postou o arquivo.

Antes tente o link para ver se vai dar certo.

Outra coisa, use o link quando estiver logado!
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySeg Fev 27, 2012 2:07 am

Boa noite!!!

Mais como eu havia dito a janela está bloqueada, correto!!!
Acrescente...
Código:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)
Wn.WindowState = xlMaximized
EnableResize = False
End Sub
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySeg Fev 27, 2012 2:13 am

Onde?

alexandrevba escreveu:
Boa noite!!!

Mais como eu havia dito a janela está bloqueada, correto!!!
Acrescente...
Código:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)
Wn.WindowState = xlMaximized
EnableResize = False
End Sub
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySeg Fev 27, 2012 2:17 am

Boa note!!!

Dentro de EstaPasta_De_Trabalho.

Código:
Option Explicit
Private Sub Workbook_Open()
Application.ThisWorkbook.Protect Windows:=True
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)
Wn.WindowState = xlMaximized
EnableResize = False
End Sub
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySeg Fev 27, 2012 3:30 am

Qdo ponho lá e salvo fica sem poder fechar a planilha no x, e tb com o alt+f4 (o objetivo não é impedir de fechar, e sim não aparecer os botões de fechar, minimizar e restaurar). E tb nao está ficando sempre tela cheia.
Deu certo aí no ceu?



alexandrevba escreveu:
Boa note!!!

Dentro de EstaPasta_De_Trabalho.

Código:
Option Explicit
Private Sub Workbook_Open()
Application.ThisWorkbook.Protect Windows:=True
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)
Wn.WindowState = xlMaximized
EnableResize = False
End Sub
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySeg Fev 27, 2012 3:49 am

Boa noite!!!

hora essa.... mas não foi sua ideia de desabilitar os botões Suspect
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos EmptySeg Fev 27, 2012 3:57 am

O que eu quero é ocultar a barra de títulos, ou seja não aparecer os 3 botões, que são: MINIMIZAR, RESTAURAR, FECHAR. Isso obrigaria o usuário a fechar a planilha sempre pelo botão fechar que ficará dentro da planilha (já possuo uma macro que fecha a planilha e salva sem fazer a pergunta se desejo salvar alterações).
Então, gostaria de uma macro, ou códigos, que ocultasse a barra de títulos.


alexandrevba escreveu:
Boa noite!!!

hora essa.... mas não foi sua ideia de desabilitar os botões Suspect
Ir para o topo Ir para baixo
Conteúdo patrocinado





Ocultar barra de títulos Empty
MensagemAssunto: Re: Ocultar barra de títulos   Ocultar barra de títulos Empty

Ir para o topo Ir para baixo
 
Ocultar barra de títulos
Ir para o topo 
Página 1 de 2Ir à página : 1, 2  Seguinte
 Tópicos semelhantes
-
» Barra de Ferramentas e Macros
» Barra percentual do progresso de execução de uma macro
» Macro para ocultar fórmulas
» Ocultar excel
» Mostrar e ocultar colunas para vários departamentos

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: