Macro qui déprotege une feuille lorsqu'une ligne contient des cellules vides

Fermé
fanny - 15 mai 2019 à 17:39
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 16 mai 2019 à 16:51
Bonjour,

Existe t'il une macro qui permette d'ôter la protection de la feuille lorsque l'on sélectionne une ligne contenant des cellules vides ?

Merci de l"aide apportée
A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
16 mai 2019 à 16:51
Bonjour,
Code a mettre dans le vba de la feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'a vous definir la plage de cellules
    Lig = Target.Row
    If Application.WorksheetFunction.CountBlank(ActiveSheet.Range("A" & Lig & ":Z" & Lig)) > 0 Then
        ActiveSheet.Unprotect Password:="mon mot de passe"
    End If
End Sub
0