Protégér une feuille tout en gardant l'usage de la

[Leon 47]

Bonjour

Comment pourrai je protéger une feuille en écriture tout en gardant actif l'usage de la fonction grouper ?

Merci pour votre aide

Leon 47

 

[Celeda]

Bonjour,

Léon, essaie cette macro à placer dans
ThisWorkbook (alt F11) du classeur.

Private Sub Workbook_Open()
With Sheets('Feuil1')
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub

en supposant que tes données se trouvent dans la feuille 1 et que les users activent les macros.

Celeda

 

[leon47]

Bonjour

Merci pour ton aide ça fonctionne pour la feuille 1 c'est super

Dans mon classeur j'ai 40 feuilles nommées
1, 2, 3, etc et une 'Récapitulatif'

Comment puis je faire la même chose sur toutes les feuilles ?
Une macro pour tout le classeur est ce possible ?
Est il possible de mettre un bouton sur chaque feuille qui puisse, quand on click dessus, d'activer la macro

Merci d'avance de prendre sur ton temps pour m'aider

Leon47

 

[leon47]

Bonjour

Merci pour ton aide ça fonctionne pour la feuille 1 c'est super

Dans mon classeur j'ai 40 feuilles nommées
1, 2, 3, etc et une 'Récapitulatif'

Comment puis je faire la même chose sur toutes les feuilles ?
Une macro pour tout le classeur est ce possible ?
Est il possible de mettre un bouton sur chaque feuille qui puisse, quand on click dessus, d'activer la macro

Merci d'avance de prendre sur ton temps pour m'aider

Leon47

 

[Celeda]

Bonjour,

Léon47, juste entre toe et moe, vba est un exercice de voltige !!

voici comment j'ai fait une pirouette mais je ne te garantis pas que ce soit la meilleure solution enfin je me lance.....et les puristes corrigeront ou apporteront une plus grande efficacité en modifiant le code.

Un bouton a été placé dans chaque feuille (copier coller), et on lui affecte la macro :

Sub ProtectPlan()
With ActiveSheet
.Protect UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub

et elle est placée dans un module (ALt F11).
Tu noteras que j'ai modifié juste ActiveSheet.
Et j'ai protégé les feuilles ensuite.

Regarde si cela peut t'aider....

Celeda [file name=ProtegerGrouper.zip size=8758]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ProtegerGrouper.zip[/file]

 

[ERIC S]

Bonjour

pas pro non plus mais essayer dans workbook

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect Contents:=True, UserInterfaceOnly:=True
ws.EnableOutlining = True
Next
End Sub

se déclenche à l'ouverture
balaye les feuilles

Par contre, c eque je ne comprends pas c'est que, quand tu l'as fait une fois, cela ne bouge plus

tu pourrais juste le mettre en macro normale, sans bouton et lancer la macro si et seulement si tu en as besoin

A+

 

[Leon47]

Bonjour

Merci à vous deux (Celeda et Eric S) Cela fonctionne
avec la macro de celeda il faut l'activer dans chaque feuille
avec la macro de Eric S quand je l'active dans le classeur il est activé ensuite automatiquement sur toutes les feuilles
Cela répond exactement à mon problème. Vous n'etes peut être pas des spécialistes de VBA (d'après vous) mais vous en connaissez beaucoup plus que moi.
Et si ce n'est pas trop abuser j'ai une dernière petite chose à résoudre :
Dans chaque feuille j'ai différentes sortes de case à cocher que je voudrai additionner (par sorte)dans une feuille récapitulative
est ce possible avec une macro (j'ai constaté que l'on pouvait attribuer une macro aux cases à coché)
D'autre part pouvez vous me conseiller un ouvrage ou un (des) tutoriaux me permettant d'acquérir les bases nécessaires pour mettre en oeuvre des macro
En tout cas merci pour votre aide. J'ai apprécié votre modestie qui cache votre serviabilité et votre compétence
Leon47

 

[ERIC S]

Bonsoir

si tu peux joindre ton fichier ou un extrait

zippé, moins de 50ko et nom sans accent, espace, caractère spécial..

A+

 

[ERIC S]

re

pour la mise en oeuvre des macros, il doit y avoir un tutoriel sur ce site, des exemples selon les questions que l'on se pose (outil recherche du site), j'utilise Excel & vba (le tout en poche)
l'aide excel dans le vba
au départ j'ai beaucoup travaillé avec l'enregistreur de macro pour comprendre le scodes générés.

A+