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

fanny -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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