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
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16