Protection

Bonsoir JB,

Copie ce qui suit dans le module feuille où l'action se déroule :


Mot de passe utilisé est : "toto"
'-----------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range

Set Rg = Intersect(Target, Union(Columns(2), Columns(12)))
If Not Rg Is Nothing Then
Protect toto
MsgBox "Les colonnes B:B et L:L ne peuvent faire parti d'une sélection."
Else
Unprotect toto
End If
Set Rg = Nothing

End Sub
'-----------------------------


Salutations!

Salutations!


"JB" <jbriz@free.fr> a écrit dans le message de news:3f089bbf$0$26592$626a54ce@news.free.fr...
Bonsoir,

J'ai une colonne en B et une en L qui sont des formules.
Je souhaiterai que ces cellules soient protégées.
Comment faire pour interdire les modifs uniquement dans ces colonnes sans
pour autant activer la protection de la feuille.
Est ce possible si oui comment ?

Merci

Comment faire pour interdire les modifs uniquement dans ces colonnes sans
pour autant activer la protection de la feuille.

Une (énervante) parmi..... :
Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If zz.Column = 2 Or zz.Column = 12 Then
Application.EnableEvents = False
zz(1, 2).Select
Application.EnableEvents = True
End If
End Sub

Ceci étant, il me semble que la meilleure soluce serait de verrouiller ces
cellules et de protéger la feuille, et de ce fait, on pourrait interdire la
sélection des cellules protégées (ce qui supprime le problème de la gestion des
saisies/sélection dans les/des dites-cellules)

Ca pourrait faire :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableSelection = xlUnlockedCells
End With
End Sub

AV