Discussion :

[elmat]

Bonjour

depuis Access je crée hebdomadairement un onglet dans une feuille XL. Ce document est mis à dispostion pour plusieurs collègues.

Tous les onglets ont le même format càd:

• Filtre automatique actif
• volet horizontal figé
• sous totaux activé
• tri

Mon besoin : Vérouiller le contenu des cellules et laisser à l'utilisateur l'utilisation des sous-totaux,filtre,tri

Avec le code suivant j'arrive à verrouiller le contenu des cellules, utiliser le filtre mais je ne peux pas développer ou réduire les sous-totaux. j'obtiens le message suivant :

Vous ne pouvez pas executer cette commande sur une feuille protégée...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function Protection(NomFeuille As String, Classeur As String)
 
    MotPasse = "XXX"
'classeur
   XlBook.Protect Password:=(MotPasse), Structure:=False, Windows:=False
 
'Feuille
   For Each Feuille In Xlapp.Worksheets
       With XlBook.Worksheets(Feuille.Name)
         .Protect Password:=(MotPasse), _
         Contents:=True, _
         DrawingObjects:=False, _
         Scenarios:=False, _
         AllowFiltering:=True, _
         userinterfaceOnly:=True, _
         AllowFormattingCells:=True, _
         AllowFormattingColumns:=True, _
         AllowFormattingRows:=True, _
         AllowUsingPivotTables:=True, _
         AllowSorting:=True
       End With
    Next Feuille
End Function

D'avance merci pour votre aide

[Godzestla]

Bonjour,

essaie en laissant ce paramètre à True.

Il fonctionne pour les liste de choix, alors je pense qu'il doit aussi s'occuper des sous-totaux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

         Scenarios:=False,

[elmat]

en mettant le paramètre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Scenarios:=True

, cela pas plus d'effet sur les "sous-totaux"

[Godzestla]

Tu as raison. Je viens de tester, et même avec toutes les options activées, les sous-totaux ne sont pas dynamiques.

Pas de chance.

[elmat]

merci pour le changement de forum

Rappel de la question :

Comment Verrouiller le contenu des cellules et laisser à l'utilisateur l'utilisation des sous-totaux ?

[pgz]

Bonsoir.

A ma connaissance, ce n'est pas possible.
Deux idées de contournement :

1. Tu ajoutes une commande pour déclencher une procédure VBA qui déprotège, met en place le sous-total et reprotège
2. Tu ajoutes, éventuellement dans une autre feuille, un TCD que l'opérateur peut modifier.

Dans la première solution, cela peut être très simple : un bouton de commande et le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ThisWorkBook.WorkSheets("NomFeuille").Unprotect sPwd
Application.Dialogs(xlDialogSubtotalCreate).Show
Doevents
ThisWorkBook.WorkSheets("NomFeuille").Protect ...

Mais ce sont des idées que je n'ai pas testées.

Cordialement,

PGZ