Range("E5").Select
Selection.AutoFilter Field:=3D4, Criteria1:=3D"S1"
Range("A1:R17").Select
ActiveSheet.PageSetup.PrintArea =3D "$A$1:$R$17"
ActiveWindow.SelectedSheets.PrintOut Copies:=3D1, Collate:=3DTrue
Selection.AutoFilter Field:=3D4
Range("C4").Select
End Sub
il fonction tr=E9s bien mais le probl=E9me se qui il ne fonction pas quand
je prot=E9ge ma feuille.
comment je peux faire pour quel fonction dans se cas la?
merci pour votre aide
cordialement.
Permet à l'utilisateur de filtrer sur une feuille protégée:
Sub Auto_Open() Sheets(1).EnableAutoFilter = True Sheets(1).Protect Contents:=True, UserInterfaceOnly:=True End Sub
JB
On 15 fév, 08:47, wrote:
bonjour you le monde
j'ai energistré se macro d'impression
Range("E5").Select Selection.AutoFilter Field:=4, Criteria1:="S1" Range("A1:R17").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$R$17" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Selection.AutoFilter Field:=4 Range("C4").Select End Sub
il fonction trés bien mais le probléme se qui il ne fonction pas quand je protége ma feuille. comment je peux faire pour quel fonction dans se cas la? merci pour votre aide cordialement.
Bonjour,
Enlever la protection en début de macro puis la rétablir en fin de
macro:
Permet à l'utilisateur de filtrer sur une feuille protégée:
Sub Auto_Open()
Sheets(1).EnableAutoFilter = True
Sheets(1).Protect Contents:=True, UserInterfaceOnly:=True
End Sub
JB
On 15 fév, 08:47, ezzaouin...@yahoo.fr wrote:
bonjour you le monde
j'ai energistré se macro d'impression
Range("E5").Select
Selection.AutoFilter Field:=4, Criteria1:="S1"
Range("A1:R17").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$R$17"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=4
Range("C4").Select
End Sub
il fonction trés bien mais le probléme se qui il ne fonction pas quand
je protége ma feuille.
comment je peux faire pour quel fonction dans se cas la?
merci pour votre aide
cordialement.
Permet à l'utilisateur de filtrer sur une feuille protégée:
Sub Auto_Open() Sheets(1).EnableAutoFilter = True Sheets(1).Protect Contents:=True, UserInterfaceOnly:=True End Sub
JB
On 15 fév, 08:47, wrote:
bonjour you le monde
j'ai energistré se macro d'impression
Range("E5").Select Selection.AutoFilter Field:=4, Criteria1:="S1" Range("A1:R17").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$R$17" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Selection.AutoFilter Field:=4 Range("C4").Select End Sub
il fonction trés bien mais le probléme se qui il ne fonction pas quand je protége ma feuille. comment je peux faire pour quel fonction dans se cas la? merci pour votre aide cordialement.
