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

[kbise]

bonjour
je débute dans le codage.
jai crée un fichier afin de développé un tableau de production
mon fichier comporte 13 feuille
L'objectif est que chaque utilisateur puisse avoir accès au fichier par mot de passe perso et qu'il soit limité à la lecture et aux modifications de certaines pages du fichier. Chaque utilisateur aurait alors accès à ses feuilles et uniquement à celles-là. D'un autre côté, il faut un mot de passe administrateur pour avoir accès à toutes les feuilles.
et l' archivage auto quand ces traités dans une feuille archive.
je vous joint 2 fichier
- la CAPA OPS 2ème est mon fichier de départ.
- la CAPA OPS 3ere le travail que j'ai mémé avec le code mais ma feuille ne s affiche pas quand je mets mes identifiant .
Pouvez-vous me donner un coup main svp
IDENTIFIENT -ADMIN
MOT DE PASSE -ADMIN

 

[sylvanu]

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

Microsoft 365 - Accès restreint par onglet suivant utilisateur

Bonjour, Je gère une association sportive - club de foot - et pour ce faire j'utilise un classeur Excel qui se compose de 25 onglets dont un onglet BdD. Équipements / gestion individualisée des commandes des livraisons par catégorie de joueurs et de licenciés / des paiements licences / selon...

www.excel-downloads.com

ou encore :

VBA Excel - Mot de passe et Utilisateurs

Cette fiche pratique vous permet de configurer votre classeur Excel afin que chaque utilisateur accède uniquement aux feuilles qui lui sont autorisées. L'objectif est que chaque utilisateur puisse avoir accès...

www.commentcamarche.net

Mot de Passe Multi-utilisateur

J'aimerais finaliser une macro par un partage Multi-utilisateurs, avec historique. 1/ lancer automatique : login + mot de passe (avec login ComboBox) 2/ SI l...

forum.excel-pratique.com

COMMENT CRÉER UNE AUTHENTIFICATION PAR MOT DE PASSE POUR INTERDIRE L’ACCÈS À CERTAINES FEUILLES EXCEL - Excel formation

Souvent lorsque l’on crée des fichiers de travail sur Excel, nous aimerions faire en sorte que certaines feuilles de calculs puissent n’être accessibles qu’à certains utilisateurs bien précis et inaccessibles pour les autres, et sa

www.excelformation.fr

 

[kbise]

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

 

[kbise]

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