Pb de code Protection feuille sauf une plage

Résolu/Fermé
shouuu Messages postés 9 Date d'inscription jeudi 12 février 2009 Statut Membre Dernière intervention 20 février 2009 - 18 févr. 2009 à 11:19
shouuu Messages postés 9 Date d'inscription jeudi 12 février 2009 Statut Membre Dernière intervention 20 février 2009 - 19 févr. 2009 à 11:23
Bonjour,

Je voudrais protéger ma feuille au début d'une macro, c'est à dire tant que mon userform tournera en fait, en permettant à l'utilisateur d'écrire dans une certaine plage de données uniquement.
je travaille sous excel 2003


Voici mon code :

Sheets("matières premières").Protection.AllowEditRanges.Add Title:="Utilisateur", Range:= _
Range("F4:F5")
Sheets("matières premières").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Il m'indiquent une erreur dès la 1ere ligne mais je n'arrive pas à trouver ce qui ne va pas, surtout que lorsque j'essaye d'enregistrer une macro faisant cette opération, le code qu'ils me fournissent est le même ! mais lorsque je veux la reproduire, erreur !!
A voir également:

4 réponses

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
18 févr. 2009 à 12:05
Bonjour,
Je me demande avec quel excel tu travail ?
Mais si j'ai compris ce que tu veux...
    With Sheets("matières premières")
        .Range("F4:F5").Locked = False
        .Protect
    End With

Autorisé l'accès uniquement aux cellules F4:F5
A+
0
shouuu Messages postés 9 Date d'inscription jeudi 12 février 2009 Statut Membre Dernière intervention 20 février 2009
18 févr. 2009 à 14:25
Je travaille avec excel 2003
pareil ils me mettent une erreur sur la ligne:
.Range("F4:F5").Locked = False!!
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
19 févr. 2009 à 08:47
C'est que ta feuille est DEJA protégée,
    With Sheets("matières premières")
        .Unprotect
        .Range("F4:F5").Locked = False
        .Protect
    End With

0
shouuu Messages postés 9 Date d'inscription jeudi 12 février 2009 Statut Membre Dernière intervention 20 février 2009
19 févr. 2009 à 11:23
ca marche merci ! j'ai encore une autre question mais je vais créer un nouveau post
0