Protection de certaines cellules

Bonjour,

-Sélectionner tout le tableau
-Format/Cellules/Protection/Décocher Verrouillée
-Sélectionner C1:C10
-Format/Cellules/Protection/Cocher Verrouillée
-Outils/Protection/Protéger la feuille

JB
On 25 fév, 05:45, Clochard <cloch...@hotmail.com> wrote:

Bonsoir,

J'aimerais savoir si dans une feuille... il m'est posible d'interdire
l'accès à certaines cellules genre C1:C0 et D1:D50

Sans pour autant empêcher l'accès aux autres cellules dans la même feuille?

--
Clochard
Aimerais bien savoir....
Merci!

*Bonjour Clochard*,
Et en utilisant les événements :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("c1:d50")) Is Nothing Then
Range("b" & Target.Row).Select
End If
End Sub

Bonsoir,

J'aimerais savoir si dans une feuille... il m'est posible d'interdire
l'accès à certaines cellules genre C1:C0 et D1:D50

Sans pour autant empêcher l'accès aux autres cellules dans la même feuille?

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Bon matin,

Merci beaucoup.... JB... ça fonctionne très bien... c'est exactement ce que
je cherchais.

JLuc, malheureusement je ne suis pas encore VBA.. merci tout de même.
--
Clochard
Content de savoir....
Merci!

*Bonjour Clochard*,
Et en utilisant les événements :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("c1:d50")) Is Nothing Then
Range("b" & Target.Row).Select
End If
End Sub

Bonsoir,

J'aimerais savoir si dans une feuille... il m'est posible d'interdire
l'accès à certaines cellules genre C1:C0 et D1:D50

Sans pour autant empêcher l'accès aux autres cellules dans la même feuille?

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Bonjour,

'''****code ThisWorkbook*****
Private Sub Workbook_Open()
myr = ActiveCell.Address
End Sub

'''*******code module1*******
Public myr As String

'''*******code feuil1********
Private Sub Worksheet_Activate()
myr = ActiveCell.Address
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [c3:g10])
If Not isect Is Nothing Then
Application.EnableEvents = False
On Error Resume Next
Range(myr).Select
Application.EnableEvents = True
End If
myr = Selection.Address

End Sub
'''***************************

'Cdlt

'lSteph

Bonsoir,

J'aimerais savoir si dans une feuille... il m'est posible d'interdire
l'accès à certaines cellules genre C1:C0 et D1:D50

Sans pour autant empêcher l'accès aux autres cellules dans la même feuille?