Usuário com melhor resposta
Inutilizar ctrl+break

Pergunta
-
A paz a todos..
Bom, ao iniciar uma pasta de trabalho fiz um form q pede senha para entrar, caso contrario não entrará, exceto se precionar ctrl+break, msm estando o projeto com código...Tem algum modo de inutilizar ctrl+break??
Ahh, alguém sabe a tecla de atalho para colocar num txt.box.passwordchar igual a senha deste forum(bolinha em negrito)..
Obrigado..
Respostas
Todas as Respostas
-
-
Private Sub Workbook_Open()
form_inicial.Show vbModal
End SubPrivate Sub txt_senha_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And Shift = 0 Then
If txt_senha.Text = "senha" Then
Unload Me
Else
txt_senha.Text = ""
KeyCode = 0
txt_senha.SetFocus
MsgBox "Senha Inválida! ", vbCritical, "Erro"
End If
End If
End Sub
Private Sub UserForm_QueryClose(cancel As Integer, CloseMode As Integer)
cancel = True
End SubVou ter q mudar o jeito de travar o sair do form, pois deste jeito mesmo com a senha correta não consegue descarregar o form..
-