Botão SAIR não fech...
 
Notifications
Clear all

Botão SAIR não fecha planilha

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

Olá... boa tarde!

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, pois, não informei a senha, só que não está fechando. Também quero que a mensagem para utilizar o botão sair não seja apresentada ao clicar no "X" ou em "SAIR" do form e está aparecendo.

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 11:34 am
depoisteconto
(@depoisteconto)
Posts: 183
Estimable Member
 

Acredito que você deseja sair da pasta de trabalho e não da planilha. Tem uma diferença nesses conceitos. Se for isso faça assim:

Substitua Application.Quit por ThisWorkbook.Application.Quit

Para não exibir a mensagem ao sair retire o trecho abaixo:

Public bye As Boolean
 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

Testei aqui e funcionou ok!

At

 
Postado : 05/09/2012 2:57 pm
Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

depoisteconto... baun cara?

Então... fiz o que sugeriu, até funcionou, porém, se eu retirar a parte que vc sugeriu, o usuário poderá fechar a planilha através do "X" (canto superior direito) e quero forçar o usuário da planilha a utilizar o botão salvar e sair.
A propósito, a senha para entrar na planilha é 1

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 3:52 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Veja um exemplo que tenho deve te ajudar....

Usuário:
Ale

Senha:
123

Att

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

 
Postado : 05/09/2012 5:48 pm
Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

alexandrevba... cara, obrigado pela dica, mas não é isso.

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 6:26 pm
Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

obrigado todos... consegui resolver.

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 7:49 pm