Mot de passe

[Sang]

Bonjour à tous
bonjour le forum
j'ai un classeur de 8 feuilles et une comme base_données,
pour selectionner la feuille base_données il faut cliquer
sur un commmandbutton.
Est-il possible d'obliger l'utilisateur de taper un mot de passe
quand clic sur le commandbutton avant la selection de la feuille
base_données.
Merci d'avance

 

[JC de Lorient]

bonjour tout le monde
qqchose comme ça devrait le faire
sans doute a modifier en fonction
Private Sub CommandButton1_Click()
Dim a As String
a = InputBox('code')
If a = 'mon_code' Then
Sheets('Feuil3').Activate
End If
End Sub

 

[Bernard_XLD]

Bonjour Sang

ajoute une inputbox au début du code (mot de passe = password dans l'exemple)

Cordialement, A+
If Not (InputBox('mot de passe') = 'password') Then Exit Sub

 

[Bernard_XLD]

salut Jc, je t'avais pas vu

 

[Sang]

Re
Merci jc de lorient,Merci yeahou
bonne journée