XL 2019 Tester si Vba est protégé

youky(BJ)

XLDnaute Barbatruc

• 15 Mai 2024

• #2

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Mai 2024

• #3

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 :

VB:

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+

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Accro

Supporter XLD

• 15 Mai 2024

• #4

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

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 15 Mai 2024

• #5

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

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Accro

Supporter XLD

• 15 Mai 2024

• #6

dysorthographie à dit:

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

Cliquez pour agrandir...

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é.

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Accro

Supporter XLD

• 15 Mai 2024

• #7

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Mai 2024

• #8

Nicolas JACQUIN à dit:

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é.

Cliquez pour agrandir...

Dans la macro il suffit de remplacer ThisWorkbook par ActiveWorkbook

Puis d'activer le fichier B.

 

Vote positif 0 Vote négatif