Cellules interdites

[DaCapo]

Bonjour,

Comment interdire l'accès à une ou plusieurs cellules d'une feuille.
Objectif : ne pas réussir à se positionner sur ces cellules. Les verrouiller

Merci de m'aider

 

[Bernard]

Bonsoir DaCapo

Un fichier joint avec une macro qui protége la plage jaune.

Cordialement

Bernard

 

[myDearFriend]

Bonsoir DaCapo, Bernard,

Pour compléter l'exemple de Bernard et pour empêcher la sélection des cellules protégés, on peut aussi rajouter :

ActiveSheet.EnableSelection = xlUnlockedCells

Cordialement.
Didier

 

[Bernard]

Bonjour MyDearFriend

Parfaitement bien vu pour la suggestion.

La macro devient :

Sub ProtectionPlage()
'La mise à jour de l'écran est désactivée
Application.ScreenUpdating = False
'Déprotection de la feuille automatique avec le mot de passe incorporé à la macro
ActiveSheet.Unprotect Password:="***"
'Déverouillage de toutes les cellules
Cells.Locked = False
'Verouillage de la plage sélectionnée
Range("A3:B25,E3:E25,G3:G25,M3:M25,Q3:Q25,R3:U25,X3:X25,A26:X27,A1:X3").Locked = True
ActiveSheet.EnableSelection = xlUnlockedCells
'Protection de la feuille automatique avec le mot de passe incorporé à la macro
ActiveSheet.Protect Password:="***", DrawingObjects:=True, Contents:=True, Scenarios:=True
'La mise à jour de l'écran est activée
Application.ScreenUpdating = True
End Sub


Bonnne journée

Cordialement

Bernard