proteger feuille

'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

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

un bon week end a toi et aux autres du forum

Marc