Protection de certaines cellules en modification et suppression
1 réponse
Marco Gagnon
Bonjour,
Je désire protéger certaines cellules en modification et suppression
seulement. C'est à dire que je peux ajouter des informations dans une cellule
vide mais par la suite je ne peux modifier ou effacer ces informations.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JPMonnier
Bonjour, Avec cette procédure, ton cas est résolu pour l'adresse B2, dans la feuille ou tu auras inséré ce code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$B$2" Then If Target <> "" Then ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Else ActiveSheet.Unprotect Target.Locked = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End If End If End Sub
Nota : Ceci implique que la feuille soit protégée (Sans mot de passe dans l'exemple), et qui se fait par laprocédure Si tu dois accéder à d'autres cellules, penses à les déverouiller par : Format/Cellule/Protection (Décocher Verouillée) -- Cordialement
"Marco Gagnon" a écrit dans le message de news:
Bonjour,
Je désire protéger certaines cellules en modification et suppression seulement. C'est à dire que je peux ajouter des informations dans une cellule vide mais par la suite je ne peux modifier ou effacer ces informations.
Merci de votre aide
Marco
Bonjour,
Avec cette procédure, ton cas est résolu pour l'adresse B2, dans la feuille
ou tu auras inséré ce code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Target <> "" Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Else
ActiveSheet.Unprotect
Target.Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End If
End If
End Sub
Nota : Ceci implique que la feuille soit protégée (Sans mot de passe dans
l'exemple), et qui se fait par laprocédure
Si tu dois accéder à d'autres cellules, penses à les déverouiller par :
Format/Cellule/Protection (Décocher Verouillée)
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Marco Gagnon" <MarcoGagnon@discussions.microsoft.com> a écrit dans le
message de news:9788A8B4-30A0-4B9A-85E9-0EF1AC8695C9@microsoft.com...
Bonjour,
Je désire protéger certaines cellules en modification et suppression
seulement. C'est à dire que je peux ajouter des informations dans une
cellule
vide mais par la suite je ne peux modifier ou effacer ces informations.
Bonjour, Avec cette procédure, ton cas est résolu pour l'adresse B2, dans la feuille ou tu auras inséré ce code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$B$2" Then If Target <> "" Then ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Else ActiveSheet.Unprotect Target.Locked = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End If End If End Sub
Nota : Ceci implique que la feuille soit protégée (Sans mot de passe dans l'exemple), et qui se fait par laprocédure Si tu dois accéder à d'autres cellules, penses à les déverouiller par : Format/Cellule/Protection (Décocher Verouillée) -- Cordialement
"Marco Gagnon" a écrit dans le message de news:
Bonjour,
Je désire protéger certaines cellules en modification et suppression seulement. C'est à dire que je peux ajouter des informations dans une cellule vide mais par la suite je ne peux modifier ou effacer ces informations.
