XL 2016 "protection cellule" code vba

[stéphane97429]

Bonjour à tous
pour empêcher la saisie de donnée dans certaines cellules, j'ai trouvé sur le net, le code vba ci dessous qui est très efficace.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Row = 4 Or Target.Row = 5 Then
Beep
Cells(Target.Row, Target.Column).Offset(0, 1).Select
End If
End If
End sub

Je le trouve très long à saisir et j'aimerais savoir s'il existe le même code en saisissant directement les cellules?
Merci d'avance pour vos retour.
à très bientôt

 

[Lone-wolf]

Bonjour Stephane

Pour juste 2 cellules, tu trouve ça long???

Et toi, combien de cellules tu veux proteger???

 

[Lone-wolf]

Re

Sinon, dévérouille les cellules dont tu fais la saisie et ensuite.

Private Sub Workbook_Open()
Sheets("Feuil2").Protect , UserInterfaceOnly:=True
End Sub

Mais bon, pour un connaisseur, il est très facile d'enlever la protection, même avec un mot de passe.

 

[Staple1600]

Bonsoir le fil, le forul, Lone_Wolf

Le même code mais moins long à saisir

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If R.Count > 1 Then Exit Sub
If Not Intersect(R, [B4:B5]) Is Nothing Then
Beep
R(1, 2).Select
End If
End Sub

 

[Lone-wolf]

Bonsoir Jean Marie

@Staple1600

C'est bien, mais inutile, si les cellules ne sont pas contigües.

 

[Staple1600]

Re

@Lone-wolf
Que ce soit bien, beau, moche, utile, inutile, c'est pas mon problème.
Ma macro se contente juste de faire la même chose que la macro initiale (mais avec moins de morceaux de VBA dedans)
Par conséquent, cela résoud ce point-ci

Je le trouve très long à saisir

 

[stéphane97429]

Bonsoir à vous
Lone-Wolf, merci pour vos réponses, je souhaite empêcher la saisie de donnée dans plusieurs cellules.
Staple1600 merci également pour votre réponse, cela réduit l'écriture. L'idéal serait que je puisse désigner plusieurs autres cellules.
bonne soirée à vous

 

[Lone-wolf]

Re

@Staple1600

Que ce soit bien, beau, moche, utile, inutile, c'est pas mon problème.

L'idéal serait que je puisse désigner plusieurs autres cellules.

Si, du travail pour rien.