Macro pour empécher la modification des céllules rempli
Résolu
Torre
-
Torre -
Torre -
Bonjour,
Je voudrais programmer une macro afin que l'on ne puisse pas modifier les cellules remplie mais que l'on puisse écrire sur des céllules vide de ce même tableau et je voudrais que l'on puisse les modifier les cellules rempli seulement avec un mot de passe
Pourriez vous m'aider s'il vous plaît
Je voudrais programmer une macro afin que l'on ne puisse pas modifier les cellules remplie mais que l'on puisse écrire sur des céllules vide de ce même tableau et je voudrais que l'on puisse les modifier les cellules rempli seulement avec un mot de passe
Pourriez vous m'aider s'il vous plaît
A voir également:
- Empêcher modification cellule excel vba
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Suivi de modification word - Guide
- Excel compter cellule couleur sans vba - Guide
- Proteger cellule excel - Guide
2 réponses
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
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
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