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

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

2 réponses

Répondre au sujet
Supra3000 160 Messages postés lundi 18 février 2008Date d'inscription 8 janvier 2010 Dernière intervention - 19 févr. 2009 à 15:36
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Supra3000
kay80 4 Messages postés mardi 3 février 2009Date d'inscription 8 avril 2009 Dernière intervention - 19 févr. 2009 à 17:16
0
Utile
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.