Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Filtre automatique et feuille protégée: suis en rade! (reprise fil du jour)

6 réponses
Avatar
ManBas
Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas
quand même,
- je ne parviens pas à utiliser allowfiltering=true.

Merci de revenir à mon aide.

6 réponses

Avatar
LSteph
Bonjour,
(Pas la peine de faire un autre fil!!!)
Comme je te le disais c'est pour les versions récentes en param de protect
si tu es en 2000 cela ne va pas .

Ceci devrait fonctionner (marche avec 97 et 2003)
en supposant Feuil1 et titres en rows(1)
se déclenche à l'ouverture à mettre

'************
'dans Thisworkbook
'****
Private Sub Workbook_Open()

With Feuil1
If Not .AutoFilterMode Then
.Rows(1).Select
Selection.AutoFilter

End If
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub
'*********

'lSteph

"ManBas" a écrit dans le message de news:

Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas
quand même,
- je ne parviens pas à utiliser allowfiltering=true.

Merci de revenir à mon aide.



Avatar
Phil99999
ça ne marche pas ça ???

ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFiltering:=True

Si non, désolé, j'ai Excel 2002, donc je ne peux pas t'aider ... (ça marche
sur Excel 2002)
A+
Phil


Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas
quand même,
- je ne parviens pas à utiliser allowfiltering=true.

Merci de revenir à mon aide.





Avatar
ManBas
Merci Phil,
Je réponds dans le désordre mais j'ai pris du temps avant d'avouer mon
incompétence.
Ton code bloque avec erreur 1004, définie par l'application ou par l'objet.
??

"Phil99999" (!sansspam!)> a écrit dans le message de
news:
ça ne marche pas ça ???

ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFiltering:=True

Si non, désolé, j'ai Excel 2002, donc je ne peux pas t'aider ... (ça
marche
sur Excel 2002)
A+
Phil


Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas
quand même,
- je ne parviens pas à utiliser allowfiltering=true.

Merci de revenir à mon aide.







Avatar
ManBas
Re-bonjour LSteph,

ça marche impeccable, le temps de tester les 2 solutions (et de rajouter
sheets("feuill1"): un rien m'arrête, mais je persiste quand même).
Mille merci.

"LSteph" a écrit dans le message de news:

Bonjour,
(Pas la peine de faire un autre fil!!!)
Comme je te le disais c'est pour les versions récentes en param de protect
si tu es en 2000 cela ne va pas .

Ceci devrait fonctionner (marche avec 97 et 2003)
en supposant Feuil1 et titres en rows(1)
se déclenche à l'ouverture à mettre

'************
'dans Thisworkbook
'****
Private Sub Workbook_Open()

With Feuil1
If Not .AutoFilterMode Then
.Rows(1).Select
Selection.AutoFilter

End If
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub
'*********

'lSteph

"ManBas" a écrit dans le message de news:

Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas
quand même,
- je ne parviens pas à utiliser allowfiltering=true.

Merci de revenir à mon aide.







Avatar
LSteph
;o) tant mieux!

En fait ton code d'origine n'était pas loin du but!

Bonne soirée

lSteph

"ManBas" a écrit dans le message de news:
%23YaMx%
Re-bonjour LSteph,

ça marche impeccable, le temps de tester les 2 solutions (et de rajouter
sheets("feuill1"): un rien m'arrête, mais je persiste quand même).
Mille merci.

"LSteph" a écrit dans le message de news:

Bonjour,
(Pas la peine de faire un autre fil!!!)
Comme je te le disais c'est pour les versions récentes en param de
protect
si tu es en 2000 cela ne va pas .

Ceci devrait fonctionner (marche avec 97 et 2003)
en supposant Feuil1 et titres en rows(1)
se déclenche à l'ouverture à mettre

'************
'dans Thisworkbook
'****
Private Sub Workbook_Open()

With Feuil1
If Not .AutoFilterMode Then
.Rows(1).Select
Selection.AutoFilter

End If
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub
'*********

'lSteph

"ManBas" a écrit dans le message de news:

Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne
pas quand même,
- je ne parviens pas à utiliser allowfiltering=true.

Merci de revenir à mon aide.











Avatar
ManBas
Bof! Sur ce coup-là j'étais trés loin.
Le génie c'est de fournir des codes si simples que celui qui les lit se dit
"que je suis c.."!
Encore merci.

"LSteph" a écrit dans le message de news:

;o) tant mieux!

En fait ton code d'origine n'était pas loin du but!

Bonne soirée

lSteph

"ManBas" a écrit dans le message de news:
%23YaMx%
Re-bonjour LSteph,

ça marche impeccable, le temps de tester les 2 solutions (et de rajouter
sheets("feuill1"): un rien m'arrête, mais je persiste quand même).
Mille merci.

"LSteph" a écrit dans le message de news:

Bonjour,
(Pas la peine de faire un autre fil!!!)
Comme je te le disais c'est pour les versions récentes en param de
protect
si tu es en 2000 cela ne va pas .

Ceci devrait fonctionner (marche avec 97 et 2003)
en supposant Feuil1 et titres en rows(1)
se déclenche à l'ouverture à mettre

'************
'dans Thisworkbook
'****
Private Sub Workbook_Open()

With Feuil1
If Not .AutoFilterMode Then
.Rows(1).Select
Selection.AutoFilter

End If
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub
'*********

'lSteph

"ManBas" a écrit dans le message de news:

Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne
pas quand même,
- je ne parviens pas à utiliser allowfiltering=true.

Merci de revenir à mon aide.