Protection de feuille Excel

L

Léa

Nous a quitté

Repose en paix

• 25 Février 2005

• #2

Bonjour,

c'est logique, si tu sélectionnes toutes les feuilles de ton classeur cela revient à vouloir protéger toutes les feuilles du classeur, donc le classeur lui même. C'est pourquoi l'option 'Ptrogéger une feuille' n'a plus raison d'être et seule l'option 'Protéger le classseur' subsiste.

Bonn ejournée
Léa

 

Vote positif 0 Vote négatif

S

Snake

Guest

• 25 Février 2005

• #3

Bijour,

Malheur pour moi alors ....
Je dois envoyer li doc à 240 users ...
Ji vais devoir me taper li manip pour .... OUUUIIINN ...

Merci à toi pour ce coup di massue ....

Merci pour les infos...


A+

Snake

 

Vote positif 0 Vote négatif

L

Léa

Nous a quitté

Repose en paix

• 25 Février 2005

• #4

Un petit complément à ce que je t'ai dit dans le message précédent :
ceci est également vrai si tu sélectionnes plusieurs feuilles sans sélectionner toutes les feuilles, donc avec 2 feuilles sélectionnées en même temps tu as le même problème
Pour éviter de faire la manip x fois, feuille par feuille, utilises un code en VBA

For I=1 to N ' N étant le nombre de feuilles consécutives à protéger
Worksheets(I).Protect
Next I

Léa

 

Vote positif 0 Vote négatif

S

Snake

Guest

• 25 Février 2005

• #5

Ji vais test,

Merci bcp Léa

Snake

 

Vote positif 0 Vote négatif

S

Snake

Guest

• 25 Février 2005

• #6

Re moi,

Je ne suis pas très doué ...
Peut être que j'utilise mal ta formule ....
Je récapitule :

J'ai 1 fichier Excel :

Dans lequel j'ai 10 feuilles :
Feuilles1, Feuilles2 ..etc


Je dois protéger les 8 premières feuilles :
Et dans c'est 8 feuilles, je dois avoir des cellules
qui ne sont pas verrouillé :

Colonne E11 jusqu'à E51 et Colonne E56 jusqu'à E67

Ta formule est elle à mettre dans chaque feuilles ...?

Voili , voilà ....

Merci

Snake

 

Vote positif 0 Vote négatif

L

Léa

Nous a quitté

Repose en paix

• 25 Février 2005

• #7

D'abord, petit oubli de ma part dans le bout de code que je t'avais donné, mille excuses
Il faut activer la feuille pour pouvoir la protéger

Deuxiémement voici un bout de code que tu peux mettre dans un module et appeler chaque fois que tu en as besoin

Sub protection()
Application.ScreenUpdating = False
For P = 1 To Sheets.Count
Sheets(P).Activate
Range('A1').Select
Next P
Application.ScreenUpdating = True
End sub

Attention la boucle 'tournera' de la feuille 1 à la dernière feuille (Sheets.Count), si tu veux t'arrêter à la 10 ème feuille tu remplaces Sheets.Count par 10

Maintenant pour appeler ce bout de code tu peux par exemple créer un bouton sur ta première feuille et lui adjoindre ce code ou l'appeler avec la fonction Call, donc en écrivant
Call protection

J'espère avoir été assez claire, sinon rappelle moi
Léa

 

Vote positif 0 Vote négatif

S

Snake

Guest

• 25 Février 2005

• #8

Tjs mi ...

Oui tu as été assez clair mais ji ni connait rien en VBA ...
Oh pire ji t'envoie mon fichier ...

A+

Snake

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 25 Février 2005

• #9

Bonjour Snake et re Léa,


Exemple d'un classeur avec 10 feuilles.

Deux macros une pour protéger et l'autre pour déprotéger.

le mot de passe est snake, original n'est-ce-pas !

Cordialement

CBernardT [file name=ProtecUnprotectFeuilles.zip size=11555]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ProtecUnprotectFeuilles.zip[/file]

 

Pièces jointes

• ProtecUnprotectFeuilles.zip

  11.3 KB · Affichages: 23

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 25 Février 2005

• #10

Re,

Petite modif sur For x = 2 To 8

Sub unProtectFeuilles()
Dim x As Byte
Application.ScreenUpdating = False
For x = 1 To 8
With Sheets(x)
.EnableSelection = xlNoRestrictions
.Unprotect Password:='snake'
End With
Next x
Application.ScreenUpdating = True
End Sub

Cordialement

CBernardT

 

Vote positif 0 Vote négatif

S

Snake

Guest

• 25 Février 2005

• #11

Merci Léa ...

Mais petit hic , ton tableau fait le contraire de ce que je voulais ...

Je veux bloquer toutes les cellules des 8 premières feuilles, hormis
Les cellules : E11:E51 et E56:E67

Merci bcp

Snake

 

Vote positif 0 Vote négatif

L

Léa

Nous a quitté

Repose en paix

• 25 Février 2005

• #12

Evidemment je n'ai ajouté aucun paramétrage à ma protection, de ce fait toute la feuille est protégée

Il faut donc, avant de protéger ta feuille, sélectionner les cellules à ne pas protéger
'Format'
'Cellules'
'Protection'
'Vérrouillée' (cocher pour protéger, décocher pour laisser l'accès libre)

seul problème pour automatiser ceci par un code VBA, il faut que j'y réflechisse

Léa

 

Vote positif 0 Vote négatif

L

Léa

Nous a quitté

Repose en paix

• 25 Février 2005

• #13

Essaie ceci

Sub protection()
Application.ScreenUpdating = False
For P = 1 To Sheets.Count
Sheets(P).Activate
Sheets(P).Range('E11:E51 , E56:E67').Locked = False
Range('A1').Select
sheets(P).Protect
Next P
Application.ScreenUpdating = True
End sub

ça devrait répondre à ta question
Léa

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 25 Février 2005

• #14

Une réponse de G DAVID, ici :

Lien supprimé

Because dédoublement du fil...

Ca a l'air bien...

 

Vote positif 0 Vote négatif

L

Léa

Nous a quitté

Repose en paix

• 25 Février 2005

• #15

Bonjour Brigitte,

heureuse de te croiser sur le Forum
J'avais vu le fil précédent, mais malheureusement Snake est 'exigeant' et de ce fait la réponse de David, que j'avais également formulée, ne répond pas complètement à sa demande, d'où mon complémént d'informations

Peut-être à ce soir
Bisous
Léa

 

Vote positif 0 Vote négatif