Bloquer un coller si pas de copier
Fermé
Luka67
Messages postés
1
Date d'inscription
vendredi 12 juillet 2013
Statut
Membre
Dernière intervention
12 juillet 2013
-
12 juil. 2013 à 07:47
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 12 juil. 2013 à 08:53
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 12 juil. 2013 à 08:53
A voir également:
- Bloquer un coller si pas de copier
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Bloquer pub youtube - Guide
- Comment savoir si on est bloqué sur messenger - Guide
- Super copier - Télécharger - Gestion de fichiers
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
12 juil. 2013 à 08:53
12 juil. 2013 à 08:53
Bonjour,
a adapter pour votre code.
lancer test apres un copier clic souris sur cellule et sans copier
'http://www.excelabo.net/excel/presse_papier
Declare Function CountClipboardFormats Lib "user32" () As Long
'fonction presse-papier vide: faux si donnees, vrai si vide
Function IsClipboardEmpty() As Boolean
IsClipboardEmpty = (CountClipboardFormats = 0)
End Function
'Tu peux l'utiliser dans une feuille de calcul : =IsClipboardEmpty() ou dans du code vba :
Sub test()
MsgBox "presse papier vide ??: " & IsClipboardEmpty
End Sub
a adapter pour votre code.
lancer test apres un copier clic souris sur cellule et sans copier
'http://www.excelabo.net/excel/presse_papier
Declare Function CountClipboardFormats Lib "user32" () As Long
'fonction presse-papier vide: faux si donnees, vrai si vide
Function IsClipboardEmpty() As Boolean
IsClipboardEmpty = (CountClipboardFormats = 0)
End Function
'Tu peux l'utiliser dans une feuille de calcul : =IsClipboardEmpty() ou dans du code vba :
Sub test()
MsgBox "presse papier vide ??: " & IsClipboardEmpty
End Sub