Enlever la protection de cellules d'un feuille protégée [Résolu]

Signaler
Messages postés
4
Date d'inscription
mardi 3 février 2009
Statut
Membre
Dernière intervention
8 avril 2009
-
Messages postés
4
Date d'inscription
mardi 3 février 2009
Statut
Membre
Dernière intervention
8 avril 2009
-
bonjour
Je suis débutant en VBA. Je souhaite alors qu'à l'ouvertutre j'ai protéger la feuille par code permettre aux utilisateurs d'acceder à certaines cellules. Je travaille avec VBA pour excel 2007 en enregistrant en mode compatibilité 97. 2003. J'ai tenté des codes du site mais rien n'est compatible. Pouvez vous m'aider?

'enlever la protection des cellules B2 B9 et D9 de la feuille "compétitions"
sheets("compétitions").select
if worksheets.range("B2").locked=true then
worksheets.range("B2").locked=false
else
bien sur ça ne fonctionne pas mais je cherche et ...
kay80

2 réponses

Messages postés
159
Date d'inscription
lundi 18 février 2008
Statut
Membre
Dernière intervention
8 janvier 2010
2
Excel 2003 ne permet pas des lignes de codes semblables :
   worksheets.range("B2").locked=false

Pour vérouiller les cellules tu dois utiliser l'onglet "Protection" du sous-menu "Format de cellule" quand tu fais un clic droit sur une cellule. Ensuite tu coche la case vérouillé. Pour que tes cellules soit maintenant vraiment vérouillées tu dois ajouter un mot de passe à ta feuille.

Suite à ça tu peux modifier toutes les cellules qui ne sont pas vérouillé mais pas celles que tu avais cocher comme vérouillé.

Bonne continuation
Messages postés
4
Date d'inscription
mardi 3 février 2009
Statut
Membre
Dernière intervention
8 avril 2009

merci de cette rapide réponse. j'accepte cette méthode enb attendant un codage qui me permettrait de laisser seulement certaines cellules accessible. mon problème est que au démarrage de cette application je change le format de cette feuille et je masque les barres excel avec le code suivant
ActiveSheet.Unprotect
With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
End With
    If ActiveSheet.Name = "compétitions" Then
     ActiveSheet.Cells.Interior.ColorIndex = 41
    End If
With Application
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
End With
ActiveSheet.Protect
 après ça la protection résidente de la feuille ne serait pas rétablie puisque je la unprotect il faut que je la reprotège en laissant les cellules B2 B9 et D9 accessibles
merci à vous si vous connaissez un codage voisin le permettant.

kay80