Bonjour à tous,
J'ai un soucis avec mon pgm vba.
En effet, je cherche à empêcher les utilisateurs de supprimer et / ou modifier certaines cellules de mon tableau après saisie.
Voici le pgm utilisé:
dans la feuille synthèse:
Dans le module 1:
Le soucis c'est que quand je valide ma saisie, le message box s'affiche, rien ne s'affiche ds le tableau et j'ai un débeuggage sue le ligne "Application.Undo".
Quelqu'un pourrait il m'aider?
Je joins mon fichier
Merci
J'ai un soucis avec mon pgm vba.
En effet, je cherche à empêcher les utilisateurs de supprimer et / ou modifier certaines cellules de mon tableau après saisie.
Voici le pgm utilisé:
dans la feuille synthèse:
Code:
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 SubDans le module 1:
Code:
public Z as integer
public PERMISSION as boolean
Sub Verrouillage()
PERMISSION = false
End Sub
Sub Deverrouillage()
PERMISSION = True
End SubLe soucis c'est que quand je valide ma saisie, le message box s'affiche, rien ne s'affiche ds le tableau et j'ai un débeuggage sue le ligne "Application.Undo".
Quelqu'un pourrait il m'aider?
Je joins mon fichier
Merci