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

kay80
Messages postés
4
Date d'inscription
mardi 3 février 2009
Dernière intervention
8 avril 2009
- 19 févr. 2009 à 13:06 - Dernière réponse : kay80
Messages postés
4
Date d'inscription
mardi 3 février 2009
Dernière intervention
8 avril 2009
- 19 févr. 2009 à 17:16
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
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Supra3000
Messages postés
160
Date d'inscription
lundi 18 février 2008
Dernière intervention
8 janvier 2010
- 19 févr. 2009 à 15:36
3
Merci
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

Merci Supra3000 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 95 internautes ce mois-ci

Commenter la réponse de Supra3000
kay80
Messages postés
4
Date d'inscription
mardi 3 février 2009
Dernière intervention
8 avril 2009
- 19 févr. 2009 à 17:16
0
Merci
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
Commenter la réponse de kay80

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.