protection macro

[olivier]

Bonjour le forum,

Bon aujourd'hui, je voudrais protéger certaines de mes macros de mon fichier excel donc j'ai mis un password au VBA Project. mais là toutes les macros enregistrées dans le module sont invisibles, ce qui est pas mal. Mais j'aimerais si possible interdire l'accès qu'à certaines macros et non toutes ???

@+
Merci

 

[Zon]

Salut,

On ne peut pas faire la chose à moitié malheureusement. Mais si c'est juste afficher pour l'utilisateur certains modules, tu peux exporter ces modules dans un nouveau classeur:

Sub Princ()
  Dim C As Workbook, T, I&
  T = Array('Module1', 'Module2') ' à adapter
  Set C = Workbooks.Add
  For I = 0 To UBound(T)
    Export ThisWorkbook, T(I)
    Import C, T(I)
  Next I
End Sub

Sub Export(C As Workbook, ByVal NomMod$)
  C.VBProject.VBComponents(NomMod).Export NomMod & '.bas'
End Sub

Sub Import(C As Workbook, ByVal NomMod$)
  On Error Resume Next
  C.VBProject.VBComponents.Import(NomMod & '.bas').Name = NomMod
End Sub

A+++

 

[galopin01]

bonjour,
pas trop le temps de me pencher, mais on devrait pouvoir enregistrer les macros sensibles en xla dans un autre classeur (vide) et les passer en référence.
A+

 

[Olivier]

waouhhh, c'est pas d'la tarte ton truc ;-) mais je vais me pencher là dessus.
Mille mercis pour ta générosité
@+
Olivier