Bonjour à tous,
Je travaille sur un fichier Excel sur lequel je souhaite interdire le copier/coller ou couper/coller par les utilisateurs. Jusque là pas de problème avec les codes suivants (déjà trouvé sur internet) :
Mon problème vient du fait que, sur ce même fichier, j'utilise une macro qui utilise la fonction copier/coller. Il faudrait donc que je puisse désactiver cette interdiction avant d'exécuter la macro en question mais là je coince...
Quelqu'un peu m'aider parmis les experts que vous êtes ;-)
Merci beaucoup !
Natacha
Je travaille sur un fichier Excel sur lequel je souhaite interdire le copier/coller ou couper/coller par les utilisateurs. Jusque là pas de problème avec les codes suivants (déjà trouvé sur internet) :
Code:
Private Sub Workbook_Activate()
'Interdit le collage sur la même feuille que celle qui a servi à faire la copie
Application.CutCopyMode = False
End Sub
Private Sub Workbook_open()
'Interdit le tirage des formules dans les 4 directions et le glisser déplacer
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Interdit le collage suite à une copie venant d'une autre feuille du même classeur
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Interdit le collage sur la même feuille que celle qui a servi à faire la copie
Application.CutCopyMode = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Active le tirage des formules dans les 4 directions et
'la technique du glisser-déplacer pour les cellules.
Application.CellDragAndDrop = True
'Active la possibilité de collage
Application.CutCopyMode = True
End Sub
Mon problème vient du fait que, sur ce même fichier, j'utilise une macro qui utilise la fonction copier/coller. Il faudrait donc que je puisse désactiver cette interdiction avant d'exécuter la macro en question mais là je coince...
Quelqu'un peu m'aider parmis les experts que vous êtes ;-)
Merci beaucoup !
Natacha