| Ocultar barra de títulos | |
|
|
|
Autor | Mensagem |
---|
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Ocultar barra de títulos Sá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. | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Ocultar barra de títulos Sá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
| |
|
| |
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Re: Ocultar barra de títulos Sá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
| |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Ocultar barra de títulos Sá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 | |
|
| |
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Re: Ocultar barra de títulos Dom 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 | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Ocultar barra de títulos Dom Fev 26, 2012 1:09 am | |
| Boa noite!!
Consegue tirar proveito desse exemplo..
A senha é ale http://www.sendspace.com/file/815e6o | |
|
| |
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Re: Ocultar barra de títulos Dom 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 | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Ocultar barra de títulos Dom Fev 26, 2012 3:42 am | |
| Tem como postar seu arquivo? | |
|
| |
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Re: Ocultar barra de títulos Dom Fev 26, 2012 5:53 am | |
| Como faço para postar? - alexandrevba escreveu:
- Tem como postar seu arquivo?
| |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Ocultar barra de títulos Dom Fev 26, 2012 1:39 pm | |
| Bom dia!! 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++ | |
|
| |
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Re: Ocultar barra de títulos Dom Fev 26, 2012 7:22 pm | |
| Segue o link: http://www.4shared.com/get/7XE6A2uv/Lanamentos.html - alexandrevba escreveu:
- Bom dia!!
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++ | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Ocultar barra de títulos Dom Fev 26, 2012 7:52 pm | |
| Me mandou o link errado!! | |
|
| |
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Re: Ocultar barra de títulos Dom 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!!
| |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Ocultar barra de títulos Seg 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 http://www.4shared.com/file/wp-55Xdn/Lancamentos.html Att | |
|
| |
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Re: Ocultar barra de títulos Seg 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 http://www.4shared.com/file/wp-55Xdn/Lancamentos.html
Att | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Ocultar barra de títulos Seg Fev 27, 2012 1:19 am | |
| Boa noite!! Aquinochess...... - Citação :
- Caso dê errado favor buscar por Lancamentos.xlsm no 4shared.
| |
|
| |
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Re: Ocultar barra de títulos Seg 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.
| |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Ocultar barra de títulos Seg 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! | |
|
| |
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Re: Ocultar barra de títulos Seg 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! | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Ocultar barra de títulos Seg 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 | |
|
| |
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Re: Ocultar barra de títulos Seg 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 | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Ocultar barra de títulos Seg 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
| |
|
| |
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Re: Ocultar barra de títulos Seg 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
| |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Ocultar barra de títulos Seg Fev 27, 2012 3:49 am | |
| Boa noite!!! hora essa.... mas não foi sua ideia de desabilitar os botões | |
|
| |
Mitterrand
Mensagens : 36 Data de inscrição : 03/02/2012
| Assunto: Re: Ocultar barra de títulos Seg 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 | |
|
| |
Conteúdo patrocinado
| Assunto: Re: Ocultar barra de títulos | |
| |
|
| |
| Ocultar barra de títulos | |
|