Notifications
Clear all

Desabilitar botão fechar

11 Posts
3 Usuários
0 Reactions
8,860 Visualizações
(@adriano-nogueira)
Posts: 19
Active Member
Topic starter
 

Bom dia amigos.
Gostaria de saber como faço para desabilitar o botão “Fechar” (o x na área superior da tela)
Tem algum código no VBA que permita eu fazer isto?
Desde já agradeço.

 
Postado : 25/06/2012 8:21 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Existem meios de fazer o que quer, porém não exatamente como diz na sua postagem, pois é desagradável se for feito ao pé da letra!!!

Motivo: Como vai inverter tal ação?

Diga com DETALHES o que pretende!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/06/2012 11:26 am
(@adriano-nogueira)
Posts: 19
Active Member
Topic starter
 

Estou criando uma pesquisa teste de bebidas.
Queria que o entrevistado fosse obrigado a votar.
Eu já consegui inserir uma janela de erro se estiver alguma pergunta em branco, e também fiz que o entrevistado não possa escrever na célula nem um nome, a não ser as opções.
Mas mesmo com toda essa segurança o entrevistado ainda pode fazer os seguintes passos para deixar a pesquisa em branco.
Ele pode preencher as perguntas e quando terminar pode clicar no X e aparecera uma janela perguntando “Deseja salvar as alterações feitas em ‘nome da planilha. Xlsm’?”
Eo entrevistado pode simplesmente clicar em não ea planilha ficara novamente em branco.
Por isso eu gostaria de desabilitar todas as formas possíveis da planilha ser fechada, e ficara somente disponível para fechamento da planilha uma macro que eu criarei para fechar a planilha

 
Postado : 25/06/2012 12:18 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Isso para mim não faz sentido!!!

Qual a diferença de fechar a planilha em Botão de Comando ou no no botão fechar "X" do excel ???? :?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/06/2012 5:00 pm
benzadeus
(@benzadeus)
Posts: 78
Trusted Member
 

http://www.ambienteoffice.com.br/office ... ormulario/

Felipe Costa Gualberto
Microsoft Excel MVP
http://www.ambienteoffice.com.br

 
Postado : 27/06/2012 6:38 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite, segue o anexo, com o exemplo.

att MarkoSoftware

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/06/2012 4:40 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Benza, pelo que eu entendi ele quer desabilitar o botão fechar 'X' do EXCEL e não do Formulário!!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/06/2012 5:11 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Acredito que os exemplos abaixo resolvam a questão :

Botão fechar (X) do Userform fechar também o arquivo [Resolvido]
viewtopic.php?f=10&t=3910&hilit=bot%C3%A3o+fechar

Desabilitar Botão Sair x
viewtopic.php?f=23&t=375&p=1302&hilit=QueryClose#p1302

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/06/2012 5:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Uma outra forma, seria maximizar a tela escondendo as barras de Menus ou até personalizando a mesma:

codigo VBA para ocultar barra de ferramentas
viewtopic.php?f=10&t=2640&p=11614&hilit=ribbon#p11614

Personalizar Menu no Excel
viewtopic.php?f=10&t=3827&hilit=ribbon

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/06/2012 5:52 pm
benzadeus
(@benzadeus)
Posts: 78
Trusted Member
 

Desculpem-me, falha minha.
Adriano,
Através do Ctrl+Alt+Del, o usuário conseguirá fechar a Aplicação do Excel (acho que o evento On Key não consegue capturar a combinação Ctrl+Alt+Del). Há uma série de outras formas de se sair do Excel também, além dessas.
No entanto, experimente colar o código abaixo na classe de EstaPasta_de_trabalho:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox "Responda as perguntas e pare de tentar de sair do Excel, malandro!"
    Cancel = True
End Sub

Felipe Costa Gualberto
Microsoft Excel MVP
http://www.ambienteoffice.com.br

 
Postado : 28/06/2012 7:00 pm
(@adriano-nogueira)
Posts: 19
Active Member
Topic starter
 

Boa noite, segue o anexo, com o exemplo.

att MarkoSoftware

Cara esse comando ta quase perfeito. Tem como somente trocar a Imputbox por outra? Pois eu gostaria de que o botao ficasse Inutilizavel.
Desde ja Obrigado, me deu uma Luz!
:)

 
Postado : 04/07/2012 7:59 am