Probleme serieux VBA

[SkYsO]

Salut à tous

 

dans le cadre d'une entreprise, je developpe une appli sous Excel (à leur demande) et malheureusement le code vba ne peut être caché de la vue des utilisateur

 

comment faire pour le rendre innacessible ?

le probleme se pose sous Excel 97 et 95

 

merci

[KewlCat]

Le code est toujours accessible ??

Même en "protégeant la feuille de calcul" (ou le classeur, je sais plus) ?? (et en ne laissant accessible que les boutons / cellules qui doivent être utilisés)

[SkYsO]

si je protege la feuille et le classeur on peut tjs y acceder par visual basic editor

et dans 95 c'est encore pire car les macro sont sur des feuilles modules et on peut meme po les cacher

[KewlCat]

[automne]

Y a des réponses pour ton probleme sur cette page.

 

Vive Google

 

Automne

Modifié le 15 juin 2003 par automne

[SkYsO]

merci de ta réponse mais je crois avoir déja visité ce site

je vais tout de meme reverifier

[automne]

Un petit extrait du site :

 

Protection du code VBA

 

   * Comment empêcher l'accès à Visual Basic Editor

 

   1°) Désactiver la barre d'outils VB : application.CommandBars("Visual Basic").Enabled = false

   2°) Rendre inaccessible la commande du menu Outils/ Macro

 

       Sub MasqueMenuOutilsMacros()

       application.CommandBars(1).Controls(6).Controls(10).Enabled = false

       end Sub

 

       'Pour réafficher le Menu Outils, Macros :

       Sub AfficheMenuOutilsMacros()

       application.CommandBars(1).Controls(6).Controls(10).Enabled = true

       end Sub

 

   * voir actioncode.htm

   * verrouiller et déverrouiller le projet VBA : news

 

     vous pouvez aussi tester ça mais c'est une proposition moins récente que la solution ci-dessus

     Declare Function FindWindowA Lib "User32" _

     (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

 

     Declare Function BringWindowToTop Lib "User32" _

     (ByVal hwnd As Long) As Long

 

     Sub Test()

     Dim Wbk As Workbook

     BringWindowToTop FindWindowA(vbNullString, Application.Caption)

     SendKeys "%{F11}^r%{F11}", True

     For Each Wbk In Workbooks

     If Wbk.Windows(1).Visible And _

     Wbk.VBProject.Protection = vbext_pp_locked Then

     Wbk.Activate

     SendKeys "%{F11}{LEFT}Zaza~%{F11}", True

     End If

     Next Wbk

     End Sub