• Initiateur de la discussion Initiateur de la discussion calipsso
  • Date de début Date de début

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 !

C

calipsso

Guest
Bonjour à tous,

J'ai actuellement un projet sur notre réseau qui est utilisé par plusieurs personnes que je voudrais upgrader.
En fait ce fichier que j'ai créé à l'époque liste dans une combobox le nom de chaque onglet du fichier et ensuite cache tous les onglets et n'affiche que l'onglet désiré. Malheureusement j'ai oublié de prévoir ce genre de code(fichier *.BAS):
Sub afficher()
Attribute afficher.VB_Description = 'Affiche tous les onglets afin d'éditer ces derniers'
Attribute afficher.VB_ProcData.VB_Invoke_Func = 'a\\n14'
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Name = 'LOGIN' Then
WS.Visible = xlSheetHidden
Else
WS.Visible = xlSheetVisible
End If
Next
End Sub
Je me demande s'il y a moyen de déprotéger ce fichier, rajouter ce module au projet et reprotéger ce fichier par vba...

D'avance merci pour votre aide.
 
Salut calipso,

Bon ce n'est pas ton jour 🙂 Malheureusement tu ne peux pas déprotéger un projet via du code vb(a).
_Thierry a posté un truc il y quelques temps sur le sujet (fait une recherche sur le forum concernant la protection) mais je crois que nous étions d'accord pour dire que cela n'était pas possible.

Bon courage
 
re,

merci pour ta réponse mr excel mais c'est pas trop la protection qui me gêne c'est le fait de rajouter ce module automatiquement et je pense avoir trouvé;
(Fichier).VBProject.VBComponents.Import (fichier)
...


Désolé pour le dérangement 😉

Message édité par: calipsso, à: 31/03/2005 12:30
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
823
P
Réponses
0
Affichages
833
pin_electronic
P
A
Réponses
8
Affichages
2 K
T
Réponses
6
Affichages
5 K
tchaz26
T
Retour