Accès Editeur VBA

Le
M41
Bonjour

Comment bloquer l'accès à l'éditeur VBA en utilisant VBA

Merci. Cordialement

M41
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #5528721
Bonjour,

Imagine qu'on te bloque l'accès à l'Editeur VBA..!

Protège plutôt ton projet.

Cordialement.

--
lSteph


Bonjour

Comment bloquer l'accès à l'éditeur VBA en utilisant VBA

Merci. Cordialement

M41




M41
Le #5534381
Re
ça c'est fait.
c'est juste pour en ajouter une couche au niveau protection
à+
M41


"LSteph"
Bonjour,

Imagine qu'on te bloque l'accès à l'Editeur VBA..!

Protège plutôt ton projet.

Cordialement.

--
lSteph


Bonjour

Comment bloquer l'accès à l'éditeur VBA en utilisant VBA

Merci. Cordialement

M41




PMO
Le #5923781
Bonjour,

Une piste avec le code suivant à copier
dans ThisWorkbook

'***********************
Private Sub Workbook_Activate()
On Error Resume Next
Application.VBE.MainWindow.Visible = False
Call SwitchVBE(False)
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.VBE.MainWindow.Visible = True
Call SwitchVBE(True)
End Sub

Sub SwitchVBE(bool As Boolean)
With Application
If bool Then
.OnKey "%{F8}"
.OnKey "%{F11}"
Else
.OnKey "%{F8}", ""
.OnKey "%{F11}", ""
End If
.CommandBars("Visual Basic").Enabled = bool
.CommandBars("Macro").Enabled = bool
End With
End Sub
'***********************

Cordialement.

PMO
Patrick Morange
Publicité
Poster une réponse
Anonyme