Macro pour empécher la modification des céllules rempli
Résolu/Fermé
A voir également:
- Empêcher modification cellule excel vba
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Verrouiller cellule excel - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
Mike-31
Messages postés
18355
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 janvier 2025
5 111
7 avril 2015 à 09:35
7 avril 2015 à 09:35
Bonjour,
Si tu veux accessible la plage A2:G30 et verrouiller les cellules de cette plage après saisie mais modifiable avec mot de passe
commence par sélectionner la plage/clic droit/format de cellule/Protection/décoche Verrouillée
plage encore sélectionnée/onglet Révision/module Modifications/Permettre la modification des plages/Nouvelle/dans fait référence aux cellules tu devrais avoir les bornes de la plage sélectionnée/saisir un mot de passe pour accéder à la modification après protection exemple toto
dans les propriétés de la feuille, clic droit sur l'onglet de ta feuille/Visualiser le code/colle ce code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:G30], Target) Is Nothing And Target.Count = 1 Then
ActiveSheet.Unprotect Password:="titi"
Target.Locked = True
ActiveSheet.Protect Password:="titi"
End If
End Sub
revient sur ta feuille, protège la avec un mot de passe qui peut être différent de celui pour la modification, dans l'exemple j'ai choisi titi veille a ce que l'accès aux cellule verrouillées et déverrouillées soit coché dans les options de protection de ta feuille
Si tu veux accessible la plage A2:G30 et verrouiller les cellules de cette plage après saisie mais modifiable avec mot de passe
commence par sélectionner la plage/clic droit/format de cellule/Protection/décoche Verrouillée
plage encore sélectionnée/onglet Révision/module Modifications/Permettre la modification des plages/Nouvelle/dans fait référence aux cellules tu devrais avoir les bornes de la plage sélectionnée/saisir un mot de passe pour accéder à la modification après protection exemple toto
dans les propriétés de la feuille, clic droit sur l'onglet de ta feuille/Visualiser le code/colle ce code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:G30], Target) Is Nothing And Target.Count = 1 Then
ActiveSheet.Unprotect Password:="titi"
Target.Locked = True
ActiveSheet.Protect Password:="titi"
End If
End Sub
revient sur ta feuille, protège la avec un mot de passe qui peut être différent de celui pour la modification, dans l'exemple j'ai choisi titi veille a ce que l'accès aux cellule verrouillées et déverrouillées soit coché dans les options de protection de ta feuille
7 avril 2015 à 10:21
En gros quand on clique sur une cellule vide il n'y est pas de protection par mot de passe mais que lorsque l'on rempli la cellule on soit obligé de mettre un mot de passe pour la modifier
7 avril 2015 à 10:42
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 Sub