Code avec 2 condition

[Noemy]

Bonjour le forum,

J'ai élaboré un tableau de suivi des commandes pour mon entreprise. Dans ce tableau, il y a une colonne n° de commandes où seule une personne doit pouvoir saisir ou modifier ces numéros. J'ai donc associée 2 boutons, actuellement appelés "ON" et "OFF" qui donne acces à cette colonne par mot de passe.

Le problème est le suivant : Lorsque l'on clique sur le bouton "ON" pour aller indiquer le mot de passe, mais qu'ensuite on ne le saisi pas et que l'on annule, la protection de la feuille ne se remet pas.

Comment indiquer pour le bouton 'ON" que si l'on annule ou si le mot de passe est faux on arrete la macro et on reprotege la feuille?


Voici mon code :



Sub Macro_on()
'
' Macro_on Macro
' Macro enregistrée le 23/11/2006 par SABARD
'

ActiveSheet.Unprotect "modif"

Dim mot_de_passe As String
mot_de_passe = InputBox("Donnez le mot de passe")
If mot_de_passe = "visual" Then

Columns("F:F").Select
Selection.Locked = False
Selection.FormulaHidden = False

ActiveSheet.Protect "modif"

Else: Exit Sub
End If
End Sub
Sub Macro_off()
'
' Macro_off Macro
' Macro enregistrée le 23/11/2006 par SABARD
'

ActiveSheet.Unprotect "modif"

Columns("F:F").Select
Selection.Locked = True
Selection.FormulaHidden = False

ActiveSheet.Protect "modif"

End Sub



Si je ne suis pas assez claire, n'ésitez pas à me demander des précisions,

Merci d'avance et bonne après midi

 

[pierrejean]

Re : Code avec 2 condition

bonjour Noemy

teste ceci

Sub Macro_on()
'
' Macro_on Macro
' Macro enregistrée le 23/11/2006 par SABARD
'
Dim mot_de_passe As String
mot_de_passe = InputBox("Donnez le mot de passe")
If mot_de_passe = "visual" Then
ActiveSheet.Unprotect "modif"
Columns("F:F").Select
Selection.Locked = False
Selection.FormulaHidden = False
Else: Exit Sub
End If
End Sub
Sub Macro_off()
'
' Macro_off Macro
' Macro enregistrée le 23/11/2006 par SABARD
'
ActiveSheet.Unprotect "modif"
Columns("F:F").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect "modif"
End Sub