Inutilizar ctrl+break

Question

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..

Answer 1

Poste o código utilizado para validar a abertura do form.

 

É possível que a propriedade EnableCancelKey sirva neste caso.

 

Answer 2

Private Sub Workbook_Open()
    form_inicial.Show vbModal
End Sub

 

 

Private 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 Sub

 

 

Vou 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..

 

Answer 3

 

Private Sub UserForm_QueryClose(cancel As Integer, CloseMode As Integer)
    If Not txt_senha = "senha" Then
        cancel = True
    End If
End Sub