Question : Worksheet_Change

J'ai une feuille de travail qui a une gamme appelée dans lui a appelé « Col_M ».  Elle est sur une feuille débloquée et non protégée ouverte.  Les cellules dans la gamme « Col_M » ont des formules dans eux et je veux employer le processus de WorkSheet_Change pour empêcher le changement des cellules dans la gamme, au lieu de la feuille me protège, serrure ouvre…. (longue histoire) mais je dois employer quelque chose autre puis la protection standard method.

Is de feuille là une manière d'employer WorkSheet_Change au montior cette gamme, et si des trys d'un utilisateur pour changer une valeur de cellules dans cette gamme pour l'arrêter, n'alerter aucun chg est-elle permise et empêcher le changement ? le

Col_M est une dynamique ainsi des rangées sont ajoutées et supprimé tous les heure et lui ne devrait pas importer que des rangées soient ajoutées ou emportées.  Ce processus ne devrait pas soin des rangées sont ajoutés ou supprimés de Col_M, et est-ce qu'il devrait-il tenir compte de cela, juste aucune cellule édite pour les cellules dans le Col_M range.

Can que ceci même soit fait ?  Conseiller svp et des mercis. - R- class= de

Réponse : Worksheet_Change

Bonjour R,

celui-ci devrait fonctionner encore meilleur : dans la version préalable, l'utilisateur pourrait choisir plus d'une cellule et supprimer les formules. La version jointe maintenant permet seulement l'insertion ou la suppression des rangées ou des colonnes de *complete*. On ne permettra pas toute autre manipulation de cellules sur la gamme « col_M ».

à la votre, teylyn

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 :

Worksheet_Change secondaire privé (cible de ByVal comme gamme) Sinon intersecter (cible, gamme (le « col_M »)) N'est rien alors Application.EnableEvents = faux Si Target.Rows.Count = gamme (« A1 », cellules (Rows.Count, « A »)). Rows.Count alors Application.EnableEvents = rectifient Sortir le sous-marin Finir si Si Target.Columns.Count = gamme (« A1 », cellules (1, Columns.Count)). Columns.Count alors Application.EnableEvents = rectifient Sortir le sous-marin Finir si Application.Undo MsgBox « que vous pouvez seulement insérer ou supprimer les colonnes entières ou les rangées, pas cellules de changement. » Application.EnableEvents = rectifient Finir si Finir le sous-marin