VBA : Macro reset filtre + empêcher copier/coller

Bonjour à tous,

Voilà j'aimerais modifier ma macro actuelle qui reset les filtres à l'ouverture de mon fichier, par la même macro mais qui les reset juste avant la fermeture de celui-ci et sauvegarde donc les changements mais UNIQUEMENT si des filtres ont été appliqués.

Voici ma macro actuelle :

Private Sub Workbook_Open()
Dim F As Worksheet
For Each F In Worksheets
If F.FilterMode Then
F.Protect UserinterfaceOnly:=True, Password:="123", AllowFiltering:=True, _
DrawingObjects:=True, Contents:=True, Scenarios:=True
F.ShowAllData: End If
Next F
End Sub




D'autres par j'aimerais également savoir s'il est possible de créer une macro afin d'empêcher totalement les copier/couper - coller sur mon fichier ?

Merci d'avance :)

Jonathan.