Bonsoir Eric
Le problème pour protéger ou déprotéger n’est pas simple, Quand une cellule est verrouillée/protégée, il est impossible de l’activer sinon apparaît le message "Cette feuille est protégée" etc....
Pour accéder à une plage :
1)- Soit on laisse cette plage non protégée :
Ex : Zone jaune non protégée, par la sélection des cellules puis par FORMAT/CELLULES/PROTECTION/DEVEROUILLEE. Protection de la feuille par OUTILS/PROTECTION/PROTÉGER LA FEUILLE. La plage reste libre d'accès pour la saisie et le tri.
Pour les commandes, utiliser la macro "PROTECTION"
Sub Protection()
With ActiveSheet
.EnableSelection = xlUnlockedCells
.Protect Contents:=True, UserInterfaceOnly:=True, Password:="3789", Scenarios:=True
End With
End Sub
2)- Soit on laisse la feuille entièrement protégée et dans ce cas il faut la déprotéger avant de pouvoir travailler sur la feuille :
Ex : Zone Orange verrouillée par la sélection des cellules puis par FORMAT/CELLULES/PROTECTION/VEROUILLEE.
Après la protection de la feuille elles sont intouchables. Pour saisir ou trier, il faut les déprotéger.
La ligne de commande de déprotection, de tri puis de reprotection totale "
Sub TriProtection()
'Déprotection de la feuille active avec le mot de passe
ActiveSheet.Unprotect
'Sélection d'une zone à trier et tri de la plage
Range("D14
22").Select
Sélection.Sort Key1:=Range("D14"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Reprotection de la feuille active avec le mot de passe mis en place directement
With ActiveSheet
.EnableSelection = xlNoSelection
.Protect Contents:=True, UserInterfaceOnly:=True, Password:="3789", Scenarios:=True
End With
End Sub
Cordialement
Bernard
