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

Botão SAIR não fecha planilha

6 Posts
3 Usuários
0 Reactions
1,433 Visualizações
(@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.

 
Postado : 05/09/2012 11:34 am
(@depoisteconto)
Posts: 183
Reputable 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)
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

 
Postado : 05/09/2012 3:52 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

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

Usuário:
Ale

Senha:
123

Att

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

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

 
Postado : 05/09/2012 6:26 pm
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

obrigado todos... consegui resolver.

 
Postado : 05/09/2012 7:49 pm