Protection déprotection de cellules

Fred0o

XLDnaute Barbatruc

• 25 Avril 2011

• #2

Re : Protection déprotection de cellules

Bonsoir filouplatchaud,

Si tu demandais à Henri, il te dirait ceci :

VB:

ActiveSheet.Unprotect Password:="TonMotDePassse"

A+

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 25 Avril 2011

• #3

Re : Protection déprotection de cellules

Bonsoir filouplatchaud,

Ligne à mettre en début de ta macro :

Code:

ActiveSheet.Unprotect "MotdePasse"

et en fin de macro :

Code:

ActiveSheet.Protect "MotdePasse"

Remplace le texte entre guillemets par ton mot de passe, sinon tu n'écris rien si tu n'en a pas.

Espérant avoir répondu.

Cordialement.

Edit : bonsoir Fred0o.

 

Vote positif 0 Vote négatif

filouplatchaud

XLDnaute Occasionnel

• 25 Avril 2011

• #4

Re : Protection déprotection de cellules

ok merci a vous cela fonctionne mais en fait c'est plus compliqué que ça
la une fois que je suis sur la feuille en question elle est protégé mais dés que j'ai entré des données elle ne l'ai plus
mais je croie qu'il est l'heure de me coucher demain debou 4h30
mais ce week end j'aurais plus de temps
merci a vous

 

Dernière édition: 25 Avril 2011

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 25 Avril 2011

• #5

Re : Protection déprotection de cellules

filouplatchaud à dit:

la une fois que je suis sur la feuille en question elle est protégé mais dés que j'ai entré des données elle ne l'ai plus

Cliquez pour agrandir...

Re filouplatchaud,

Alors le plus simple est d'utiliser la protection avec l'option suivante (code à saisir dans le Module ThisWorkbook) :

Code:

Private Sub Workbook_Open()
Sheets("Feuil1").Protect "MotdePasse", userinterfaceonly:=True
End Sub

L'option interfaceuseronly permet à la feuille d'être modifiée par macro, la protection ne s'appliquant que pour les interventions de l'utilisateur.

N'oublies pas de remplacer le nom de la feuille et le mot de passe par tes données.

Cordialement.

 

Vote positif 0 Vote négatif

filouplatchaud

XLDnaute Occasionnel

• 26 Avril 2011

• #6

Re : Protection déprotection de cellules

merci Papou_net
ça fonctionne tres bien mais en fait j'ai douze feuilles
douze fois le code ou ?????

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 26 Avril 2011

• #7

Re : Protection déprotection de cellules

Salut filouplatchaud, le fil,
Tout d'abord, mes salutations à Papou_net 🙂 ainsi qu'à l'ami Fred0o
Voici une solution suivant la proposition de Papou_net :

VB:

Option Explicit

Private Sub Workbook_Open()
Dim Sh As Worksheet

For Each Sh In Worksheets
    Sh.Protect "MotdePasse", userinterfaceonly:=True
Next Sh

End Sub

Cordialement,

Étienne

 

Vote positif 0 Vote négatif