Oter protection d'une feuille faite par macro
Résolu
paulo
-
paulo -
paulo -
Bonjour,
J'ai mis en place une macro pour protéger une feuille Excel.
Le code :
Sub Macro1()
Range("A1").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect Password = "azerty", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Le problème ? Si j'essaye manuellement d'oter la protection de la feuille en rentrant le mot de passe azerty, il me répond mot de passe invalide !
Plus grave ... Si j'ecris une macro pour libérer la feuille mais qui ne contient pas le bon mot de passe, ca ote la protection quand meme !
Sub Macro2()
ActiveSheet.Unprotect Password = "zerty"
End Sub
Avez vous une idée ? Merci d'avance
J'ai mis en place une macro pour protéger une feuille Excel.
Le code :
Sub Macro1()
Range("A1").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect Password = "azerty", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Le problème ? Si j'essaye manuellement d'oter la protection de la feuille en rentrant le mot de passe azerty, il me répond mot de passe invalide !
Plus grave ... Si j'ecris une macro pour libérer la feuille mais qui ne contient pas le bon mot de passe, ca ote la protection quand meme !
Sub Macro2()
ActiveSheet.Unprotect Password = "zerty"
End Sub
Avez vous une idée ? Merci d'avance
A voir également:
- Oter protection d'une feuille faite par macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- K9 web protection - Télécharger - Contrôle parental
- Bruler une feuille de laurier - Guide
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
1 réponse
Salut,
tout simplement parce que le mot de passe n'est pas correctement pris en compte
il est impératif qu'il y ai un double point entre passeword et =
ActiveSheet.Protect Password:="azerty"
dans ce cas le déprotection sera précise et seulement
ActiveSheet.Unprotect Password:="azerty"
sera pri en compte
tout simplement parce que le mot de passe n'est pas correctement pris en compte
il est impératif qu'il y ai un double point entre passeword et =
ActiveSheet.Protect Password:="azerty"
dans ce cas le déprotection sera précise et seulement
ActiveSheet.Unprotect Password:="azerty"
sera pri en compte
paulo
Merci Mike, c'est beaucoup plus efficace avec une syntaxe correcte. J'aurais pu chercher longtemps !
