Problème Macro et Protection feuille EXCEL
Noemy37
Messages postés
1
Statut
Membre
-
JvDo Messages postés 2012 Statut Membre -
JvDo Messages postés 2012 Statut Membre -
Bonjour à tous,
Je suis toute nouvelle sur le forum et viens vous demander quelques petits conseils sur Excel.
Alors je m'explique : 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 journée.
Je suis toute nouvelle sur le forum et viens vous demander quelques petits conseils sur Excel.
Alors je m'explique : 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 journée.
A voir également:
- Problème Macro et Protection feuille EXCEL
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Si et ou excel - Guide
1 réponse
Bonsoir,
sans avoir testé, je ferais cela :
sans avoir testé, je ferais cela :
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
ActiveSheet.Protect "modif"
End If
End Sub A+