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

bloque l'accès à VBA

  • Initiateur de la discussion Brigitte
  • Date de début
B

Brigitte

Guest
Bonjour Le forum,

Je cherche une macro qui bloque l'accès à VBA. Je ne souhaite pas me servir
du mot de passe dans Propriété VBA.

Je souhaite bloquer l'accès aux touches ALT + F11 ainsi que menu outils visual Basic Editor.

J'ai essayé une macro que j'ai trouvé sur les fils du mois de mai, mais elle se mets en erreur
à FindWindowA, si elle marche elle pourrait faire l'affaire.
Voici ce que j'ai pris.

'Bloquer l'accès à l'éditeur VBA depuis Excel
Sub BloquerVBE()
With Application.VBE.MainWindow
.Visible = True
.WindowState = 1
EnableWindow FindWindowA("wndclass_desked_gsk", .Caption), 0
End With
End Sub

Sub DébloquerVBE()
With Application.VBE.MainWindow
EnableWindow FindWindowA("wndclass_desked_gsk", .Caption), 1
.Visible = True
.WindowState = 2
End With
End Sub


Merci d'avance

@Brigitte
 
M

Max

Guest
Salut,
place ceci dans la partie déclaration (en tête de module)

Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function

EnableWindow Lib "user32" (ByVal hWnd As Long, ByVal bEnable As Long) As Long
 
B

Brigitte

Guest
Bonjour Max,

Merci pour tes infos, mais ça ne marche toujours pas.

J'ai insérer tes 2 lignes en début de mon module
mais ses lignes sont en rouge dans VBA comme
si c'était une erreur.
Voici mon fichier exemple...

@Brigitte
 

Pièces jointes

  • accesvba.zip
    6.5 KB · Affichages: 72
B

Brigitte

Guest
Bonjour tout le monde,

Merci Renato c'est Ok.
Je suis tellement débutante que je ne pensais pas que
l'on devait placer ce code comme tu me l'as fait.

Merci à tous les deux

@Brigitte
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…