Classeur avec mot de passe d'ouverture par utilisateur

BONJOUR

je suis bloque pour l' archivage a l'ouverture
j’arrive pas a combine 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

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,

Ce lien pourra sûrement t'aider ...

https://www.excel-pratique.com/fr/logiciels/protection_pratique

ric

Rechercher des sujets similaires à "classeur mot passe ouverture utilisateur"