Bonsoir forum
j'aimerai savoir comment peut on faire la mise ajour automatique des données d'un classeur qui sont les données d'un autre classeur par un code vba pour éviter la manipulation de mettre à jour les données de classeur par la boite de dialogue qui s'affiche lors de l'ouverture de classeur , le problème qui se pose est que le classeur source est fermé et protégé donc pour faire la mise a jour une boite de dialogue demande le mots de passe de classeur source pour éviter ce problème , j'ai pensé à un code qui permet d'ouvrir le classeur source des que le classeur de l'application est ouvert ,déprotéger le classeur source , puis ferme ce classeur et à la fermeture de classeur application on ouvre de nouveau le classeur source et on le protégé par l'ancien mots passe .
j'aimerai juste deprotége le classeur source avnat la mise à jour de données de classeur application et aprées la mise a jour , j'aimeria le protéger de nouveau
voici le code que je l'ai fait mais il ne repond pas à mes besoins
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Private Sub Workbook_Open() 'deprotégeer le classeur source Workbooks.Open Filename:="C:\Users\agora\Desktop\data base.xls", Password:="1111 ActiveWorkbook.Password = "" Workbooks("data base.xls").Close 'mise à jour de classeur aplication (j'ai pas touvé un code pour cette étape) 'proégé de nouveau classeur source Workbooks.Open Filename:="C:\Users\agora\Desktop\data base.xls", Password:="1111" ActiveWorkbook.Protect (1111) Workbooks("data base.xls").Close End Sub
Partager