Protéger les formules laisser macro fonctionner

[stefVB_Excel]

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

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

 

[youky(BJ)]

Re : Protéger les formules laisser macro fonctionner

Bonjour,
un exemple avec toto en MdP

Private Sub Workbook_Open()
Feuil1.Protect "toto", userinterfaceonly:=True
End Sub

Bruno

 

[stefVB_Excel]

Re : Protéger les formules laisser macro fonctionner

Un grand merci Bruno extra.

cela fonctionne parfaitement.

merci

stephan

 

[stefVB_Excel]

Protéger les formules laisser macro fonctionner

ok, re merci Bruno


Stephan