Notifications
Clear all

Botão para fechar planilha

6 Posts
2 Usuários
0 Reactions
1,890 Visualizações
Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Pesquisando aqui no site e na internet, consegui montar um esquema para desativar o "fechar" do excel (canto superior direito) e criei um botão para salvar e sair da planilha sem confirmação. Acontece que, coloquei uma mensagem quando clicar no "X" solicitando ao usuário que utilize o botão "Salvar e Sair", até aqui tudo bem, só que, quando clico no botão "Salvar e Sair", a mensagem também é exibida. Depois que a mensagem é exibida, o excel até é fechado, só que não quero que esta mensagem seja exibida ao clicar no botão.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 05/09/2012 8:44 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 If bye = False Then
 Cancel = Not bye
    MsgBox "Favor utilizar o botão ''Salvar e Sair'' da planilha.", vbCritical, "Atenção..."
End If
End Sub

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

 
Postado : 05/09/2012 9:12 am
Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Perfeito

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 05/09/2012 9:16 am
Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Reinaldo???

Estou imaginando uma planilha aqui, porém, existe um problema que não estou conseguindo resolver.

Seguinte... nesta planilha terá uma senha para entrar, entretanto, quando clico no "X" ou no botão "SAIR" para fechar o form da senha, a planilha deveria ser fechada, só que não está fechando. E também depois que utilizei a dica que me passou acima, a mensagem para utilizar o botão sair está aparecendo e a mesma não deve aparecer.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 05/09/2012 9:33 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Em nossa base deve ter algo que precisa...
Veja em:
viewtopic.php?f=10&t=4708&p=24496&hilit=bot%C3%A3o+X+fechar#p24496

:D

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

 
Postado : 05/09/2012 9:38 am
Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Boa tarde!!

Em nossa base deve ter algo que precisa...
Veja em:
http://www.planilhando.com.br/forum/vie ... har#p24496

:D

alexandrevba... boa tarde!

Já pesquisei, acontece que o que desejo é algo diferente de tudo que existe na base de dados... acho que terá que adaptar o código em esta_pastadetrabalho.
Baixe o anexo e dê uma olhada.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 05/09/2012 9:52 am