Protection feuille et autoriser macro

Bonjour,

je cherche à protéger mes feuilles de toutes manipulation autre que celles faite par mes macro.

J'ai trouvé le code ActiveSheet.Unprotect Password:="Le mot de passe" et ActiveSheet.protect Password:="Le mot de passe"

Mais mes macro s'appliquent parfois sur plusieurs feuilles en meme temps.

Quel code utilisé afin de lui demander de déprotéger, non pas uniquement la feuille séléctionnée, mais l'ensemble des feuilles.

Merci,

Bonjour,

Essaye de faire une recherche sur userinterfaceonly

cela te permet de faire tourner ta Macro sans pour autant protéger et déprotéger tes feuilles

pas tester mais essaye ce code

Sub Deprotect()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Sheets
    Ws.Protect Password:="Le mot de passe", userinterfaceonly:=True
    'TonCode
Next Ws
End Sub

à tester

Bonne journée

Re DL_13,

merci de ta réponse rapide. Mais je n'y arrive pas.

Sub supprimer_click()
Dim i As Integer, j As Integer
Dim code1, code2
Dim b As Long

Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Sheets
    Ws.Protect Password:="test", userinterfaceonly:=True
Next Ws
a = MsgBox("Etes vous sur de vouloir faire cela ?", vbYesNo)
If (a = 6) Then

With Sheets("Signalements")
code1 = .Range("E" & ActiveCell.Row) & .Range("F" & ActiveCell.Row) & _
    .Range("G" & ActiveCell.Row) & .Range("H" & ActiveCell.Row) & .Range("I" & ActiveCell.Row) & .Range("J" & ActiveCell.Row) & .Range("K" & ActiveCell.Row)
End With
For i = 2 To Sheets.Count
With Sheets(i)
    For j = .Range("B65536").End(xlUp).Row To 7 Step -1
        code2 = .Cells(j, 2) & .Cells(j, 3) & .Cells(j, 4) & .Cells(j, 5) & .Cells(j, 6) & .Cells(j, 7) & .Cells(j, 8)
        If code2 = code1 Then .Rows(j).Delete
    Next j
End With
Next
Selection.EntireRow.Delete

Else
Cancel = True
End If
End Sub

Où dois je écrire ton code pour qu'il fonctionne correctement dans le code ci-dessus.

Si je le met comme ci-dessus. J'ai un message d'erreur "la méthode delete de la classe range a échoué" et il me surligne .Rows(j).Delete

La même chose se produit si je met le "Next sheet" à la fin entre "end if" et "end sub"

Merci