Protection des cellules

[FloreR]

Bonjour à tous,

Dans une discussion précédente, je vous avais demandé comment protéger les cellules d'un tableur, sans pour autant empêcher les modifications réalisées par des macros, que l'utilisateur aurait le droit de lancer.
La réponse qui m'avait été fournie était la suivante :

placer dans le "ThisWorkbook" le code

Private Sub workbook_open()
Sheets("nom de la feuille").Protect "mot_de_passe", userinterfaceonly:=True
End Sub


Malheureusement, cette protection est trop "forte" dans le sens où elle empêche d'utiliser les filtres automatiques que j'ai mis en place pour aider à la compréhension du fichier.
Pourtant, dans la protection "manuelle" (onglet Révision - Protéger la feuille), j'avais coché la case "Utiliser le filtre automatique"), mais visiblement, la commande VBA ne tient pas compte de cela.

Pourriez-vous m'aider à résoudre ce problème ?

Merci !!!
FloreR

 

[tototiti2008]

Re : Protection des cellules

Bonjour FloreR,

Connais-tu l'enregistreur de macros ?
Si oui, en enregistrant une macro, dans laquelle tu protèges ta feuille en permettant d'utiliser le filtre automatique, il te crée un code du type :

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

à enrichir comme ça pour ton exemple

    Sheets("nom de la feuille").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, Password:="mot_de_passe", UserInterfaceOnly:=True

 

[FloreR]

Re : Protection des cellules

Yes, ça marche ! Merci !
Et oui, je connais l'enregistreur de macros, mais je n'avais bêtement pas pensé à l'utiliser pour ce genre de problèmes...

J'ai encore besoin d'exceller un peu, moi... 🙂