bonjour,
j'aimerais mettre un mot de passe à l'ouverture d'un classeur excel. donc à l'ouverture du classeur, une petite box avec le mot de passe à rentrer...si il n'y a pas de mot de passe..le classeur ne s'ouvre pas (ou se referme tout de suite)
seulement il ne se ferme pas si le mot de passe est incorrecte..voici mon code
Private Sub Workbook_Open()
MotPass = InputBox("Taper un mot de passe", "mot de passe")
If Sheets("données pour calcul").Range("H4") = "" Then
If MotPass = Sheets("données pour calcul").Range("H4") Then
Sheets("situation personnelle").Activate
Else
Cancel = True 'je pense que c'est là que çA fonctionne pas ...mais je sais pas quoi écrire d'autre
End If
Else
Sheets("situation personnelle").Activate
End If
End Sub
pouvez-vous me dire où ça ne vas pas ? merci d'avance
salutations
j'aimerais mettre un mot de passe à l'ouverture d'un classeur excel. donc à l'ouverture du classeur, une petite box avec le mot de passe à rentrer...si il n'y a pas de mot de passe..le classeur ne s'ouvre pas (ou se referme tout de suite)
seulement il ne se ferme pas si le mot de passe est incorrecte..voici mon code
Private Sub Workbook_Open()
MotPass = InputBox("Taper un mot de passe", "mot de passe")
If Sheets("données pour calcul").Range("H4") = "" Then
If MotPass = Sheets("données pour calcul").Range("H4") Then
Sheets("situation personnelle").Activate
Else
Cancel = True 'je pense que c'est là que çA fonctionne pas ...mais je sais pas quoi écrire d'autre
End If
Else
Sheets("situation personnelle").Activate
End If
End Sub
pouvez-vous me dire où ça ne vas pas ? merci d'avance
salutations