MACRO à modifier pour protection feuille cellules

Bonjour,

QUE FAUTIL MODIFIER SUR les DEUX MACROS (qui marchent très bien- prisent sur le forum) = macro filtre, pour me permettre de verouiller des cellules et protéger la feuille ?

si je protége la feuille les 2 macros ne marchent plus

merci beaucoup

et bonne journée

EN FEUILLE 1:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("b5:t5")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Application.ScreenUpdating = False
        On Error Resume Next
        ActiveSheet.ShowAllData
        On Error GoTo 0
        Range("base").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("b4:t5"), Unique:=False

        Application.Goto Range("a7"), Scroll:=True
        Rows(6).Hidden = True
        Target.Activate
    End If
End Sub

EN MODULE 1 :

Sub Initialise()
Dim Lg%
    On Error Resume Next
        ActiveSheet.ShowAllData
    On Error GoTo 0
Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Application.ScreenUpdating = False
    Range("b6:t" & Lg).Name = "base"
    Application.Goto Range("a7"), Scroll:=True
    Rows(6).Hidden = True
End Sub

Bonjour,

Tu peux déprotéger la feuille en début de macro avec :

ActiveSheet.Unprotect 'Password:="dudu"

et re-protéger en fin de macro avec :

ActiveSheet.Protect 'Password:="dudu"

le mot de passe est facultatif (Password:)

Amicalement

Claude