macro protéger plage de cellules

[mix770]

Bonjour le forum,

j'ai un fichier dont les onglets sont protégés par une macro,
je souhaiterai faire une macro qui ( déverrouille les onglets, déprotège les plage de cellules) et une autre qui fasse l'opération inverse.
mais ça coince si quelqu'un pouvait m'aider

merci à vous

Sub Unlocked()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For I = 1 To nombre
Worksheets(I).unprotect Password:="Tidf94"
Next I
End Sub

sub protect ()
Sheets(Array("sommaire", "Nom 1", "Nom 2", "Nom 3", "Nom 4", "Nom 5", "Nom 6", "Nom 7", "Nom 8", _
"Nom 9", "Nom 10", "Nom 11", "Nom 12", "Nom 13", "Nom 14", "Nom 15", "Nom 16", "Nom 17" _
, "Nom 18", "Nom 19", "Nom 20", "Nom 21", "Nom 22", "Nom 23", "Nom 24", "Nom 25", "Nom 26", "Nom 27", "Nom 28", "Nom 29", "Nom 30", "Nom 31", "Nom 32", _
"Nom 33", "Nom 34", "Nom 35", "Nom 36")).Select
Range("D4147,F41:F47,L41,L43,L45,L47").Select
Range("L47").Activate
ActivateSheet.unprotect ("MDP")
Selection.Locked = True
end sub

 

[camarchepas]

Re : macro protéger plage de cellules

Bonjour ,

J'ai l'impresson que tu confonds la protection de la feuille et le verrouillages des cellules,

Quoi qu'il en soit le code ne suffit pas toujours à donner une solution ,

si tu joignais un petit fichier avec le code et la structure de la feuille à protéger , se serait plus rapide et surtout plus précis à te répondre

 

[mix770]

Re : macro protéger plage de cellules

Bonjour à toi camarchepas,

ta citation est très bonne, effectivement, la macro est pour déverrouiller les cellules, ce qui passe par une dé protection de la feuille.

pour le fichier il est très lourd, je vais voir ce que je peux faire pour mettre un fichier en ligne

roland