Discussion :

[totofsal]

Bonjour à tous,

j'ai un fichier Excel avec macros partagé en réseau.
Certains petits malins ouvrent le fichier avec OpenOffice ou LibreOffice pour éviter de "subir" les macros au démarrage du fichier et bidouillent le fichier ensuite en le rendant inopérant par la suite sous Excel

Est-il possible de ne pas autoriser l'ouverture d'un fichier Excel par les applications open source citées ?
fichier Excel en .xls (Excel 2003, compatible 2010)

merci par avance pour vos renseignements

Totof

[joe.levrai]

Bonjour,

le plus simple est de brider l'utilisation du fichier pour obliger les utilisateurs à activer les macros

Tu crées une feuille toute blanche avec un encadré de type "veuillez activer les macros pour utiliser le fichier"

toutes les autres feuilles sont masquées en very hidden
ton projet vba est verrouillé par mot de passe

et dans ta macro workbook_open :

- tu masques la feuille d'accueil
- tu affiches les autres feuilles


ce qui veut dire que si les macros ne sont pas activées ... l'utilisateur n'a que la feuille accueil disponible

(ne pas oublier de réaliser l'opération inverse à la fermeture du classeur)

[Invité]

Bonjour,
Debug.Print Application.Name! de toutes le façons l'affectation d'une référence à un objet est différente dans Office Set toto = ThisWorkbook.Application! fait planer l'application!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
If InStr(Application.Name, "Excel") = 0 Then Err.Raise 1664, ThisWorkbook.Name, "Vas donc boire une bière à ma santé!"
End Sub

[totofsal]

génial rdurupt !


je vais la mettre telle quelle, tellement elle me fait rire !

super gentil

bravo pour votre aide à tous !

[totofsal]

Bonjour,
Debug.Print Application.Name! de toutes le façons l'affectation d'une référence à un objet est différente dans Office Set toto = ThisWorkbook.Application! fait planer l'application!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
If InStr(Application.Name, "Excel") = 0 Then Err.Raise 1664, ThisWorkbook.Name, "Vas donc boire une bière à ma santé!"
End Sub

la manip ne fonctionne pas directement car pour LibreOffice par exemple, effectivement il y a un blocage mais l'option "réparer le fichier" reste active et donc cette option est "contournable"

[Invité]

Je ne connais pas le monde se l'open source, mais le fichier est il vraiment réparer, ou le bug revient à l'ouverture suivante. As tu mis un mot de passe sur le projet VB, car encore faut-il pouvoir réparer.
Si tu place le code bugueur avant l'appel d'une macro principale ça doit foutre la gruge et passablement énerver!

Remarques si tu protégé pas le projet Excel te propose également de debuger!

Édite: Pour information,ma solution vérole le soft, celle de Joe le protégé vraiment!

Fais un mixte