Discussion :

[thomas2539]

Bonjour a tous

Merci d'avance pour ceux qui prendront le temps de lire et répondre et désolé si je fait un double poste mais je n'ai trouvé nul part ma réponse après plus d'une heure de recherche

Alors je cherche à écrire une petite macro pour effectuer différentes action, notamment caché affiché des ligne et des cellule, mais pour cela j'ai besoin de "déprotégé" me feuille quand j’effectue l'opération et de la reprotégé ensuite.
Comme le titre l'indique je cherche donc le moyen de mettre un mot de passe qui dépend d'une cellule caché dans une autre feuille et tout le problème est la.

Voila la macro que j'ai écrit
Sachant que le mot de pass en question est dans la feuille "MDP" dans la cellule A1
et que c'est ma feuille secteur que j'ai besoin de "déprotégé"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub lien1()
    Dim PW As String
    PW = Sheets("MDP").Range("A1").Value
 
    Sheets("secteur").Activate
    ActiveSheet.Unprotect Password:=PW
    '...
    ActiveSheet.Protect (PW)
End Sub

Il sagit de la ligne "ActiveSheet.Unprotect Password:=PW" qui pose problème
il m'indique une erreur 1004
Et quand je passe ma souris sur "password" il m'indique "password = vide"
alors qu'il me dit bien que PW="mon mot de pass"

J'ai bien sur essayer "password = PW" ou encore "Password PW"
enfin j'ai essayer beaucoup de chose mais toujours la même erreur

Donc si quelqu'un pouvais m'aider merci beaucoup
ps 1 : j'utilise excel 2010
Ps 2 : je n'ai qu'un faible niveaux en macro donc il y a peut être une erreur toute bète

[jfontaine]

Bonjour,

Et en spécifiant la feuille directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("secteur").Unprotect PW

[thomas2539]

c'est gentil,
mais no j'ai déja essayé, merci quand même

[kiki29]

Salut, ici ton code fonctionne sans aucun problème .....

[thomas2539]

d'apres moi il devrait marché aussi mais ce n'est pas le cas, donc je doit faire quoi ? ^^

[kiki29]

Salut, ne versant pas dans la splanchnomancie, histoire de ne pas ressortir l' extispicine , que contient ton Range("A1") ? As-tu essayé ce code isolé placé dans un nouveau fichier excel vierge ?