empêcher le glisser deposer d'un fichier excel dans une autre application pendant son utilisation

patricktoulon

XLDnaute Barbatruc
Bonjour à tous
petite astuce toute simple
le sujet a été évoqué par @Usine à gaz dans une discussion
a savoir empêcher le glisser déposer dans une autre application d'un fichier excel (SKYPE par exemple ou meme simplement outlook(owa))

l'astuce est simple on va cacher l’icône du fichier pendant son utilisation en lui mettant l'attribut(caché)--> vbhidden

il sera difficile de faire un glisser / déposer d'un fichier que l'on ne peut pas atteindre
VB:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
SetAttr ThisWorkbook.FullName, vbNormal
End Sub

Private Sub Workbook_Open()
SetAttr ThisWorkbook.FullName, vbHidden
End Sub
demo.gif
 

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib