Problème de protection

[sev]

Bonjour à tous, j'ai un problème de protection :

Lorsque qu'une macro s'exécute l'option Tri et Utiliser le filtre automtique se décochent !!!

Private Sub Workbook_Open()
Sheets("Saisie").Unprotect
Sheets("Saisie").Range("D4") = Range("U6").Value
Macro1

End Sub

Sub Macro1()

Sheets("Saisie").Unprotect

Application.ScreenUpdating = False
ActiveSheet.Rows.Hidden = False


For n = 23 To Range("A65536").End(xlUp).Row
If CDate(Range("C" & n)) > Range("D4").Value Then
Rows(n).Hidden = True
Else
Rows(n).Hidden = False
End If
Next n
Application.ScreenUpdating = True

Range("H18").Select
Range("H19").Select

Range("A1").Select
Sheets("Saisie").Protect

End Sub


Le problème vient-il du code ???

 

[Staple1600]

Re : Problème de protection

Bonjour



Essayer de voir du côté de UserInterface Only
https://www.excel-downloads.com/threads/proteger-avec-userinterfaceonly.61191/

 

[sev]

Re : Problème de protection

C'est code qui met le bazare:

Private Sub BoutQuitte_Click()
Sheets("Saisie").Unprotect

Range("D4").Value = LabDate
Macro1
Unload Me
Sheets("Saisie").Protect

Comment activer les fonctions de Tri et Utiliser le filtre automatique quand je reprotège la feuille ?

 

[Staple1600]

Re : Problème de protection

RE


Tu as essayé UserInterface Only ?

 

[sev]

Re : Problème de protection

Oui sans succès !!!

Je ne comprend pas pourquoi les options de protection changent

 

[Staple1600]

Re : Problème de protection

Re


Pourquoi cette ligne
Unload Me


Ne peux-tu pas jondre un fichier (zippé) qu'on y voit plus clair?

 

[sev]

Re : Problème de protection

Unload Me pour fermer un userform.

Mon fichier est hyper lourd alors même zippé.

J'essairais d'en faire un extrait

 

[Staple1600]

Re : Problème de protection

Re

C'est surtotu le code VBA qu'il faudrait voir

(avec un minimun de données)

 

[Pierrot93]

Re : Problème de protection

Bonjour Sev, Staple

à la fin de ta macro, lorsque tu re-protèges ta feuille, essayes comme ci dessous (version Excel 2003) :

With Sheets("Saisie")
    .EnableAutoFilter = True 
    .Protect Password:="toto", AllowSorting:=True, AllowFiltering:=True
End With

permet à l'utilisateur de faire des tris et d'utiliser les filtres auto, mais ne permet pas création / suppression d'un filtre auto.

bon après midi
@+