verrouiller/deverrouiler les feuilles X

[bigblue06]

Bonjour,

j'utilise les 2 macros dessous pour verrouiller et déverrouiller toutes les feuilles d'un classeur.
Par contre j'aimerai désormais en faire une variante qui me permette de choisir les feuilles concernées, pouvez vous m'aider ?
Je suis assez leger en VBA ...

Merci


Sub ACTIVE_PROTECTION()
Dim sht As Worksheet
Dim MotPass
MotPass = InputBox("Taper un mot de passe", 2)

For Each sht In ActiveWorkbook.Worksheets
sht.Protect Password:=(MotPass), Contents:=True, _
DrawingObjects:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowSorting:=True
Next sht
End Sub

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

Sub DESACTIVE_PROTECTION()
Dim sht As Worksheet
Dim MotPass
MotPass = InputBox("Taper un mot de passe", 2)

For Each sht In ActiveWorkbook.Worksheets
sht.Unprotect Password:=(MotPass)
Next sht
End Sub

 

[Sly le globe trotter]

Re : verrouiller/deverrouiler les feuilles X

Plusieurs solutions...

Le plus simple consiste à faire une boucle sur toutes tes feuilles et demander pour chaque feuille s'il faut la protéger.
ça peut donner quelquechose comme ça

For Each sht In ActiveWorkbook.Worksheets

msg=msgbox("Voulez protéger la feuille " & Activesheet.Name & " par un mot de passe ?",vbyesno)
if msg=6 then
sht.Protect Password:=(MotPass), Contents:=True, _
DrawingObjects:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowSorting:=True
end if
Next sht

Sly

 

[bigblue06]

Re : verrouiller/deverrouiler les feuilles X

En fait ce modèle là je ne l'avais pas utilisé car ca imposse de faire une validation pour chaque feuilles.

Ce qui m'interesse c'est une fenetre qui me permettrait par exemple de saisir feuille1:feuille45
et que ca me prene en compte toutes les feuilles entre feuille1 et 45 du coup