proteger feuille

[marc]

Bonjour,
j'aimerais bien bloquer les feuilles par une protection, j'aimerai avec du code , mettre la protection par un mot de passe car c'est sur plusieurs feuilles, j'en ai plus de 400, et comme c'est un très long travail de faire feuille par feuille ex : de la 14 à la 414, pouvez-vous m'aider a trouver une solution plus rapide....
Merci a vous
Marc

 

[Duriz]

'jour Marc et le Forum,

Voici un embryon de réponse. Il ya certainement mieux à faire, mais encore une fois, mon niveau....

Bon courrage, a+

Duriz

Sub Proteger() 'protection de toutes les feuille avec mot de passe

Application.ScreenUpdating = False

For i = 1 To 10

Sheets(i).Select

ActiveSheet.Protect Password:="marc" 'remplace Protec par UnProtect si tu veut enlever la protection! LOL

Next i

Application.ScreenUpdating = True

End Sub



Sub ProtectionPartielle() 'Protection de certaines feuille avec mot de passe


Dim debut As String
Dim fin As String

Application.ScreenUpdating = False

debut = InputBox("Indiquer la première feuille ?", Répondez, 1)
fin = InputBox("Indiquer la dernière feuille ?", Répondez, 5)

For i = debut To fin

Sheets(i).Select

ActiveSheet.Protect Password:="marc" 'ici : remplace Protec par UnProtect si tu veut enlever la protection! LOL


Next i


Application.ScreenUpdating = True

End Sub
Sub DeProteger() 'Enlève la protection avec mot de passe

Application.ScreenUpdating = False

For i = 1 To 10

Sheets(i).Select

ActiveSheet.Unprotect Password:="marc" 'remplace Protec par UnProtect si tu veut enlever la protection! LOL

Next i

Application.ScreenUpdating = True

End Sub

 

[marc]

bonjour,
merci pour la réponse je vais essayer ccela

un bon week end a toi et aux autres du forum

Marc