VBA ne s'exécute pas feuille protégée

Bonjour

Mon code VBA ne s'exécute pas quand la feuille (DATA) est protégée....j'aimerais savoir s'il y a un moyen de corriger le code. Car je souhaiterais garder la feuille DATA protégée

ci-après le code...et Merci beaucoup

Sub export_données()

Application.ScreenUpdating = False

Set Ws_User = Sheets("Data")
Set ws_CM2 = Sheets("Filliale")
Set Ws_CM1 = Sheets("Terme")

NbLigCM1 = Ws_CM1.[A1].CurrentRegion.Rows.Count
NbParam = Ws_User.[K1].CurrentRegion.Rows.Count
NbLigCM2 = ws_CM2.[A1].CurrentRegion.Rows.Count - 1

NbExport = 0

For I = 2 To NbParam
    For j = 2 To NbLigCM1
        If (Ws_CM1.Cells(j, "H") = Ws_User.Cells(I, "P")) Then
            Ws_CM1.Rows(j).Copy Destination:=ws_CM2.Rows(2 + NbLigCM2)
            NbLigCM2 = NbLigCM2 + 1
            NbExport = NbExport + 1
            Ws_CM1.Rows(j).Delete
            j = j - 1
        End If
    Next
Next

Application.ScreenUpdating = True

MsgBox (NbExport & " ligne(s) exportée(s)")

End Sub

Bonjour

Utilisez l'instruction ci-dessous

Ws_User.Protect Password:="myexcel", UserInterfaceOnly:=True

Cordialement

Dan a écrit :

Bonjour

Utilisez l'instruction ci-dessous

Ws_User.Protect Password:="myexcel", UserInterfaceOnly:=True

Cordialement

Merci pour la réponse.... dans quelle partie j'insère cette instruction ?

c'est bon je l'ai inséré avant end sub....muchas gracias

Re

N'oubliez pas de cloture vos fils quand vous en avez terminé. Clicj sur le petit v en haut à droite de votre post. Je vais le cloturer.

Bonne journée et appétit !

Cordialement