Mot de passe

JC de Lorient

XLDnaute Impliqué

• 5 Mai 2006

• #2

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 5 Mai 2006

• #3

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 5 Mai 2006

• #4

salut Jc, je t'avais pas vu

 

Vote positif 0 Vote négatif

S

Sang

Guest

• 5 Mai 2006

• #5

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

 

Vote positif 0 Vote négatif