Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Inscrire des données dans un UF externe

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Xtian_Québec

XLDnaute Occasionnel
Salut le Forum, je sollicite encore votre aide pour résoudre mon problème.

J'ai un fichier "DMI_Contrôle.xls" dont toutes les feuilles sont masquées et qui affiche un UserForm à l'ouverture (avec Workbook_Open). Ce Userform demande un mot de passe à l'utilisateur afin d'afficher les feuilles de ce classeur. Un nombre restreint de personnes ont le mot de passe. Si l'utilisateur n'inscrit pas le bon mot de passe, le fichier se referme.

Mon problème est justement causé par ce Userform. En fait, les utilisateurs du fichier "exécution.xls" n'ont pas nécessairement accès au fichier "DMI_Contrôle.xls" mais des données du fichier "DMI_Contrôle.xls" sont nécessaires dans le fichier "exécution.xls". J'ai donc un code qui ouvre le fichier DMI_Contrôle.xls pour récupérer les données nécessaires mais le Userform demande le mot de passe.

Comment "inscrire" automatiquement (par code) le mot de passe dans ce UserForm ? Voici une partie du code que j'utilise pour récupérer les données. À quel endroit, si c'est possible, dois-je insérer le mot de passe?

Mon UserForm se nomme "frmLogin" et contient un textbox nommé "tbPW", un bouton OK nommé "btnOKPW" et un bouton Annuler nommé "btnAnnulerPW"

Mon Code:
...
Set ab = ActiveWorkbook
Workbooks.Open ThisWorkbook.Path & "\DMI_Contrôle.xls"
# # # LE PROBLÈME EST ICI # # #
Application.ScreenUpdating = False
'Vérification du USER ID
Set wb = ActiveWorkbook
wb.Sheets("UserID").Visible = True
wb.Sheets("UserID").Select
Range("C12").Select
...

Merci pour votre aide
@+++
Xtian_Québec
 
Trier par date Trier par votes
Re : Inscrire des données dans un UF externe

Salut Xtian_Québec et le Forum

Un idée à voir si celà pourrait aller

Dans le Fichier avec le Userform (auto_open)

Code: 
Private Sub Workbook_Open()
On Error Resume Next
    Workbooks("exécution").Activate
    If Err <> 0 Then
    MsgBox ("Pas ouvert")
    UserForm1.Show
    Else
    MsgBox ("Déjà ouvert")
    End If
End Sub

Et dans l'autre fichier

Code: 
Sub ouvrir()
 
Set ab = ActiveWorkbook
Workbooks.Open ThisWorkbook.Path & "\DMI_Contrôle.xls"
'
End Sub

Mytå
 
Vote positif 0 Vote négatif
Re : Inscrire des données dans un UF externe

Re Mytå et le forum

Un gros merci Mytå, le fameux UserForm apparaît toujours et mon problème persiste...entre temps, j'ai fouiner ici et là et je viens, il y a quelques minutes à peine, trouver une solution à mon pb...

Au lieu de protéger l'affichage de mon fichier "contrôle"avec un UF à l'ouverture et un mot de passe, j'ai enregistrer mon fichier avec enregistrer-sous + options générales en sélectionnant un mot de passe pour protéger mon fichier...Pas de mot de passe, pas d'accès au fichier et c'est ce que je veux. Seulement quelques utilisateurs...

Pour mon autre fichier qui doit consulter ce fichier protéger, j'ai ajouté le "password" dans mon code et tout est OK présentement...

Workbooks.Open ThisWorkbook.Path & "\DMI_Contrôle.xls", , , , "Motpasse", "MotPasse"

Mon seul pb maintenant sera de m'assurer que les utilisateurs ne changeront pas le mot de passe dans le premier fichier car le mot de passe sera "fixe" dans mon code...à moins qu'il y ait une manière de récupérer le dernier mot de passe du fichier "protéger" et de copier cette valeur à un endroit quelconque de mon fichier et récupérer cette valeur dans mon code...Je crois que c'est impossible car pour obtenir le mot de passe, il faut d'abord ouvrir le fichier...

Un gros merci et si tu as d'autres idées, je suis preneur...
@+++
Xtian_Québec
 
Vote positif 0 Vote négatif
Re : Inscrire des données dans un UF externe

Re le Forum

Pour éviter la modification

dans before_close force le motde passe

ActiveWorkbook.SaveAs Filename:="C:\Ton_fichier.xls", FileFormat:=xlNormal , Password:="abc", WriteResPassword:="def"

Mytå
 
Vote positif 0 Vote négatif
Re : Inscrire des données dans un UF externe

Re Mytå , le forum

Brillant cher Watson !!!

Très bonne idée...Le seul petit hic, c'est que le fichier "controle" est unique et il y a plusieurs fichiers "exécution" qui interrogent ce fichier. Le code dans les fichiers "exécution" est fixe dans le code

Workbooks.Open ThisWorkbook.Path & "\DMI_Contrôle.xls", , , , "MotPasse", "MotPasse".

Je pourrais effectivement forcer le mot de passe dans le fichier "contrôle" avec

ActiveWorkbook.SaveAs Filename:="C:\Contrôle.xls", FileFormat:=xlNormal , Password:="MotPasse", WriteResPassword:="MotPasse"

pour m'assurer qu'il coïncide avec mon code mais je ne vois pas l'intérêt de modifier un mot de passe si à la fermeture du fichier, il est "forcer"...Les quelques utilisateurs doivent connaître ce mot de passe pour pouvoir faire des modifications dans le fichier "contrôle"...donc, s'il est toujours forcer, à quoi bon le changer !

Par contre, avec ton idée, j'ai deux questions en tête :
1) Est-il possible d'avoir 2 mot de passe dans un fichier, un variable que l'on peut changer à demande et un autre fixe, genre mot de passe administrateur...Si c'est possible, le mot de passe administrateur serait fixe dans le fichier "contrôle" et serait utiliser dans le code des fichiers "exécution". L'autre serait utiliser par les utilisateurs et il pourrait être changé...Et-ce possible ???

2) Je pensais utiliser un fichier secret indépendant des deux autres qui servirait d'intermédiaire entre mes fichiers...Dans mon code ActiveWorkbook.SaveAs , je pourrais ajouter du code pour envoyer le nouveau mot de passe dans le fichier intermédiaire et récupérer ce mot de passe avec le code Workbooks.Open dans les fichiers "exécution". À cet effet, j'utilise déjà un autre fichier externe qui se nomme "AIDE.xls" et qui contient des instructions, des explications concernant mon fichier "exécution". Je pourrais cacher le mot de passe dans ce fichier, dans une feuille masquée, dans la cellule HA45673 par exemple...

Si le # 1 est impossible, je crois que je vais baragouiner quelques codes avec le # 2...

Merci encore de ton aide, c'est vraiment apprécié
@+++
Xtian_Québec
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
Microsoft 365 Affichage , recherche et extraire des données .
Réponses
1
Affichages
111
vgendron
H
  • Question Question
Power Query Récupérer des données multiples dans un dossier
Réponses
9
Affichages
241
hijackfr
H
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
537
tnion
T
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
234
vgendron
M
  • Question Question
XL 2021 Aide pour sauvegarde des données dans un calendrier automatique Excel
Réponses
2
Affichages
111
mimednejma
M
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
2 K
cathodique
D
  • Résolu(e)
Microsoft 365 récupérer des données d'une feuille excel d'un classeur A pour les incrémenter automatiquement sur le classeur B
Réponses
10
Affichages
169
TooFatBoy
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
488
vgendron
C
  • Question Question
Microsoft 365 Disparation de données dans des fichiers excel
Réponses
10
Affichages
437
CedricR34
C
R
  • Question Question
Microsoft 365 Afficher des images insérées dans le classeur sur un UserForm
Réponses
4
Affichages
251
Redba13
R
Z
  • Question Question
XL 2016 Automatisation transfert données dans un autre fichier
Réponses
1
Affichages
103
C'est papy Mougeot !
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
629
arnoldbrice19
A
R
  • Question Question
Microsoft 365 Inscrire une date et initiales dans un fichier .pdf ouvert
Réponses
1
Affichages
312
kiki29
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
258
picc
P
  • Résolu(e)
XL 2019 Données ne se mettent pas à jour par Macro, mais Manuellement OUI.
Réponses
8
Affichages
187
sylvanu
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
161
job75
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
561
spike29
S
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
208
patricktoulon
  • Résolu(e)
XL 2021 Aide adaptation code vba pour complément
Réponses
7
Affichages
374
Nicolas JACQUIN
M
  • Question Question
XL 2021 Protection des onglets
Réponses
2
Affichages
298
MANU64360
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…