villette54
XLDnaute Junior
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 :
- de couper le fichier
- de coller sur le fichier
- mais qui laisse la possibilité de copier (par exemple copier une partie du fichier pour la recopier dans un mail)
Merci d'avance
Jonathan.
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 :
- de couper le fichier
- de coller sur le fichier
- mais qui laisse la possibilité de copier (par exemple copier une partie du fichier pour la recopier dans un mail)
Merci d'avance
Jonathan.