stefVB_Excel
XLDnaute Junior
Bonjour a toutes et tous, [merci Bruno]
probleme, je souhaite une protection de certaines cellules mais laisser la macro fonctionner sans demande de dé-protéger. Je n'ai rien trouvé d'autre à faire, cela fonction si je ne rentre pas de mot de pass.
voici mon code
merci pour toutes aide ou solution
stef
probleme, je souhaite une protection de certaines cellules mais laisser la macro fonctionner sans demande de dé-protéger. Je n'ai rien trouvé d'autre à faire, cela fonction si je ne rentre pas de mot de pass.
voici mon code
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.Protect UserInterfaceOnly:=True 'me demande le MP
If Target.Row = 7 Then
Rows.Hidden = False
End If
For m = 1 To 100
If Cells(7, m) <> "" Then
For n = 12 To Range("C675").End(xlUp).Row
If UCase(Cells(7, m)) <> UCase(Cells(n, m)) Then
Rows(n).Hidden = True
End If
Next n
End If
Next m
Application.ScreenUpdating = True
'recherche et masque les lignes qui ne correspondent pas au critère dans la zone de recherche
End Sub
merci pour toutes aide ou solution
stef
Dernière édition: