Re : Rendre impossible le clic sur un bouton après réponse
Bonsoir PierreJean,
Merci pour ton retour mais malheureusement ça plante !!!
Voici la Macro, peut être ai je mal situé ta proposition :
ActiveSheet.Unprotect
CellTest = Range("C11").Value
If Len(CellTest) < 4 Then
MsgBox "Au moins 4 Caractères Numériques", vbOKOnly + vbExclamation, "Erreur de caractères"
Application.Run "Programme_Menus.xls!Mot_de_Passe"
End If
If Len(CellTest) > 4 Then
MsgBox "Pas plus de 4 Caractères Numériques", vbOKOnly + vbExclamation, "Erreur de caractères"
Application.Run "Programme_Menus.xls!Mot_de_Passe"
End If
If Len(CellTest) = 4 Then
Application.Run "Programme_Menus.xls!Vérif_Mot_Passe"
End If
Button90.Visible = False
Range("C14").Select
Application.Run "Programme_Menus.xls!Module11.N_Semaine"
Application.StatusBar = False
End Sub
RV37