Problème fermeture classeur si mauvais MDP
Bonjour,
J'ai testé à nouveau le fichier joint à le 28 Oct 2016, 09:36. Il semble fonctionné tel que demandé...
Demande du Nom en majuscule
Demande du Prénom en majuscule
Si l'un ou l'autre est erroné, une deuxième tentative est proposé. Si les infos sont correctes, ça ouvre correctement ... ou bien je n'ai rien compris (ce qui est fréquent
Ou bien tu veux que l'on teste si le nom existe dans la liste avant de demander la saisie du prénom ???
Gelinotte
Voici la partie du code qui me pose problème.
Private Sub Workbook_Open()
Dim Réponse6 As String
Worksheets("Accueil").Select
Dim Réponse1 As String
Dim Réponse2 As String
Dim Réponse3 As String
Dim codeutil As String
Dim Message As String
Dim Id As String
Dim heureenreg As String
Dim vheuremin As String
Dim id1 As String
Dim fin As String
Dim Dateenregistrement As String
Dim vdate As String
Dim vReponse As String
Dim Chance As Byte
Chance = 0
Worksheets("Accueil").Select
On Error Resume Next
'If chance = 0 Then
vReponse = MsgBox("Ce fichier est en accès limité. Souhaitez-vous réaliser de la saisie ?", vbYesNo, "SECURITE")
If vReponse = vbNo Then
Reponse = MsgBox("Vous allez passer en lecture seule" + Chr(10) & "Bonne lecture", vbExclamation + vbYesCancel)
ThisWorkbook.Saved = True
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
Else
ESSAI2:
Reponse1 = InputBox("Entrez votre nom")
If Reponse1 = "" Then
MsgBox "Vous devez saisir l'information!", vbCritical, "Attention!"
GoTo ESSAI2
End If
Reponse3 = UCase(Reponse1)
reponse2 = InputBox("Entrez votre prénom")
If reponse2 = "" Then
MsgBox "Vous devez saisir l'information!", vbCritical, "Attention!"
GoTo ESSAI2
End If
Reponse4 = UCase(reponse2)
codeutil = WorksheetFunction.VLookup(Reponse3, Worksheets("utilisateurs").Range("Utilisateurs!A2:B60"), 2, False)
If codeutil <> Reponse4 And Chance = 0 Then 'Si chance = 0, alors c'est le premier essai, donc 2nde chance
MsgBox "Désolé, mot de passe incorrect, veuillez recommencer.", vbOKOnly, "SECURITE"
Chance = Chance + 1 'Cette fois, chance = 1, ce sera donc le dernier essai
GoTo ESSAI2
End If
If codeutil <> reponse2 And Chance = 1 Then ' Chance = 1 signifie que l'utilisateur s'était déja trompé
MsgBox "Désolé, Mot de passe incorrect, le fichier va se fermer.", vbOKOnly, "SECURITE"
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.Exit
Application.DisplayAlerts = True
En fait, je viens de m'apercevoir que, si je marque au deuxième essai un bon nom et un bon prénom, ça fonctionne, mais uniquement si je les marque en majuscule.
Alors qu'au premier essai, si je marque en minuscule, ça fonctionne correctement.
Comme si, au deuxième essai, il ne prenait pas en compte les 2 lignes UCase ...
Je ne comprends pas pourquoi.
Bonjour,
En fait, je viens de m'apercevoir que, si je marque au deuxième essai un bon nom et un bon prénom, ça fonctionne, mais uniquement si je les marque en majuscule.
Alors qu'au premier essai, si je marque en minuscule, ça fonctionne correctement.
Comme si, au deuxième essai, il ne prenait pas en compte les 2 lignes UCase ...
Je viens de faire une dizaine d'essais ... sans erreur.
Est-ce que cela se produit sur tous les identifiants ?
Ou seulement sur certains ?
Si c'est seulement sur certains ... n'y aurait-il pas des accents, des trémas, ou des caractères quelconques (tiret, espace, etc.) que le code aurait de la difficulté à interpréter lors de le conversion en majuscule ?
Gelinotte
Bonjour,
Etonnant !
Il y a seulement 2 identifiants pour le moment et le problème se répercute de la même manière sur les 2.
Et l'un des 2 identifiants ne possède aucun caractère particulier...
Je viens de retester et je confirme, impossible de se connecter au deuxième essai si l'ont écrit pas les identifiants en majuscule ...
Merci.
Bonjour,
As-tu testé le fichier que j'ai attaché quelques posts plus haut ?
Ou si tu ne travaille que sur ton fichier réel ?
Je demande, parce que je viens encore de tester à nouveau et j'ai un toujours un succès qui me laisse pantois.
Peux-tu enlever les données personnelles et me faire parvenir une copie ... en message privé au pire ...
Gelinotte
Bonjour Gelinotte,
Oui j'ai testé mais il n'y a pas de UCase dans cette macro. Le problème ne se pose donc pas.
Je t'envoie le fichier en MP.
Merci.