XL 2019 Tester si Vba est protégé

[Nicolas JACQUIN]

Bonjour à tous,
Comment testé si vba est protéger depuis un bouton
Merci

 

[youky(BJ)]

Bonjour Nicolas,
Voir ce lien
https://excel-downloads.com/threads/verrouiller-deverrouiller-projet-vba-par-macro.20034972/
Bruno

 

[job75]

Bonjour,

Il faut avoir coché l'option Accès approuvé au modèle d'objet du projet VBA (onglet Fichier-Options-Centre de gestion de la confidentialité-Paramètres...-Paramètres des macros).

Ensuite affectez cette macro au bouton :

Sub Test()
Dim VPC  As Object
On Error Resume Next
Set VPC = ThisWorkbook.VBProject.VBComponents
If Err Then MsgBox "VBAProject est protégé"
End Sub

A+

 

[Nicolas JACQUIN]

Bonjour,
Merci à vous deux, je vais regarder merci encore

 

[dysorthographie]

Bonjour,
Si tu peux écrire,dans ton fichier,le code proposé par Job75 c'est qu'il n'est pas protégé

 

[Nicolas JACQUIN]

Bonjour,
Si tu peux écrire,dans ton fichier,le code proposé par Job75 c'est qu'il n'est pas protégé

Bonjour Robert,

oui effectivement ça ne fonctionne pas, le but est d'ouvrir mon programme en paralelle ou de faire un xla, pour voir tout ce qui est protégé ou masqué dans le fichier traité.

 

[Nicolas JACQUIN]

Si je reprends la macro de #job75, et quelle sera dans le fichier A, comment la modifier pour quelle détecte si vba dans fichier B est protégé.
J'espère que c'est assez clair.
Merci

 

[job75]

Si je reprends la macro de #job75, et quelle sera dans le fichier A, comment la modifier pour quelle détecte si vba dans fichier B est protégé.

Dans la macro il suffit de remplacer ThisWorkbook par ActiveWorkbook

Puis d'activer le fichier B.