Empecher la modification de cellules

Bonjour à tous,

J'ai un pgm VBA qui me permet de lister plusieurs info importantes dans un onglet "Synthese" et je souhaite verrouiller l'accès à certaines cellules (date, N° sem, Origine si exterieur, modeles, clients et description du défaut) car, les personnes modifies ces info ce qui me génère des erreurs dans la suite de mon analyse.

J'ai essayé en verrouillant les cellules et la feuille (avec Révision>protéger la feuille...) mais après, le lancement du vba donne un message d'erreur.


Auriez vous une idée pour m'aider svp?

Merci pour votre aide

En PJ le document concerné

Bonjour,

Si le fichier n'est pas partagé, vous pouvez passer par la protection mais ce qui implique que si vous changez le contenu des cellules par macro, il faudra mettre avant chaque entrée de données:

Code:

---

Worksheets("Nom").Unprotect Password:="lemotdepasse"

---

et après l'entrée des données:

Code:

---

Worksheets("Nom").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="lemotdepasse"

---

Si le fichier est partagé, il ne faut pas passer via cette méthode mais par la méthode:

en déclarant:

Code:

---

1 2	public Z as integer public PERMISSION as boolean

---

il suffit ensuite de jouer avec

Code:

---

PERMISSION = false ou PERMISSION = true

---

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) If Z = 0 And PERMISSION = False Then Z = Z + 1 X = MsgBox("Vous n'êtes pas autorisé à modifié cette plage de données", vbExclamation) Application.Undo End If Z = 0 End Sub

---

Bonjour bboy-eazy ,

Merci pour votre aide mais, le programme (2nd méthode) ne fonctionne pas tt a fais comme je pensais.
En effet, je voudrai pouvoir modifier ma colonne "Commentaires".
De plus, le message box ne s'affiche pas quand je modifie mes données.

Pourriez-vous me donner quelques indications svp?

Merci pour votre aide

Rob's

a mettre dans la feuille synthèse:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) If Z = 0 And PERMISSION = False And (Not Intersect(Target, Range("A1:L5000")) Is Nothing Or Not Intersect(Target, Range("N1:BV5000")) Is Nothing) Then Application.ScreenUpdating = False Z = Z + 1 X = MsgBox("Vous n'êtes pas autorisé à modifié cette plage de données", vbExclamation) Application.Undo End If Z = 0 End Sub

---

Déclarer dans le module 1:

Code:

---

1 2	public Z as integer public PERMISSION as boolean

---

vous pouvez executer la macro deverrouillage pour deverrouiller la feuille (à mettre dans le module 1)

Code:

---

1 2 3 4 5 6

Sub Verrouillage() PERMISSION = false End Sub Sub Deverrouillage() PERMISSION = True End Sub

---

Dans vos autres macros, si la macro ajoute des données dans la feuille, il faut bien mettre PERMISSION = true (ou Deverrouillage) en début de macro et PERMISSION = false (ou verrouillage) en fin de macro afin que les données puissent être ajoutées.

Pièce jointe 141262Pièce jointe 141262Bonjour bboy-eazy,

Désolé pour cette réponse tardive.
Je viens de faire les manip et cela ne fonctionne toujours pas.
En effet, quand je valide ma saisie, j'ai le message box "Vous n'êtes pas autorisé à modifié cette plage de données" qui s'affiche et j'ai un débeuggage qui me surligne la ligne

Code:

---

Application.Undo

---

et rien ne s'affiche dans mon tableau.

De plus, quand je supprime les lignes, j'ai le message qui s'affiche mais, les lignes s'efface quand même....

Sais tu quel est le problème?

Merci pour ton aide

Rob's

C'est bizarre car chez moi cela fonctionne chez moi ... et si vous enregistrez le fichier sous Excel 2000-2003, il y aura moins de problème concernant l'application.undo. car je sais que au début que j'avais essayé ceci, j'avais aussi quelques problèmes mais je sais pas pourquoi il n'y en a plus eu...

peut être simplemement la versio nd'excel qui va jouer sur ce problèpme..