none
Inutilizar ctrl+break RRS feed

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

    quarta-feira, 12 de dezembro de 2007 18:55

Respostas

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

     

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

     

    quarta-feira, 12 de dezembro de 2007 23:21
    Moderador

Todas as Respostas

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

     

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

     

    quarta-feira, 12 de dezembro de 2007 23:21
    Moderador
  • 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..

     

    quinta-feira, 13 de dezembro de 2007 10:18
  •  

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

     

    quinta-feira, 13 de dezembro de 2007 10:30