Bloquer une plage en Vba

[flo2002]

Re bonjour le forum,

ca me fait mal de vous parler de plage en ce superbe jour ou je creve de chaud dans ce bureau!

Mais bon,
je cherche à bloquer l'accés à des plages sur une feuille de maniere a éviter d'ecraser mes formules.

J'ai essayer ceci mais ca marche pas!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Range('e4:e39') Then Cells('d4').Select
End Sub

une suggestion?
merci par avance!

 

[flo2002]

j'ai fais ca

Private Sub Protection()

Sheets('GSP').EnableSelection = xlUnlockedCells
Sheets('GSP').Protect Contents:=True


End Sub

et ca a l'air de marcher.
J'ai verrouiller mes plage et proteger ma feuille.

merci comme meme

 

[Gorfael]

flo2002 écrit:

Re bonjour le forum,

ca me fait mal de vous parler de plage en ce superbe jour ou je creve de chaud dans ce bureau!

Mais bon,
je cherche à bloquer l'accés à des plages sur une feuille de maniere a éviter d'ecraser mes formules.

J'ai essayer ceci mais ca marche pas!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Range('e4:e39') Then Cells('d4').Select
End Sub

une suggestion?
merci par avance!

Salut
comme l'a fait jmps, ça devrait marcher un peu mieux, mais pourquoi ne pas protéger tes cellule et activer la protection de la feuille ?
Tu sélectionnes le contenu de ta feuille (ctrl+A)
Menu contextuel>>Format de cellule>>Onglet sécurité
-Décoche Verrouillé
-Décoche Masqué
OK

Tu sélectionnes E4:E39
Menu contextuel>>Format de cellule>>Onglet sécurité
-Coche Verrouillé
-Coche Masqué

Menu Outils>>Protection>>Protéger la feuille
Tu valides par ok, sans entrer de mot de passe (si souvent oublié :whistle: )

Si tu veux modifier une de tes formules
Menu Outils>>Protection>>Déprotéger la feuille

 

[flo2002]

re bonjour,

le truc c'est que ca me met un message disant comment enlever la protection qui est tres desagreable.
Donc j'ai verrouiller mes plages ( comme tu l'as dit) et ensuite j'y est ajouter le code qui evite le message.

 

[flo2002]

Merci

vu que ce que j'ai fait marche je vais laisser

ce qui n'empeche que je vous remercie!