Bonjour,
Je prépare un fichier excel qui sera utilisé par d'autres utilisateurs. j'ai des cellules sous différents formats conditionnels et je ne veux pas qu'on puisse les copier coller afin d'éviter toute modification de leur format.
Pour ce faire, jai réussi à trouver un macro qui n'autorise que "coller valeur" en clic droit.Mais si l'utilisateur utilise ctrl+C et ctrl+V, les cellules seront collées comme si on aurait choisi "coller tout".
ya t-il un moyen pour rajouter une commande dans le macro utilisé pour désactiver également le "ctrl+C" ou "ctrl+V?
Je vous remercie d'avance.
le macro que j'utilise pour autoriser uniquement le "coller valeur" est le suivant:
Sub coller_off()
With CommandBars(1).Controls("Edition")
.Controls("Coller").Enabled = False
.Controls("Collage spécial...").Enabled = False
End With
With CommandBars("Cell")
.Controls("Coller").Enabled = False
.Controls("Collage spécial...").Enabled = False
On Error Resume Next
With .Controls.Add(msoControlButton, , , 3, True)
.Caption = "Coller la valeur"
.OnAction = "Col_valeur"
End With
End With
End Sub
Sub coller_on()
With CommandBars(1).Controls("Edition")
.Controls("Coller").Enabled = True
.Controls("Collage spécial...").Enabled = True
End With
With CommandBars("Cell")
.Controls("Coller").Enabled = True
.Controls("Collage spécial...").Enabled = True
On Error Resume Next
.Controls("Coller la valeur").Delete
End With
End Sub
Sub Col_valeur()
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Je prépare un fichier excel qui sera utilisé par d'autres utilisateurs. j'ai des cellules sous différents formats conditionnels et je ne veux pas qu'on puisse les copier coller afin d'éviter toute modification de leur format.
Pour ce faire, jai réussi à trouver un macro qui n'autorise que "coller valeur" en clic droit.Mais si l'utilisateur utilise ctrl+C et ctrl+V, les cellules seront collées comme si on aurait choisi "coller tout".
ya t-il un moyen pour rajouter une commande dans le macro utilisé pour désactiver également le "ctrl+C" ou "ctrl+V?
Je vous remercie d'avance.
le macro que j'utilise pour autoriser uniquement le "coller valeur" est le suivant:
Sub coller_off()
With CommandBars(1).Controls("Edition")
.Controls("Coller").Enabled = False
.Controls("Collage spécial...").Enabled = False
End With
With CommandBars("Cell")
.Controls("Coller").Enabled = False
.Controls("Collage spécial...").Enabled = False
On Error Resume Next
With .Controls.Add(msoControlButton, , , 3, True)
.Caption = "Coller la valeur"
.OnAction = "Col_valeur"
End With
End With
End Sub
Sub coller_on()
With CommandBars(1).Controls("Edition")
.Controls("Coller").Enabled = True
.Controls("Collage spécial...").Enabled = True
End With
With CommandBars("Cell")
.Controls("Coller").Enabled = True
.Controls("Collage spécial...").Enabled = True
On Error Resume Next
.Controls("Coller la valeur").Delete
End With
End Sub
Sub Col_valeur()
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub