Protéger feuille en VBA avec les mêmes options qu'une protection classique

rom3210 · 26 Avril 2016

Bonjour,

Je souhaite protéger une feuille automatiquement, mais je me retrouve "coincé" car je souhaiterais laisser aux utilisateurs la possibilité :
- d'insérer des lignes
- faire des tris
- utiliser le filtre automatique

Voici mon code actuel, comment puis-je insérer les options ci-dessus ?

---------------

Sub Protéger_feuilles()
'
' Protéger_feuilles Macro
'
Sheets("Feuil1"").Select
Range("A1").Select
ActiveSheet.Protect ("toto")

Sheets("Feuil1").Select
Range("A1").Select

End Sub

--------------

Merci d'avance,
rom3210

M12 · 26 Avril 2016

Re : Protéger feuille en VBA avec les mêmes options qu'une protection classique

Bonsoir,

Pourquoi ne pas utiliser l'enregistrement par macro.
Depuis ta feuille, tu enregistre une macra et tu fait les mêmes manip , pour protéger, etc, puis tu mets le mot de passe sur la feuille avec tes options et tu arrete l'enregistrement. Tu regardes dans ta macro enregistrée et tu as tous les codes qu'il te faut

rom3210 · 26 Avril 2016

Re : Protéger feuille en VBA avec les mêmes options qu'une protection classique

Bonsoir,

J'ai bien essayé, mais l'enregistrement ne fonctionne pas (le fait de mettre un mot de passe, par exemple, ne fonctionne pas).

M12 · 27 Avril 2016

Re : Protéger feuille en VBA avec les mêmes options qu'une protection classique

Bonjour

A tester

Code:

Sub Protéger_feuilles()
Worksheets("Feuil1").Protect "toto", AllowInsertingRows:=True, AllowSorting:=True, AllowFiltering:=True
End Sub

rom3210 · 27 Avril 2016

[RESOLU] Protéger feuille en VBA avec les mêmes options qu'une protection classique

Bonjour,

Cela fonctionne !

Merci beaucoup.

Protéger feuille en VBA avec les mêmes options qu'une protection classique

rom3210

XLDnaute Nouveau

M12

XLDnaute Accro

rom3210

XLDnaute Nouveau

M12

XLDnaute Accro

rom3210

XLDnaute Nouveau

Discussions similaires