Créer une invite de code verrou

Bonjour à tous,

J’aimerais créer un code verrou à mon fichier.

A l’ouverture du fichier, que ce soit la feuille Accueil seule qui s’affiche.

Si la valeur de cellule D1 de la Feuille Bdd est différente de celle de E1, alors le message « Vous n’êtes pas autorisé » s’affiche (MsgBox) après suit l’invitation (InputBox) dans lequel il doit taper le code qui devra être enregistré toujours dans la cellule D1.

Mais si ce code donné est toujours différent de celle de E1, le message (MsgBox) de « code erroné » est affiché et le fichier se ferme.

Dans le cas où le code est bon (il est enregistré toujours en D1 ) et le MsgBox s’affiche avec « Bienvenu » et le fichier est accessible à l’utilisateur ainsi que les autres feuilles visibles.

Quelqu’un pourrait m’aider svp ?

J'ai essayé avec ce code qui ne fonctionne pas

Private Sub Workbook_Open()
Dim code As Long, Boncode As Long, essai As Long
essai = Sheets("Bdd").Range("D1").Value
Boncode = Sheets("Bdd").Range("E1").Value
If essai = Boncode Then
MsgBox " BIENVENU !", vbInformation, "  AUTORISATION ACCORDEE"
Else
MsgBox "Vous n'êtes pas autorisés à utiliser ce fichier."
code = Application.InputBox("Tapez le code reçu ", "CODE D'ACCES", Type:=1)
essai = code
MsgBox "CODE ERRONE VEUILLEZ RESSAYER SVP!"
ThisWorkbook.Close True
End If
End Sub

Bonsoir,

sans vouloir faire de pub pour BrunoM45, avez vous regardé ceci ?

@ bientôt

LouReeD

Merci. J'ai jeté un coup d’œil mais ça parait plutôt compliqué avec les paramétrages à faire. Je cherche à l'adapter sans userform et sans nombre limite d'essai.

Je continue d'essayer merci.

J’ai essayé de bricoler à ma manière et ça marche parfaitement. (car je voulais me passer des userform).

Néanmoins je trouve ça long pour cette tâche. S’il y a une personne pour le rendre plus fluide, je suis preneur.

Afin d’y parvenir, j'étais obligé de prendre une cellule intermédiaire (C1) pour stockage des propositions de code.

Le code d’accès ici est 2022, si ça peut aider quelqu’un.

Merci à tout le forum.