XL 2016 Option de verrouillage d'une feuille avec macro

[Nico888]

Bonjour à tous,
Meilleurs vœux pour cette nouvelle année.

J'ai un classeur avec plusieurs feuilles. J'utilise des macros pour créer de nouvelles données qui sont intégrées à des tableaux.
Ce classeur est partagé entre plusieurs utilisateurs, et pour éviter la suppression de formules, les feuilles sont verrouillées. Seules les cellules permettant la saisie sont autorisées en modification.
Pour que les macros fonctionnent, j'ai intégré au code la commande de déverrouillage au lancement et la commande de verrouillage à la fermeture.
Tout fonctionne, sauf que je verrouille la feuille via la macro, il n'y a plus de possibilité de trier ou filtrer les colonnes du tableau.
Le verrouillage manuel via le ruban permet de choisir les options de verrouillage, et je souhaiterais les appliquer dans la macro. Est-ce que c'est possible ?

Le fichier de test est en PJ

D'avance merci
Bonne journée

 

[Phil69970]

Bonjour @Nico888

Je te propose :

ActiveSheet.Protect "", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True

Spoiler: *Remarque :

Dark Vador :Tu n'es pas mon père

*Merci de ton retour

@Phil69970

 

[Robert]

Bonjour Nico, bonjour le forum,
Tu as ce code dans le composant ThisWorkbook :

Private Sub Workbook_Open()
'Toujours ouvrir le classuer sur l'onglet Guide
    Sheets("Guide").Select
   
'Pour utiliser le "plan" dans les feuilles protégées
    Dim i As Integer
    For i = 9 To Worksheets.Count
        With Sheets(i)
            .EnableOutlining = True
            .Protect userInterfaceOnly:=True
        End With
    Next i
End Sub

qui devrait te permettre de pallier à ton problème. Mais tu boucles de 9 à 4 ?!... Par conséquent le Protect userInterfaceOnly:=True ne se fait pas. Remplace le 9 par 1 (ou 2 si tu ne le veux pas pour l'onglet Guide) et ça devrait aller mieux...
Sinon, si j'ai encore compris de travers, voici le code avec toutes les exceptions possibles à la protection :

    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True

 

[Nico888]

Bonjour Robert,
Merci pour ta réponse rapide.
Et oui, j'avais oublié le code dans ThisWorkBook. En fait, j'ai "recyclé" ce classuer d'un ancien, qui était beaucoup plus complexe et n'était pas adapté. Je vais corriger et voir ce que ça donne.
Merci pour les exceptions de protection : c'est ce que je cherchais, mais je n'arrivais pa à les trouver.
Bonne journée

 

[Phil69970]

Re

Apparemment j'ai une cape d'invisibilité

@Phil69970

 

[Nico888]

Re, bonjour Phil69970,
Je te demande de m'excuser, je n'avais pas vu ta réponse.
Ton retour, encore plus rapide que celui de Robert m'a échappé. Vraiment désolé.
C'est excatement ce que je cherchais.
Bonne journée

 

[Robert]

Bonjour le fil, bonjour le forum,

Désolé aussi Phil, le temps que je réponde à Nico, nos fils se sont croisés et je navet pas vu ton excellente réponse... Je te rassure donc, pas de cape c'est juste moi qui ai de la m... aux yeux.

 

[Phil69970]

Re

@Robert :
Pas de problème car très souvent le site ne rafraichi pas ou mal la page et je réponds sans m'apercevoir qu'une réponse a déjà été donnée.
Ma réponse "d’invisibilité" était pour le demandeur mais il m'a rassuré avec le post #6

A bientôt sur un autre post

@Phil69970