bloque l'accès à VBA

[Brigitte]

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

 

[Max]

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

 

[Brigitte]

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

 

[renato]

salut brigitte,
essai ston fichier accesvba2 rectifié, il fonctionne.
@+
renato

 

[Brigitte]

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