Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème de protection cellule

adr95

XLDnaute Occasionnel
Bonjour,

Voici mon problème je souhaite protéger mon fichier et laisser libre les cellules suivantes B4,C4 et de E6 à G9.

Je préfèrerai en vba mais si c'est pas possible faire par protéger la feuille.

Merci
 

Pièces jointes

  • Alerte.xlsm
    19.5 KB · Affichages: 32

JBARBE

XLDnaute Barbatruc
Re : Problème de protection cellule

Bonsoir,

Compte tenu du faible espace à ne pas protéger, il vaut mieux protéger la feuille entière !

Bref, c'est mon point de vu ! attendons plus de suggestions !
 

Papou-net

XLDnaute Barbatruc
Re : Problème de protection cellule

Bonsoir adr95, JBARBE,

Une macro pour protéger la feuille après avoir verrouillé les cellules visées :

Code:
Sub MacroExemple()
With ActiveSheet
  .Cells.Locked = True
  .Cells.FormulaHidden = True
  With .Range("B4:C4,E6:G9")
    .Locked = False
    .FormulaHidden = False
  End With
  .Protect "0000", userinterfaceonly:=True
End With
End Sub
Bien entendu, le mot de passe "0000" peut être remplacé par n'importe quelle chaîne de caractères.

Cordialement.
 
Dernière édition:

adr95

XLDnaute Occasionnel
Re : Problème de protection cellule

Bonsoir,

Merci pour vos réponses mais en réalité Papou-net je veux laisser libre les cellules .Range("B4:C4,E6:G9") alors qu'avec ton code en faite je vérouille ces cellules comment faire dans ce cas pour sélectionner toutes les cellules sauf .Range("B4:C4,E6:G9").

Merci
 

Papou-net

XLDnaute Barbatruc
Re : Problème de protection cellule


Exact, je m'en suis rendu après coup et j'ai donc modifié le code entre temps (c'est JBARBE qui m'a mis la puce à l'oreille, merci à lui).

Tu n'as plus qu'à réessayer.

Cordialement.
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…