Bloquer le copier-coller mais pas le copier-coller valeurs (par ex)
1 réponse
Vincent.
Y a-t-il un =E9v=E9nement 'before pastespecial' ou approchant ?
Peut-on en simuler un ?
Le but est d'=E9viter que l'utilisateur final n'=E9crase des=20
formats par des collages 'brutaux', mais qu'il puisse=20
malgr=E9 tout copier des valeurs, des formules, ou des=20
commentaires...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
j
une solution un peu tirée par les cheveux (pour ceux qui en ont encore) :
ajoute un onglet "svg" dans lequel tu recopies ton "onglet à ne pas déformater" (ou simplement ses formats), et prens soin de la masquer
dans la page associée audit "onglet à ne pas déformater", tu colles :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.EnableEvents = False Sheets("svg").Cells.Copy Range("A1").PasteSpecial Paste:=xlFormats Target.Select Application.EnableEvents = True End Sub
les formats de l'onglet sont automatiquement restaurés dès qu'on modifie quelque chose
ça n'empeche pas la modification volontaire des formats
http://jacxl.free.fr/
"Vincent." a écrit dans le message de news: 00b201c35cf4$2c5a5900$ Y a-t-il un événement 'before pastespecial' ou approchant ? Peut-on en simuler un ? Le but est d'éviter que l'utilisateur final n'écrase des formats par des collages 'brutaux', mais qu'il puisse malgré tout copier des valeurs, des formules, ou des commentaires...
Merci d'avance !
une solution un peu tirée par les cheveux (pour ceux qui en ont encore) :
ajoute un onglet "svg" dans lequel tu recopies ton "onglet à ne pas
déformater" (ou simplement ses formats), et prens soin de la masquer
dans la page associée audit "onglet à ne pas déformater", tu colles :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Sheets("svg").Cells.Copy
Range("A1").PasteSpecial Paste:=xlFormats
Target.Select
Application.EnableEvents = True
End Sub
les formats de l'onglet sont automatiquement restaurés dès qu'on modifie
quelque chose
ça n'empeche pas la modification volontaire des formats
J@C
http://jacxl.free.fr/
"Vincent." <vincent.fallas@fr.pwc.com> a écrit dans le message de news:
00b201c35cf4$2c5a5900$a101280a@phx.gbl...
Y a-t-il un événement 'before pastespecial' ou approchant ?
Peut-on en simuler un ?
Le but est d'éviter que l'utilisateur final n'écrase des
formats par des collages 'brutaux', mais qu'il puisse
malgré tout copier des valeurs, des formules, ou des
commentaires...
une solution un peu tirée par les cheveux (pour ceux qui en ont encore) :
ajoute un onglet "svg" dans lequel tu recopies ton "onglet à ne pas déformater" (ou simplement ses formats), et prens soin de la masquer
dans la page associée audit "onglet à ne pas déformater", tu colles :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.EnableEvents = False Sheets("svg").Cells.Copy Range("A1").PasteSpecial Paste:=xlFormats Target.Select Application.EnableEvents = True End Sub
les formats de l'onglet sont automatiquement restaurés dès qu'on modifie quelque chose
ça n'empeche pas la modification volontaire des formats
http://jacxl.free.fr/
"Vincent." a écrit dans le message de news: 00b201c35cf4$2c5a5900$ Y a-t-il un événement 'before pastespecial' ou approchant ? Peut-on en simuler un ? Le but est d'éviter que l'utilisateur final n'écrase des formats par des collages 'brutaux', mais qu'il puisse malgré tout copier des valeurs, des formules, ou des commentaires...