VBA - mise en protection d'une ligne sous condition
Résolu/Fermé
thorgall9
Messages postés
5
Date d'inscription
mardi 22 décembre 2015
Statut
Membre
Dernière intervention
22 décembre 2015
-
22 déc. 2015 à 11:43
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 22 déc. 2015 à 13:30
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 22 déc. 2015 à 13:30
A voir également:
- VBA - mise en protection d'une ligne sous condition
- Mise en forme conditionnelle excel - Guide
- Vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Aller à la ligne excel - Guide
- Hors ligne instagram - Guide
2 réponses
via55
Messages postés
14408
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 mai 2024
2 704
22 déc. 2015 à 13:08
22 déc. 2015 à 13:08
Bonjour
La feuille étant protégée, macro à mettre dans le worksheet de la feuille (ALT + F11 pour ouvrir l'éditeur - double-clic sur la feuille concernée dans l'arborescence - Copier coller la macro )
Cdlmnt
Via
La feuille étant protégée, macro à mettre dans le worksheet de la feuille (ALT + F11 pour ouvrir l'éditeur - double-clic sur la feuille concernée dans l'arborescence - Copier coller la macro )
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
ActiveSheet.Unprotect
If Target.Value = "Non actif" Then
Range("B" & Target.Row & ":Z" & Target.Row).Locked = True
End If
If Target.Value = "Actif" Then
Range("B" & Target.Row & ":Z" & Target.Row).Locked = False
End If
ActiveSheet.Protect
End Sub
Cdlmnt
Via
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
22 déc. 2015 à 13:30
22 déc. 2015 à 13:30
22 déc. 2015 à 13:29