L Laurent CECCARELLI Guest 9 Décembre 2003 #1 Bonjour, J'ai un gros soucis : J'ai activé les filtres automatiques par colonne. Je protège les données contre l'écriture. Résultat : Les filtres automatiques sont inopérants !! Que faire ? Merci Laurent laurentceccarelli@free.fr Pièces jointes PROTECTFILTRE.XLS.zip 2.8 KB · Affichages: 79
Bonjour, J'ai un gros soucis : J'ai activé les filtres automatiques par colonne. Je protège les données contre l'écriture. Résultat : Les filtres automatiques sont inopérants !! Que faire ? Merci Laurent laurentceccarelli@free.fr
P Pascal76 Guest 9 Décembre 2003 #2 Salut Laurent Je pense que ce code devrait faire l'affaire Private Sub Workbook_Open() Feuil1.EnableAutoFilter = True Feuil1.Protect Contents:=True, UserInterfaceOnly:=True End Sub J'espère que cela répond à ta question Pascal Vote positif 0 Vote négatif
Salut Laurent Je pense que ce code devrait faire l'affaire Private Sub Workbook_Open() Feuil1.EnableAutoFilter = True Feuil1.Protect Contents:=True, UserInterfaceOnly:=True End Sub J'espère que cela répond à ta question Pascal
L Laurent CECCARELLI Guest 9 Décembre 2003 #3 ÇA MARCHE !! Un grand bravo et un grand merci à Pascal ! Ça fonctionne ! Laurent Vote positif 0 Vote négatif