XL 2016 classeur avec mot de passe d'ouverture par utilisateur et archivage

Bonjour Kbise,
C'est un sujet qu'on a déjà traité ici et dont vous pouvez vous inspirer :
ou encore :

BONJOUR

Merci pour la reponse
je suis quand même bloque pour l' archivage a l'ouverture
jarrive pas a combine les deux code celle pour ouvrir juste la page demandé et celle pour l'archivage auto
il me donne comme message d'erreur


j’inscris le code suivant

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Workbook_Open()

'Je boucle deux fois car une ne suffit pas pour tout archiver
Call boucle


End Sub

Sub boucle()
Dim i As Integer
Dim j As Integer

i = 2

'On boucle sur toutes les lignes
While Sheets("Demandes d'échantillons").Range("A" + CStr(i)).Value <> ""

'On regarde si le dossier a été traité
If Sheets("Demandes d'échantillons").Range("M" + CStr(i)).Value = "Traitée" Then

'On copie la ligne
Sheets("Demandes d'échantillons").Range("A" + CStr(i), "M" + CStr(i)).Copy

'On boucle dans le dossier d'archivage
For j = 4 To 2000
If Sheets("RDC").Range("A" + CStr(j)).Value = "" Then
Sheets("RDC").Select
Sheets("RDC").Activate
'On colle les données
Sheets("RDC").Range("A" + CStr(j), "M" + CStr(j)).Select
ActiveSheet.Paste
Exit For
End If
Next

Sheets("Demandes d'échantillons").Select
Sheets("Demandes d'échantillons").Activate

'On supprime la ligne dans demandes d'échantillons si besoin
Sheets("Demandes d'échantillons").Range("A" + CStr(i), "M" + CStr(i)).EntireRow.Delete
i = i - 1
End If

i = i + 1

Wend

End Sub

bonjour je rencontre toujours cette même difficulté
je suis quand même bloque pour l' archivage a l'ouverture
j’arrive pas a combine les deux code celle pour ouvrir juste la page demandé et celle pour l'archivage auto
j’ai travail mon fichier
quelqu'un peut m'aidé
le but étant quand on inscrit et "traité" dans la ligne "Etat de traitement de la demande" sur la page cdm il se met en archiver a la mise a jour.

je joint le fichier
Identifient CDM
mot passe 123