Protection feuille et VBA

Bonjour,

J'ai un petit soucis, j'ai des codes de protection sur mes feuilles de mon tableau, mais ils m’empêches d’exécuter certaine macro comme mon champ de recherche, je reçois une erreur 1004... J'ai essaye en enlevant le MDP et la ça fonctionne, le problème vient donc de la ! Si vous pouvez m'aider ce serait super sympa

Code de mon champ de recherche:

Option Compare Text

Private Sub TextBox1_Change()

    Application.ScreenUpdating = False

    Range("E5:E2500").Interior.ColorIndex = 2

    If TextBox1 <> "" Then
        For ligne = 5 To 2500
            If Cells(ligne, 5) Like "*" & TextBox1 & "*" Then
                Cells(ligne, 5).Interior.ColorIndex = 45
            End If
        Next

    End If

End Sub

Bonjour

Essaie comme ça :

Private Sub TextBox1_Change()

    Application.ScreenUpdating = False
    ActiveSheet.Unprotect "mdp" 'Mettre le bon mot de passe
    Range("E5:E2500").Interior.ColorIndex = 2
    If TextBox1 <> "" Then
        For ligne = 5 To 2500
            If Cells(ligne, 5) Like "*" & TextBox1 & "*" Then
                Cells(ligne, 5).Interior.ColorIndex = 45
            End If
        Next
    End If
    ActiveSheet.Protect "mdp"   'Mettre le bon mot de passe
End Sub

Bye !

Salut gmb !

Merci beaucoup ça marche nickel

A+

Juste une petite dernière question car j'ai le même problème pour dérouler des lignes (quand tu les groupes et que tu clique sur le petit [+]

Le code est dans thisworkboock, j'ai essayer de faire comme l’exemple que tu m'a donner dans chaque feuille mais rien...

With Worksheets("Stats")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, UserInterfaceOnly:=True
With Worksheets("Schedule")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, UserInterfaceOnly:=True
With Worksheets("PER")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, UserInterfaceOnly:=True
End With
End With
End With

Essaie comme ça :

With Worksheets("Stats")
    .Unprotect "mdp" 'Mettre le bon mot de passe
     .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, UserInterfaceOnly:=True
    .Protect "mdp"   'Mettre le bon mot de passe
End With

With Worksheets("Schedule")
    .Unprotect "mdp" 'Mettre le bon mot de passe
     .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, UserInterfaceOnly:=True
    .Protect "mdp"   'Mettre le bon mot de passe
End With

With Worksheets("PER")
    .Unprotect "mdp" 'Mettre le bon mot de passe
     .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, UserInterfaceOnly:=True
    .Protect "mdp"   'Mettre le bon mot de passe
End With

Bye !

GENIAL !!!! MERCI beaucoup