Discussion :

[Crachover]

Bonjour,

Voici mon problème, j’ai une feuille (onglet) qui est protégé par un mot de passe, ayant une macro, cette feuille doit temporairement être déprotégée pour pouvoir accepter cette macro. J’utilise pour cela les commandes suivantes :

Code :

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

Sheets("Menu").Unprotect Password:="motdepasse"

et

Code :

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

1
2
3
4
5
Sheets("Menu").Protect DrawingObjects:=True, Contents:=False, Scenarios:=True, _
        UserInterfaceOnly:=True, AllowFormattingCells:=False, AllowFormattingColumns:=False, _
        AllowFormattingRows:=False, AllowInsertingColumns:=False, AllowInsertingRows:=False, _
        AllowInsertingHyperlinks:=False, AllowDeletingColumns:=False, AllowDeletingRows:=False, _
        AllowSorting:=False, AllowFiltering:=False, AllowUsingPivotTables:=False, Password:=" motdepasse "

Mais malheureusement, j’ai un problème que je n’arrive pas à identifier !

Lorsque manuellement je protège cette feuille, je ne coche QUE l’option : «Sélectionner les cellules déverrouillées »

• Sélectionner les cellules verrouillées
• Sélectionner les cellules déverrouillées
• Format de cellule
• Format de colonne
• Format de ligne
• Etc…

MAIS sans aucune raison apparente pour moi, lorsque j’utilise les commandes ci-dessus, la case « Sélectionner les cellules verrouillées » se coche aussi !!???? J’ai donc après le code la possibilité de sélectionner les cellules protégées…

Pourriez-vous m’aider ?

Merci d’avance

[Invité]

Bonjour,

En rajoutant peut-être

Code :

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

ActiveSheet.EnableSelection = xlUnlockedCells

[unparia]

Bonjour Crachover et un salut à mimimathy

Il suffisait d'utiliser l'enregistreur de macro, pour obtenir ceci (par exemple) :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

[Crachover]

Juste... merci