Protection d'une plage de plusieurs colonne

bonjour,

--> (je copie ma réponse à JP-V)

je peux vous donner le conseil que m'a soumis Patrick Penet :


vous pouvez effectivement vous passer de verrouiller ces cellules, vous

interceptez la saisie ds ces colonnes par Worksheet_Change
if intersect(Target...... etc etc) ,
en effacant systématiquement le contenu des cellules concernées
eventuellement en affichant un msg d'erreur

Moi je ne connais que le fait de verrouiller l'ensemble d'une page en
laissant libre certaines cellules; après le nombre de cellules libres
peut être important; mais ce n'est peut-êtr ap la meilleure solution
bonne journée

Céline

Bonjour a tous!
Voila mon probleme, je voudrais seulement proteger les colonnes C et D de ma
feuille avec VB.
Parceque si je la verouille la feuille entiere je ne peut plus inseré de
commentaire dans les autres cellules meme non verouillée.

Je reste dispo pour toute information complementaires .
Merci d'avance et @++++

Bonjour,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If (Target.Column = 3 Or Target.Column = 4) And Target.Count = 1
Then
ActiveSheet.Unprotect Password:="jacques"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect Password:="jacques"
End Sub

Cordialement JB

Bonjour a tous!
Voila mon probleme, je voudrais seulement proteger les colonnes C et D de ma
feuille avec VB.
Parceque si je la verouille la feuille entiere je ne peut plus inseré de
commentaire dans les autres cellules meme non verouillée.

Je reste dispo pour toute information complementaires .
Merci d'avance et @++++

deja merci pour ta reponse celine mais pourrais-tu etre un peu plus presise
quand au code VB a utiliser parceque je suis encore a mes balbutiment en
matiere de VB.
Merci @+

bonjour,

--> (je copie ma réponse à JP-V)

je peux vous donner le conseil que m'a soumis Patrick Penet :


vous pouvez effectivement vous passer de verrouiller ces cellules, vous

interceptez la saisie ds ces colonnes par Worksheet_Change
if intersect(Target...... etc etc) ,
en effacant systématiquement le contenu des cellules concernées
eventuellement en affichant un msg d'erreur

Moi je ne connais que le fait de verrouiller l'ensemble d'une page en
laissant libre certaines cellules; après le nombre de cellules libres
peut être important; mais ce n'est peut-êtr ap la meilleure solution
bonne journée

Céline

Bonjour a tous!
Voila mon probleme, je voudrais seulement proteger les colonnes C et D de ma
feuille avec VB.
Parceque si je la verouille la feuille entiere je ne peut plus inseré de
commentaire dans les autres cellules meme non verouillée.

Je reste dispo pour toute information complementaires .
Merci d'avance et @++++

Merci JB
mais malheureusement quand je copie ces lignes de commandes dans VB il me
met du début jusqu'a then inclut en rouge .
Que dois-je faire?

Merci davance

Bonjour,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If (Target.Column = 3 Or Target.Column = 4) And Target.Count = 1
Then
ActiveSheet.Unprotect Password:="jacques"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect Password:="jacques"
End Sub

Cordialement JB

Bonjour a tous!
Voila mon probleme, je voudrais seulement proteger les colonnes C et D de ma
feuille avec VB.
Parceque si je la verouille la feuille entiere je ne peut plus inseré de
commentaire dans les autres cellules meme non verouillée.

Je reste dispo pour toute information complementaires .
Merci d'avance et @++++

la mise en page du forum renvoie then à la ligne
VB exige que lorsque tu commences une ligne par If ou Elseif, tu
finisses la lignes par then
tu ne peux de plus commencer une ligne par then
Bref, tout ça pour dire qu'il faut effacer de le saut de ligne

Merci JB
mais malheureusement quand je copie ces lignes de commandes dans VB il me
met du début jusqu'a then inclut en rouge .
Que dois-je faire?

Merci davance

Bonjour,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If (Target.Column = 3 Or Target.Column = 4) And Target.Count = 1
Then
ActiveSheet.Unprotect Password:="jacques"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect Password:="jacques"
End Sub

Cordialement JB

Bonjour a tous!
Voila mon probleme, je voudrais seulement proteger les colonnes C et D de ma
feuille avec VB.
Parceque si je la verouille la feuille entiere je ne peut plus inser é de
commentaire dans les autres cellules meme non verouillée.

Je reste dispo pour toute information complementaires .
Merci d'avance et @++++

bonjour cliffburton
ramène le Then juste après le = 1 (une seule ligne donc) et ça devrait mieux
aller
jps

"cliffburton57" <cliffburton57@discussions.microsoft.com> a écrit dans le
message de news: EF3C6779-1E40-4361-977E-2F58594CB139@microsoft.com...

Merci JB
mais malheureusement quand je copie ces lignes de commandes dans VB il me
met du début jusqu'a then inclut en rouge .
Que dois-je faire?

Merci davance

Bonjour,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If (Target.Column = 3 Or Target.Column = 4) And Target.Count = 1
Then
ActiveSheet.Unprotect Password:="jacques"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect Password:="jacques"
End Sub

Cordialement JB

Bonjour a tous!
Voila mon probleme, je voudrais seulement proteger les colonnes C et D
de ma
feuille avec VB.
Parceque si je la verouille la feuille entiere je ne peut plus inseré
de
commentaire dans les autres cellules meme non verouillée.

Je reste dispo pour toute information complementaires .
Merci d'avance et @++++

Voir PJ:http://cjoint.com/?kdnWDPh3I0

JB

Merci JB
mais malheureusement quand je copie ces lignes de commandes dans VB il me
met du début jusqu'a then inclut en rouge .
Que dois-je faire?

Merci davance

Bonjour,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If (Target.Column = 3 Or Target.Column = 4) And Target.Count = 1
Then
ActiveSheet.Unprotect Password:="jacques"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect Password:="jacques"
End Sub

Cordialement JB

Bonjour a tous!
Voila mon probleme, je voudrais seulement proteger les colonnes C et D de ma
feuille avec VB.
Parceque si je la verouille la feuille entiere je ne peut plus inser é de
commentaire dans les autres cellules meme non verouillée.

Je reste dispo pour toute information complementaires .
Merci d'avance et @++++

Il y a ceci aussi : à mettre dans le code module feuille où l'action se déroule :

'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Union(Columns(3), Columns(4)), Target) Is Nothing Then
Me.Protect "Jacques"
MsgBox "La colonne ""C"" et ""D"" ne peuvent pas " & vbCrLf & _
"faire partie d'une zone sélectionnée.", vbCritical, Me.Name
Else
Me.Unprotect "Jacques"
End If
End Sub
'-----------------------



"cliffburton57" <cliffburton57@discussions.microsoft.com> a écrit dans le message de news:
1A3CAAFE-6548-4F9C-8EEE-9A40E4B7A822@microsoft.com...
Bonjour a tous!
Voila mon probleme, je voudrais seulement proteger les colonnes C et D de ma
feuille avec VB.
Parceque si je la verouille la feuille entiere je ne peut plus inseré de
commentaire dans les autres cellules meme non verouillée.

Je reste dispo pour toute information complementaires .
Merci d'avance et @++++

Désolé mais j'ai mal du m'expliquer
Je vais essayer detre plus clair

Donc jai un fichier avec 5 colonnes
A B C D E
il faut que les colonnes A,B et E soit accesible a tous le monde ( modif et
insertion de commentaire ) et que C et D soit proteger donc pas de modif
possible .
Merci d'avance !

J'oublier, il faut qu'avec un mot de passe on puisse deverouiller les
colonnes C et D a l'ouverrture de Excel et les reverouiller a sa fermeture
Merci encore pour tout