protection d'une feuille excel

[freechillout]

Bonjour,
je cherche à protéger le format d'une feuille excel!
Je voudrais que l'utilisateur ne puisse saisir que dans les cases que je lui indique et pas d'autres. Comment faire? De plus je souhaite qu'il ne puisse pas modifier le format de ma feuille (largeur de colonne, hauteur de ligne, etc...)?

 

[jmt0]

Salut,

Quand tu vas sur les propriéte d'une cellule ou d'une collone, tu a un onglet "protection". De la tu peut choisir les case que tu veut l'aisser libre a l'utilisateur.

Apres quand tu as fait tes choix, tu vas dans "outil" "protection" "proteger la feuille".

Une fois que c fait, seulle les case choisies peuvent etre modifier

 

[Bernard]

Bonjour Freechillout

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("D1422").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