bonjour,
J'ai réalisé une userform avec une checkbox que voici
Private Sub CheckBox1_Click()
If CheckBox1 = True Then protect_function
End Sub
Private Sub protect_function()
mdp_protect = InputBox("Saisir le mot de passe:", toto)
If Reponse = toto ThenDim wb As Workbook
Set wb = Workbooks.Open("C:\Documents and Settings\DuboscL\Desktop\fichier matrice.xls")
Else
UserForm2.Show
End If
End Sub
Le problème c'est que même si je rentre un mauvais mot de passe il m'ouvre la fichier matrice. Il ne prend pas du tout en compte la partie "else". Quel est le code VBA pour dire "si le mot de passe est bon alors..."
Deuxième question, comment faire disparaître une checkbox après avoir coché un choix? ma fenètre reste toujours ouverte même après avoir coché la case.
Merci à tous
J'ai réalisé une userform avec une checkbox que voici
Private Sub CheckBox1_Click()
If CheckBox1 = True Then protect_function
End Sub
Private Sub protect_function()
mdp_protect = InputBox("Saisir le mot de passe:", toto)
If Reponse = toto ThenDim wb As Workbook
Set wb = Workbooks.Open("C:\Documents and Settings\DuboscL\Desktop\fichier matrice.xls")
Else
UserForm2.Show
End If
End Sub
Le problème c'est que même si je rentre un mauvais mot de passe il m'ouvre la fichier matrice. Il ne prend pas du tout en compte la partie "else". Quel est le code VBA pour dire "si le mot de passe est bon alors..."
Deuxième question, comment faire disparaître une checkbox après avoir coché un choix? ma fenètre reste toujours ouverte même après avoir coché la case.
Merci à tous