Desactivation et activation protection feuille Excel pour macro

Version imprimable

2 pièce(s) jointe(s)

Bonjour,
Je souhaiterais désactiver une protection de feuille durant une macro, je suis sous Excel 2016 et les table ne se comporte pas forcement bien si les protections restent active (extension de tableau automatique désactivé par exemple):

J'ai un fichier ou je test des formules mais je galère à trouver la bonne formulation. Il me semble que je n'ai pas besoin de désactiver avant et de réactiver après la macro si j'utilise UserInterfaceOnly:=True?
J'ai également un petit problème, les caractéristiques de protection ne sont pas sauvegarder lors de l'utilisation de la macro (ex: autoriser les tries ...).
J'ai essayer plusieurs code mais sans succès:
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Macro5() With Worksheets("Test") .Protect Password:="0000", UserInterfaceOnly:=True .Contents = False .AllowFiltering = True .AllowSorting = True .Range("B6").ClearContents End With End Sub
Code:

1 2 3 4 5 6 7 Sub Macro3() Worksheets("Test").Protect Password:="0000", UserInterfaceOnly:=True,Contents = False,AllowFiltering = True,AllowSorting = True .Range("B6").ClearContents End Sub
Aucun ne fonctionne correctement en m'activant bien les réglages de protection que je souhaite:
Pièce jointe 604100
Pièce jointe 604099

Si vous pouviez m'éclairer sur le sujet ce serait top, merci par avance :lol:.

Bonsoir,

Sans doute cela:

Code:

1
2
3
4
5
6
7
Sub Macro1()
    With Worksheets("Test")
        .Protect Password:="0000", DrawingObjects:=True, Contents:=True, _
                 Scenarios:=True, AllowSorting:=True, AllowFiltering:=True
        .Range("B6").ClearContents  '--- pour autant que B6 non verrouillée
    End With
End Sub

UserInterfaceOnly:=True ==> macros modifiables

Cordialement.

Bonjour,

merci pour le code j'ai trouvé grace à toi comment modifier mes autres codes :-)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub IMPORTSGL()
Dim MaLigneSource As Integer
 
MaFeuilleSource = CStr("TEST")              'Nom de la feuille SOURCE
 
Sheets(MaFeuilleSource).Unprotect Password:="0000"               'desactivation protection de la feuille définit en début de macro
 
Sheets(MaFeuilleSource).Protect Password:="0000", DrawingObjects:=True, Contents:=True, _
       Scenarios:=True, AllowSorting:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True                        'activation de la protection de feuille définit avec certains droits en fin de macro
 
Ed Sub

là il n'y a pas de code entre les 2 mais la désactivation et réactivation marche bien
Merci :-)