Macro pour empêcher les modifications
Bonjour,
Avec la macro ci dessous, une fois qu'une cellule dans la collone 8 est renseigner, c'est impossible de la sélectionner donc de la modifier autrement que par macro.
j'aimerais savoir comment faire pour réussir à le faire sur plus d'une colonne.
merci
AC
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If Not IsEmpty(Target) Then
MsgBox "Impossible de sélectionner cette cellule"
Target.Offset(, 1).Select
End If
End If
End Sub
Bonjour,
La macro que tu montres ne concerne que la cellule A1 et non la colonne 8.
Par rapport à ta demande, il faut préciser la plage dans laquelle tu souhaites avoir ce message.
Exemple pour la plage située entre A1 et H1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dim plage as range
Set plage = Range("A1:H1")
If Not Application.Intersect(Target, plage) Is Nothing Then
If Not IsEmpty(Target) Then
MsgBox "Impossible de sélectionner cette cellule"
Target.Offset(1, 0).Select
End If
End If
End SubAmicalement
Dan
Bonjour je serais intérressé par cette maccro si à la place du message d'erreurs on pouvait mettre en place une application qui demanderait un mot de passe qui permettrait de modifier les cellules si le mot de passe est juste ou qui empécherait les modification si il est faux