[VBA-E] protection deprotection feuille

**lio62** · 19/01/2007, 19h07

bonjour,

j'ai un userform avec un togglebutton qui lorsque je l'active me fait apparaitre a l'écran la feuille dotation protégée mais si je veux la déprotéger par outil protection et que je mets le mot de passe il me dit qu'il est erronné
je suis obligé de rentrer dans la macro et de mettre unprotect au lieu de protect dans le code

dautre part lorsque je quitte pui reviens dans le fichier il me lance automatiquement un userform et ce userform vient renseigner ma feuille dotation et la c'est le plantage il me dit que la feuille est protégée.
je pensais qu'avec la 2eme ligne de code (....userinterfaceonly:=True)
les macros pouvait renseignées les feuilles.? merci

Code :

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

1
2
3
  Sheets("DOTATION").Activate
Worksheets("dotation").protect password = "mp"
 Worksheets("dotation").protect userinterfaceonly:=True

**ouskel'n'or** · 19/01/2007, 20h44

Une question à la fois : Pour déprotéger par macro, tu n'as pas besoin du mot de passe

Code :

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

    ActiveSheet.Unprotect

ou

Code :

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

1
2
3
Worksheets("NomDeLaFeuille").visible = True
Worksheets("NomDeLaFeuille").Unprotect
Worksheets("NomDeLaFeuille").Activate

... si tu veux faire "tout ça"

Pour la seconde question, peux-tu préciser ce que tu veux ?
A+

**lio62** · 19/01/2007, 21h07

C'est la suite de la première la 2eme ligne de code je pensais qu"elle pemettait de proteger la feuille mais en meme temps permettait à une macro de pouvoir intervenir sur cette meme feuille.

Code :

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

1
2
3
4
5
 
Sheets("dotation").Activate
     'Worksheets("dotation").Unprotect "mp"
      ActiveSheet.Unprotect
     Range("b1") = MATERIEL.ComboBox1

avec activesheet.Unprotect il me demande le mot de passe et il me dit qu'il est faux pourquoi??????

**mortalino** · 20/01/2007, 00h07

Salut,

et oui, il faut un mot de passe même par macro pour déprotéger une feuille.

Sinon ce serait trop facile.
Si quelqu'un protège une feuille, pas par macro mais à la méthode manuelle, s'il suffisait derrière d'une macro sans connaitre le mot de passe, j'en aurai supprimé, des protection... :-)

@++

**SfJ5Rpw8** · 20/01/2007, 00h13

juste une chose lio62 .. ton mot de passe c'est bien mp ..?

**lio62** · 20/01/2007, 10h35

non c'est un autre mais je n'allais pas le mettre sur le forum, mon mot de passe fait 4 lettres et ca fait des années que je l'utilise.
'Worksheets("dotation").protect "mp"
et si je lance cela et que je quitte puis reviens sur mon fichier il me demande le mot de passe pour déprotéger et me dit constamment qu'il est faux.
pourtant comme je l'ai écrit plus haut
userinterfaceonly:=True permettait d'écrire par macro sur une feuille protégée par cela et si je déprotège la feuille tout le monde peut tout détruire

**SfJ5Rpw8** · 20/01/2007, 10h44

qu'elle est ta version d'excel ...? il me semble que l'on à déjà parlé de ce probléme sur ce forum... et qu'aprés la version 2003.. il y avais plusieurs changement sur la gestion des protection/dé-protection feuilles...

VBA-protection classeur et feuille sous Excel 2003 et 97

**ouskel'n'or** · 20/01/2007, 12h19

En effet, mortalino, j'ai fait mon test sans enregistrer le fichier. Une fois enregistré, fermé et ré-ouvert, ça passe pu

Autant pour moi. Je vous laisse entre vous... mes tests avec Excel 2003 me découragent

**ouskel'n'or** · 20/01/2007, 13h24

Comme ça m'énervait (j'ai utilisé la protection de feuilles dans un trentaine d'appli) j'ai trouvé une syntaxe qui fonctionne sur Excel 2003, avec les paramètres de protection par défaut d'une feuille de calculs - paramètres inutile de préciser) ça donne ça :

Code :

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

1
2
    Worksheets("Feuil1").Protect ("zizou")
    Worksheets("Feuil1").Unprotect ("zizou")

Quelque soit le paramètre de protection ajouté, ça "boogue"
En attendant une version plus mieux complète

Tu dis
A+

**lio62** · 20/01/2007, 18h38

au boulot c'est 2000 chez moi 2003 mais ca bogue partout comment puis je faire pour protéger cette feuille? a chaque ouverture

**SfJ5Rpw8** · 20/01/2007, 18h45

bon finalement tu utilise quoi comme code ...? tu est sur que ta feuille n'est pas protégé avant ... l'exécution..? tu as un message d'erreur..?

**ouskel'n'or** · 20/01/2007, 19h11

Tu devrais essayer ça :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Workbook_open()
    ActiveWorkbook.RunAutoMacros Which:=xlAutoOpen
End Sub
 
Sub Auto_open()
    With Application
        Application.Worksheets("Feuil1").Protect ("zizou")
    End With
End Sub

L'avantage est que ça fonctionnera aussi bien sur office 97 que 2003
A+

PS - Je viens de tester ça qui fonctionne aussi sur 2003

Code :

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

1
2
3
4
Sub Workbook_open()
    Application.EnableEvents = True
    Application.Worksheets("Feuil1").Protect ("zizou")
End Sub

Jète un oeil là, à workbook_open, adresse donnée par bbil sur un autre post

**lio62** · 20/01/2007, 21h39

bon je viens de tester c pas facile je finis par tout mélanger

j'ai tout déprotéger c'est la galère

ne serait il pas possible de protéger juste a l'activation de cette feuille ???

**ouskel'n'or** · 21/01/2007, 09h19

Si, tu peux faire ça mais avant, où mets-tu le code que je t'ai passé, j'ai l'impression que c'est là que se situe le problème. Tu dois le mettre dans un module standard -> Editeur VB -> Insertion -> Module standard
Tu ne dois pas le mettre dans "Thisworkbook"

Maintenant, pour protéger la feuille lors de son activation : Editeur VB -> Deux clics sur le nom de la feuille ouvre la page de code de la feuille
Tu ignores ou effaces la macro qui s'inscrit par défaut et tu mets celle-ci

Code :

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

1
2
3
4
Private Sub Worksheet_Activate()
    Application.EnableEvents = True
    Application.Worksheets("Feuil1").Protect ("zizou")
End Sub

Testé et tout sur 2003

Mais dis-nous où tu mettais ton code, j'aimerais comprendre tes problèmes avec mon code précédent

A+

NB - Attention : Ce code ne fonctionne pas si tu ouvres le classeur sur la feuille à protéger, il ne fonctionne que si tu ouvres sur une autre feuille et que tu sélectionnes la dite feuille

**lio62** · 21/01/2007, 11h44

bonjour,
j'ai eu les pires misères pour repondre ma connexion a suté bon enfin

je recapitule un peu lorsque j'ouvre mon fichier materiel il arrive sur la page menu et un userform me demande des renseignements et les recopie dans ma feuille dotation. seulement c'est que maintenant il me demande de deprotéger la feuille dotation pour pouvoir y inscrire ces renseignements ce n'est pas ce que je veux, je veux qu'il les inscrive sans me demander quoi que se soit de toute manière m^me si ma feuille est déprotégee a ce moment là ce n'est pas grave ils n'y ont pas accés a ce stade j'ai donc mis dans le code de ma feuille dotation ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Worksheet_Activate()
    Application.EnableEvents = True
    Application.Worksheets("dotation").Protect ("mp")
End Sub
dans l'auto open
 
Sub auto_open()
Sheets("menu").Range("a1") = ""
With Application
       Application.Worksheets("dotation").Protect ("lerb")
  End With
 
MATERIEL.Show
End Sub

mais il me demande toujours de deprotger ma feuille dotation par contre le mot de passe fonctionne comment m'y prendre

dans le toogle button qui permet d'accéder a la fauille dotation j'ai pour l'instant enlevé toute protection

pour info ouskel'nor tu avais raison j'avais mis la permière partie dans le this workbook
en tous cas merci à tous.. on n'est pas loin de la vérité

**ouskel'n'or** · 21/01/2007, 12h42

Passe ton code au moment où...

Envoyé par tu

seulement c'est que maintenant il me demande de deprotéger la feuille dotation pour pouvoir y inscrire ces renseignements ce n'est pas ce que je veux,

A+

**lio62** · 21/01/2007, 16h34

tu veux dire quoi par là ?

**ouskel'n'or** · 21/01/2007, 19h31

Quel est le code qui provoque la demande de dé-protection de la feuille dotation ?
A quel moment ? A la suite d'un clic sur un bouton ? D'une quelconque opération ? Laquelle ?
A+