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

[myexcel_]

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

 

[M12]

Bonjour,
ajoutez au début du code après le Sub....

ActiveSheet.unprotect "le mot de passe"

et à la fin, avant le End Sub

ActiveSheet.protect "le mot de passe"

 

[myexcel_]

Bonjour,
ajoutez au début du code après le Sub....

ActiveSheet.unprotect "le mot de passe"

et à la fin, avant le End Sub

ActiveSheet.protect "le mot de passe"

Merci
toujours le même problème

 

[M12]

Re,

Il suffit de remplacer ActiveSheet par la variable de la feuille qui reçoit les infos

Ws_CM1.unprotect "le mot de passe  s'il y a"

 

[myexcel_]

Ah ok...Merci beaucoup pour votre aide