J'aimerais mettre à disposition des intéressés, une classeur EXCEL qui
contient une feuille dont toutes les cellules sont verrouillées à
l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée, les utilisateurs
puissent utiliser le filtre automatique pour faire des tris (provisoires et
non enregistrables bien sur!) selon leurs besoins. Hors si la feuille est
protégée ce n'est pas possible...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Croquignol
Jean-Claude,
Dans le module ThisWorkbook de ton classeur :
Private Sub Workbook_Open() Sheets("Feuil1").Protect UserInterfaceOnly:=True Sheets("Feuil1").EnableAutoFilter = True End Sub
Ferme et rouvre le classeur pour tester.
Bonne chance,
Croquignol
Bonjour à tous,
J'aimerais mettre à disposition des intéressés, une classeur EXCEL qui contient une feuille dont toutes les cellules sont verrouillées à l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée, les utilisateurs puissent utiliser le filtre automatique pour faire des tris (provisoires et non enregistrables bien sur!) selon leurs besoins. Hors si la feuille est protégée ce n'est pas possible...
Quelqu'un aurait-il une idée?
Merci à tous et bonne journée.
Jean-Claude
Jean-Claude,
Dans le module ThisWorkbook de ton classeur :
Private Sub Workbook_Open()
Sheets("Feuil1").Protect UserInterfaceOnly:=True
Sheets("Feuil1").EnableAutoFilter = True
End Sub
Ferme et rouvre le classeur pour tester.
Bonne chance,
Croquignol
Bonjour à tous,
J'aimerais mettre à disposition des intéressés, une classeur EXCEL qui
contient une feuille dont toutes les cellules sont verrouillées à
l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée, les utilisateurs
puissent utiliser le filtre automatique pour faire des tris (provisoires et
non enregistrables bien sur!) selon leurs besoins. Hors si la feuille est
protégée ce n'est pas possible...
Private Sub Workbook_Open() Sheets("Feuil1").Protect UserInterfaceOnly:=True Sheets("Feuil1").EnableAutoFilter = True End Sub
Ferme et rouvre le classeur pour tester.
Bonne chance,
Croquignol
Bonjour à tous,
J'aimerais mettre à disposition des intéressés, une classeur EXCEL qui contient une feuille dont toutes les cellules sont verrouillées à l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée, les utilisateurs puissent utiliser le filtre automatique pour faire des tris (provisoires et non enregistrables bien sur!) selon leurs besoins. Hors si la feuille est protégée ce n'est pas possible...
Quelqu'un aurait-il une idée?
Merci à tous et bonne journée.
Jean-Claude
Jean-Claude
Bonjour Croquignol,
Je m'attendais à une réponse du genre "C'est pas possible!" et tu me donnes la solution. Agréable surprise du jour! Par contre, je ne sais pas ou coller tes lignes de code: c'est ou "This workbook"?
Je ne veux pas paraître plus béotien que je ne le suis mais là j'avoue ne pas savoir!
Alors si tu peux encore m'aider à aller jusqu'au bout...
Un grand merci pour cette aide si précieuse!
Jean-Claude
"Croquignol" a écrit dans le message de news:
Jean-Claude,
Dans le module ThisWorkbook de ton classeur :
Private Sub Workbook_Open() Sheets("Feuil1").Protect UserInterfaceOnly:=True Sheets("Feuil1").EnableAutoFilter = True End Sub
Ferme et rouvre le classeur pour tester.
Bonne chance,
Croquignol
Bonjour à tous,
J'aimerais mettre à disposition des intéressés, une classeur EXCEL qui contient une feuille dont toutes les cellules sont verrouillées à l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée, les utilisateurs puissent utiliser le filtre automatique pour faire des tris (provisoires et
non enregistrables bien sur!) selon leurs besoins. Hors si la feuille est
protégée ce n'est pas possible...
Quelqu'un aurait-il une idée?
Merci à tous et bonne journée.
Jean-Claude
Bonjour Croquignol,
Je m'attendais à une réponse du genre "C'est pas possible!" et tu me donnes
la solution. Agréable surprise du jour!
Par contre, je ne sais pas ou coller tes lignes de code: c'est ou "This
workbook"?
Je ne veux pas paraître plus béotien que je ne le suis mais là j'avoue ne
pas savoir!
Alors si tu peux encore m'aider à aller jusqu'au bout...
Un grand merci pour cette aide si précieuse!
Jean-Claude
"Croquignol" <nospam@free.fr> a écrit dans le message de
news:3F8D1BFB.DCC8CAE3@free.fr...
Jean-Claude,
Dans le module ThisWorkbook de ton classeur :
Private Sub Workbook_Open()
Sheets("Feuil1").Protect UserInterfaceOnly:=True
Sheets("Feuil1").EnableAutoFilter = True
End Sub
Ferme et rouvre le classeur pour tester.
Bonne chance,
Croquignol
Bonjour à tous,
J'aimerais mettre à disposition des intéressés, une classeur EXCEL qui
contient une feuille dont toutes les cellules sont verrouillées à
l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée, les utilisateurs
puissent utiliser le filtre automatique pour faire des tris (provisoires
et
non enregistrables bien sur!) selon leurs besoins. Hors si la feuille
est
Je m'attendais à une réponse du genre "C'est pas possible!" et tu me donnes la solution. Agréable surprise du jour! Par contre, je ne sais pas ou coller tes lignes de code: c'est ou "This workbook"?
Je ne veux pas paraître plus béotien que je ne le suis mais là j'avoue ne pas savoir!
Alors si tu peux encore m'aider à aller jusqu'au bout...
Un grand merci pour cette aide si précieuse!
Jean-Claude
"Croquignol" a écrit dans le message de news:
Jean-Claude,
Dans le module ThisWorkbook de ton classeur :
Private Sub Workbook_Open() Sheets("Feuil1").Protect UserInterfaceOnly:=True Sheets("Feuil1").EnableAutoFilter = True End Sub
Ferme et rouvre le classeur pour tester.
Bonne chance,
Croquignol
Bonjour à tous,
J'aimerais mettre à disposition des intéressés, une classeur EXCEL qui contient une feuille dont toutes les cellules sont verrouillées à l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée, les utilisateurs puissent utiliser le filtre automatique pour faire des tris (provisoires et
non enregistrables bien sur!) selon leurs besoins. Hors si la feuille est
protégée ce n'est pas possible...
Quelqu'un aurait-il une idée?
Merci à tous et bonne journée.
Jean-Claude
Croquignol
Par contre, je ne sais pas ou coller tes lignes de code: c'est ou "This workbook"?
Je ne veux pas paraître plus béotien que je ne le suis mais là j'avoue ne pas savoir!
Alors si tu peux encore m'aider à aller jusqu'au bout...
Pas de problème. A partir d'Excel, tu fais menu Outils => Macro => Visual Basic Editor ou tu tapes Alt-F11. Dans la fenêtre "Projet - VBAProject" à gauche de l'éditeur, tu double-cliques sur l'élément "ThisWorkbook" qui apparaît en-dessous du VBAProject de ton classeur, puis tu copies la procédure dans la fenêtre de droite.
Bonne chance,
Croquignol
Par contre, je ne sais pas ou coller tes lignes de code: c'est ou "This
workbook"?
Je ne veux pas paraître plus béotien que je ne le suis mais là j'avoue ne
pas savoir!
Alors si tu peux encore m'aider à aller jusqu'au bout...
Pas de problème. A partir d'Excel, tu fais menu Outils => Macro => Visual Basic
Editor ou tu tapes Alt-F11. Dans la fenêtre "Projet - VBAProject" à gauche de
l'éditeur, tu double-cliques sur l'élément "ThisWorkbook" qui apparaît
en-dessous du VBAProject de ton classeur, puis tu copies la procédure dans la
fenêtre de droite.
Par contre, je ne sais pas ou coller tes lignes de code: c'est ou "This workbook"?
Je ne veux pas paraître plus béotien que je ne le suis mais là j'avoue ne pas savoir!
Alors si tu peux encore m'aider à aller jusqu'au bout...
Pas de problème. A partir d'Excel, tu fais menu Outils => Macro => Visual Basic Editor ou tu tapes Alt-F11. Dans la fenêtre "Projet - VBAProject" à gauche de l'éditeur, tu double-cliques sur l'élément "ThisWorkbook" qui apparaît en-dessous du VBAProject de ton classeur, puis tu copies la procédure dans la fenêtre de droite.
Bonne chance,
Croquignol
Jean-Claude
"> Pas de problème. A partir d'Excel, tu fais menu Outils => Macro => Visual Basic
Editor ou tu tapes Alt-F11. Dans la fenêtre "Projet - VBAProject" à gauche de
l'éditeur, tu double-cliques sur l'élément "ThisWorkbook" qui apparaît en-dessous du VBAProject de ton classeur, puis tu copies la procédure dans la
fenêtre de droite.
Merci de la nouvelle aide pour un pas de plus!
J'ai suivi tes indications, sans problèmes!
Private Sub Workbook_Open() Sheets("Feuil1").Protect UserInterfaceOnly:=True Sheets("Feuil1").EnableAutoFilter = True End Sub
J'ai indiqué ("Feuil7") qui est la feuille où je veux avoir cette fonction: est-ce suffisant ou faut-il ajouter ce que je vois dans l'éditeur (Feuil7 Ecarts d'audit)? J'ai essayé cela mais cela ne fonctionne pas non plus!
De plus en ouvrant le classeur j'ai un message d'erreur: "Erreur d'exécution "9": L'indice n'appartient pas à la sélection
Est-ce lié à la question concernant ("Feuil7")?
Un peu perdu...
Là, j'ai déjà l'impression d'abuser!
Jean-Claude
"> Pas de problème. A partir d'Excel, tu fais menu Outils => Macro => Visual
Basic
Editor ou tu tapes Alt-F11. Dans la fenêtre "Projet - VBAProject" à gauche
de
l'éditeur, tu double-cliques sur l'élément "ThisWorkbook" qui apparaît
en-dessous du VBAProject de ton classeur, puis tu copies la procédure dans
la
fenêtre de droite.
Merci de la nouvelle aide pour un pas de plus!
J'ai suivi tes indications, sans problèmes!
Private Sub Workbook_Open()
Sheets("Feuil1").Protect UserInterfaceOnly:=True
Sheets("Feuil1").EnableAutoFilter = True
End Sub
J'ai indiqué ("Feuil7") qui est la feuille où je veux avoir cette fonction:
est-ce suffisant ou faut-il ajouter ce que je vois dans l'éditeur (Feuil7
Ecarts d'audit)? J'ai essayé cela mais cela ne fonctionne pas non plus!
De plus en ouvrant le classeur j'ai un message d'erreur: "Erreur d'exécution
"9": L'indice n'appartient pas à la sélection
"> Pas de problème. A partir d'Excel, tu fais menu Outils => Macro => Visual Basic
Editor ou tu tapes Alt-F11. Dans la fenêtre "Projet - VBAProject" à gauche de
l'éditeur, tu double-cliques sur l'élément "ThisWorkbook" qui apparaît en-dessous du VBAProject de ton classeur, puis tu copies la procédure dans la
fenêtre de droite.
Merci de la nouvelle aide pour un pas de plus!
J'ai suivi tes indications, sans problèmes!
Private Sub Workbook_Open() Sheets("Feuil1").Protect UserInterfaceOnly:=True Sheets("Feuil1").EnableAutoFilter = True End Sub
J'ai indiqué ("Feuil7") qui est la feuille où je veux avoir cette fonction: est-ce suffisant ou faut-il ajouter ce que je vois dans l'éditeur (Feuil7 Ecarts d'audit)? J'ai essayé cela mais cela ne fonctionne pas non plus!
De plus en ouvrant le classeur j'ai un message d'erreur: "Erreur d'exécution "9": L'indice n'appartient pas à la sélection
Est-ce lié à la question concernant ("Feuil7")?
Un peu perdu...
Là, j'ai déjà l'impression d'abuser!
Jean-Claude
Croquignol
J'ai indiqué ("Feuil7") qui est la feuille où je veux avoir cette fonction: est-ce suffisant ou faut-il ajouter ce que je vois dans l'éditeur (Feuil7 Ecarts d'audit)? J'ai essayé cela mais cela ne fonctionne pas non plus!
Si ta feuille, dans Excel (pas dans l'éditeur), s'appelle "Ecarts d'audit", remplace par Sheets("Ecarts d'audit").
Tu peux aussi mettre : Sheets(n°feuille), par exemple Sheets(1) si c'est la première feuille de calcul dans ton classeur.
Ou encore :
Private Sub Workbook_Open() Feuil7.Protect UserInterfaceOnly:=True Feuil7.EnableAutoFilter = True End Sub
... en remplaçant Feuil7 par le nom du module VBA attaché à la feuille de calcul (celui qui apparaît avant le nom de la feuille entre parenthèses dans la fenêtre Projets).
Bonne chance,
Croquignol
De plus en ouvrant le classeur j'ai un message d'erreur: "Erreur d'exécution "9": L'indice n'appartient pas à la sélection
Est-ce lié à la question concernant ("Feuil7")?
Un peu perdu...
Là, j'ai déjà l'impression d'abuser!
Jean-Claude
J'ai indiqué ("Feuil7") qui est la feuille où je veux avoir cette fonction:
est-ce suffisant ou faut-il ajouter ce que je vois dans l'éditeur (Feuil7
Ecarts d'audit)? J'ai essayé cela mais cela ne fonctionne pas non plus!
Si ta feuille, dans Excel (pas dans l'éditeur), s'appelle "Ecarts d'audit",
remplace par Sheets("Ecarts d'audit").
Tu peux aussi mettre : Sheets(n°feuille), par exemple Sheets(1) si c'est la
première feuille de calcul dans ton classeur.
Ou encore :
Private Sub Workbook_Open()
Feuil7.Protect UserInterfaceOnly:=True
Feuil7.EnableAutoFilter = True
End Sub
... en remplaçant Feuil7 par le nom du module VBA attaché à la feuille de calcul
(celui qui apparaît avant le nom de la feuille entre parenthèses dans la fenêtre
Projets).
Bonne chance,
Croquignol
De plus en ouvrant le classeur j'ai un message d'erreur: "Erreur d'exécution
"9": L'indice n'appartient pas à la sélection
J'ai indiqué ("Feuil7") qui est la feuille où je veux avoir cette fonction: est-ce suffisant ou faut-il ajouter ce que je vois dans l'éditeur (Feuil7 Ecarts d'audit)? J'ai essayé cela mais cela ne fonctionne pas non plus!
Si ta feuille, dans Excel (pas dans l'éditeur), s'appelle "Ecarts d'audit", remplace par Sheets("Ecarts d'audit").
Tu peux aussi mettre : Sheets(n°feuille), par exemple Sheets(1) si c'est la première feuille de calcul dans ton classeur.
Ou encore :
Private Sub Workbook_Open() Feuil7.Protect UserInterfaceOnly:=True Feuil7.EnableAutoFilter = True End Sub
... en remplaçant Feuil7 par le nom du module VBA attaché à la feuille de calcul (celui qui apparaît avant le nom de la feuille entre parenthèses dans la fenêtre Projets).
Bonne chance,
Croquignol
De plus en ouvrant le classeur j'ai un message d'erreur: "Erreur d'exécution "9": L'indice n'appartient pas à la sélection
Est-ce lié à la question concernant ("Feuil7")?
Un peu perdu...
Là, j'ai déjà l'impression d'abuser!
Jean-Claude
Jean-Claude
Croquignol,
Merveilleux, cette fois tout fonctionne à satisfaction!
Le filtre automatique peut être utilisé alors que la feuille est protégée à part une colonne servant à des notes.
C'est beau la connaissance partagée, comme le disait quelqu'un sur ce groupe!
Alors merci beaucoup Croquignol pour ton aide.
Sincèrement.
Jean-Claude
Croquignol,
Merveilleux, cette fois tout fonctionne à satisfaction!
Le filtre automatique peut être utilisé alors que la feuille est protégée à
part une colonne servant à des notes.
C'est beau la connaissance partagée, comme le disait quelqu'un sur ce
groupe!
Merveilleux, cette fois tout fonctionne à satisfaction!
Le filtre automatique peut être utilisé alors que la feuille est protégée à part une colonne servant à des notes.
C'est beau la connaissance partagée, comme le disait quelqu'un sur ce groupe!
Alors merci beaucoup Croquignol pour ton aide.
Sincèrement.
Jean-Claude
Jean-Claude
Bonsoir Croquignol,
Comme je l'ai dit dans mon dernier message de remerciement, tout fonctionne comme souhaité!
J'ai cependant, après avoir utilisé le système avec le tri automatique, une crainte car je viens de m'apercevoir que le tri était enregistré en quittant le classeur ce qui est obligatoire puisqu' une colonne doit pouvoir être modifiée librement et sauvegardée.
Il faudrait donc que soit le tri ne soit pas enregistré en quittant soit il soit remis en position de non tri (chaque colonne sur "(Tous)") ceci en quittant ou en ouvrant à nouveau le classeur.
Oserai-je encore te demander comment tu résoudrais ce nouveau problème découlant de cette nouvelle possibilité? Ma crainte est qu'un autre utilisateur ne voit qu'une partie de la feuille en raison d'un tri enregistré (non remis à non tri) par le prédécesseur et ne s'en rende pas compte!
Juste pour mémoire je te remets la description première du pb:
J'aimerais mettre à disposition des intéressés, une classeur EXCEL qui contient une feuille dont toutes les cellules sont verrouillées à l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée, les utilisateurs puissent utiliser le filtre automatique pour faire des tris (provisoires et non enregistrables bien sur!) selon leurs besoins. Hors si la feuille est protégée ce n'est pas possible...
Quelle que soit ta réponse, je te remercie encore de cette aide spontanée et sympathique.
Jean-Claude
Bonsoir Croquignol,
Comme je l'ai dit dans mon dernier message de remerciement, tout fonctionne comme souhaité!
J'ai cependant, après avoir utilisé le système avec le tri automatique, une crainte car je viens de m'apercevoir que le tri était
enregistré en quittant le classeur ce qui est obligatoire puisqu' une colonne doit pouvoir être modifiée librement et sauvegardée.
Il faudrait donc que soit le tri ne soit pas enregistré en quittant soit il soit remis en position de non tri (chaque colonne sur
"(Tous)") ceci en quittant ou en ouvrant à nouveau le classeur.
Oserai-je encore te demander comment tu résoudrais ce nouveau problème découlant de cette nouvelle possibilité? Ma crainte est qu'un
autre utilisateur ne voit qu'une partie de la feuille en raison d'un tri enregistré (non remis à non tri) par le prédécesseur et ne
s'en rende pas compte!
Juste pour mémoire je te remets la description première du pb:
J'aimerais mettre à disposition des intéressés, une classeur EXCEL qui
contient une feuille dont toutes les cellules sont verrouillées à
l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée, les utilisateurs
puissent utiliser le filtre automatique pour faire des tris (provisoires et
non enregistrables bien sur!) selon leurs besoins. Hors si la feuille est
protégée ce n'est pas possible...
Quelle que soit ta réponse, je te remercie encore de cette aide spontanée et sympathique.
Comme je l'ai dit dans mon dernier message de remerciement, tout fonctionne comme souhaité!
J'ai cependant, après avoir utilisé le système avec le tri automatique, une crainte car je viens de m'apercevoir que le tri était enregistré en quittant le classeur ce qui est obligatoire puisqu' une colonne doit pouvoir être modifiée librement et sauvegardée.
Il faudrait donc que soit le tri ne soit pas enregistré en quittant soit il soit remis en position de non tri (chaque colonne sur "(Tous)") ceci en quittant ou en ouvrant à nouveau le classeur.
Oserai-je encore te demander comment tu résoudrais ce nouveau problème découlant de cette nouvelle possibilité? Ma crainte est qu'un autre utilisateur ne voit qu'une partie de la feuille en raison d'un tri enregistré (non remis à non tri) par le prédécesseur et ne s'en rende pas compte!
Juste pour mémoire je te remets la description première du pb:
J'aimerais mettre à disposition des intéressés, une classeur EXCEL qui contient une feuille dont toutes les cellules sont verrouillées à l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée, les utilisateurs puissent utiliser le filtre automatique pour faire des tris (provisoires et non enregistrables bien sur!) selon leurs besoins. Hors si la feuille est protégée ce n'est pas possible...
Quelle que soit ta réponse, je te remercie encore de cette aide spontanée et sympathique.
Jean-Claude
Manu/
Bonjour,
Essaye de rajouter ceci dans le module ThisWorkbook.
Private Sub Workbook_Deactivate() On Error Resume Next Sheets("Ecarts d'audit").ShowAllData End Sub
Bonne chance, Manu/
-----Message d'origine-----
Bonsoir Croquignol,
Comme je l'ai dit dans mon dernier message de remerciement, tout fonctionne comme souhaité!
J'ai cependant, après avoir utilisé le système avec le tri automatique, une crainte car je viens de m'apercevoir
que le tri était
enregistré en quittant le classeur ce qui est obligatoire puisqu' une colonne doit pouvoir être modifiée librement
et sauvegardée.
Il faudrait donc que soit le tri ne soit pas enregistré en quittant soit il soit remis en position de non tri
(chaque colonne sur
"(Tous)") ceci en quittant ou en ouvrant à nouveau le classeur.
Oserai-je encore te demander comment tu résoudrais ce nouveau problème découlant de cette nouvelle possibilité?
Ma crainte est qu'un
autre utilisateur ne voit qu'une partie de la feuille en raison d'un tri enregistré (non remis à non tri) par le
prédécesseur et ne
s'en rende pas compte!
Juste pour mémoire je te remets la description première du pb:
J'aimerais mettre à disposition des intéressés, une classeur EXCEL qui
contient une feuille dont toutes les cellules sont verrouillées à
l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée, les utilisateurs
puissent utiliser le filtre automatique pour faire des tris (provisoires et
non enregistrables bien sur!) selon leurs besoins. Hors si la feuille est
protégée ce n'est pas possible...
Quelle que soit ta réponse, je te remercie encore de cette aide spontanée et sympathique.
Jean-Claude
.
Bonjour,
Essaye de rajouter ceci dans le module ThisWorkbook.
Private Sub Workbook_Deactivate()
On Error Resume Next
Sheets("Ecarts d'audit").ShowAllData
End Sub
Bonne chance,
Manu/
-----Message d'origine-----
Bonsoir Croquignol,
Comme je l'ai dit dans mon dernier message de
remerciement, tout fonctionne comme souhaité!
J'ai cependant, après avoir utilisé le système avec le
tri automatique, une crainte car je viens de m'apercevoir
que le tri était
enregistré en quittant le classeur ce qui est obligatoire
puisqu' une colonne doit pouvoir être modifiée librement
et sauvegardée.
Il faudrait donc que soit le tri ne soit pas enregistré
en quittant soit il soit remis en position de non tri
(chaque colonne sur
"(Tous)") ceci en quittant ou en ouvrant à nouveau le
classeur.
Oserai-je encore te demander comment tu résoudrais ce
nouveau problème découlant de cette nouvelle possibilité?
Ma crainte est qu'un
autre utilisateur ne voit qu'une partie de la feuille en
raison d'un tri enregistré (non remis à non tri) par le
prédécesseur et ne
s'en rende pas compte!
Juste pour mémoire je te remets la description première
du pb:
J'aimerais mettre à disposition des intéressés, une
classeur EXCEL qui
contient une feuille dont toutes les cellules sont
verrouillées à
l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée,
les utilisateurs
puissent utiliser le filtre automatique pour faire des
tris (provisoires et
non enregistrables bien sur!) selon leurs besoins. Hors
si la feuille est
protégée ce n'est pas possible...
Quelle que soit ta réponse, je te remercie encore de
cette aide spontanée et sympathique.
Essaye de rajouter ceci dans le module ThisWorkbook.
Private Sub Workbook_Deactivate() On Error Resume Next Sheets("Ecarts d'audit").ShowAllData End Sub
Bonne chance, Manu/
-----Message d'origine-----
Bonsoir Croquignol,
Comme je l'ai dit dans mon dernier message de remerciement, tout fonctionne comme souhaité!
J'ai cependant, après avoir utilisé le système avec le tri automatique, une crainte car je viens de m'apercevoir
que le tri était
enregistré en quittant le classeur ce qui est obligatoire puisqu' une colonne doit pouvoir être modifiée librement
et sauvegardée.
Il faudrait donc que soit le tri ne soit pas enregistré en quittant soit il soit remis en position de non tri
(chaque colonne sur
"(Tous)") ceci en quittant ou en ouvrant à nouveau le classeur.
Oserai-je encore te demander comment tu résoudrais ce nouveau problème découlant de cette nouvelle possibilité?
Ma crainte est qu'un
autre utilisateur ne voit qu'une partie de la feuille en raison d'un tri enregistré (non remis à non tri) par le
prédécesseur et ne
s'en rende pas compte!
Juste pour mémoire je te remets la description première du pb:
J'aimerais mettre à disposition des intéressés, une classeur EXCEL qui
contient une feuille dont toutes les cellules sont verrouillées à
l'exception d'une colonne.
J'aimerais que malgré que cette feuille soit protégée, les utilisateurs
puissent utiliser le filtre automatique pour faire des tris (provisoires et
non enregistrables bien sur!) selon leurs besoins. Hors si la feuille est
protégée ce n'est pas possible...
Quelle que soit ta réponse, je te remercie encore de cette aide spontanée et sympathique.
Jean-Claude
.
Jean-Claude
Bonjour Manu,
Merci beaucoup pour ta réponse, c'est vraiment sympa!
Alors j'ai essayé, mais cela ne fonctionne pas. J'ai filtré sur une colonne, enregistré le classeur et réouvert: état identique, càd. filtré. J'ai essayé avec Sheets("Ecarts d'audit") ou comme tu le vois ci-dessous avec Feuil7. mais sans résultat. L'état actuel dans ThisWorkbook:
Private Sub Workbook_Open() Feuil7.Protect UserInterfaceOnly:=True Feuil7.EnableAutoFilter = True End Sub
Private Sub Workbook_Deactivate() On Error Resume Next Feuil7.ShowAllData End Sub
Si tu as encore une idée je serais naturellement très content!
Merci par avance.
Jean-Claude
Bonjour Manu,
Merci beaucoup pour ta réponse, c'est vraiment sympa!
Alors j'ai essayé, mais cela ne fonctionne pas. J'ai filtré sur une colonne,
enregistré le classeur et réouvert: état identique, càd. filtré.
J'ai essayé avec Sheets("Ecarts d'audit") ou comme tu le vois ci-dessous
avec Feuil7. mais sans résultat.
L'état actuel dans ThisWorkbook:
Private Sub Workbook_Open()
Feuil7.Protect UserInterfaceOnly:=True
Feuil7.EnableAutoFilter = True
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
Feuil7.ShowAllData
End Sub
Si tu as encore une idée je serais naturellement très content!
Merci beaucoup pour ta réponse, c'est vraiment sympa!
Alors j'ai essayé, mais cela ne fonctionne pas. J'ai filtré sur une colonne, enregistré le classeur et réouvert: état identique, càd. filtré. J'ai essayé avec Sheets("Ecarts d'audit") ou comme tu le vois ci-dessous avec Feuil7. mais sans résultat. L'état actuel dans ThisWorkbook:
Private Sub Workbook_Open() Feuil7.Protect UserInterfaceOnly:=True Feuil7.EnableAutoFilter = True End Sub
Private Sub Workbook_Deactivate() On Error Resume Next Feuil7.ShowAllData End Sub
Si tu as encore une idée je serais naturellement très content!
