IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[VBA Excel 2003] Décocher "protection verrouillée" lors d'une copie d'une cellule


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    58
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 58
    Par défaut [VBA Excel 2003] Décocher "protection verrouillée" lors d'une copie d'une cellule
    Bonjour,

    Pour des questions de sécurité (afin que l'utilisateur ne fasse pas n'importe quoi), j'ai verrouillé ma feuille de calcul en ne laissant que certaines cellules directement modifiables (en décochant protection > verrouillée). Seulement, si je copie une cellule d'une feuille de calcul d'un autre classeur Excel, je n'y ai plus accès car il prend toutes les paramètres de la cellule copiée (donc format, protection > verrouillée par défaut, etc.)

    J'aimerais donc savoir comment on peut déverrouiller une cellule APRES en avoir copié une provenant d'un autre classeur et qui est verrouillée par défaut.

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    pour deproteger la cellule A1

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("A1").Locked = false

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    58
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 58
    Par défaut
    Merci pour ta réponse, mais j'avais déjà essayé cela sur l'évènement Workbook_SheetChange, et chaque fois cela me renvoie l'erreur suivante
    Erreur d'exécution '1004' :
    Impossible de définir la propriété Locked de la classe Range.

  4. #4
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    quel est ton code?

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    58
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 58
    Par défaut
    Dans le code Workbook :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    MaFeuill.Range("A1:D10").Locked = False
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    MaFeuill.Range("A1").Locked = False
    Que je sélectionne une seule cellule ou une plage, cela me retourne la même erreur.

  6. #6
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    je n'ai pas ton erreur.
    Par contre, pour que ca fonctionne il faut que j'écrive comme ca.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Sh.Range("A1:A10").Locked = False

  7. #7
    Membre averti
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    58
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 58
    Par défaut
    Exact, mais c'est toujours la cata, la même erreur pour changer... je sens que ceci va se produire dans pas longtemps

  8. #8
    Membre chevronné Avatar de mordrhim
    Inscrit en
    Avril 2007
    Messages
    270
    Détails du profil
    Informations personnelles :
    Âge : 43

    Informations forums :
    Inscription : Avril 2007
    Messages : 270
    Par défaut
    didadidadoum.

    je passe juste faire une petite remarque comme ca

    la feuille (le classeur) où tu essaye de déverrouiller ta cellule, ne serait-elle(il) pas protégé(e) par nasar ?

    juste comme ca pour mettre mon grain de sel hein ! Parceque tu n'as pas le droit de déverouiller une cellule si elle fait partie d'un élément protégé, il faut "déprotéger" (ca se dit ça ?) le susdit élément avant

    Au revoir

  9. #9
    Membre averti
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    58
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 58
    Par défaut
    En effet, je viens de trouver ça, comme un couillon la feuille était protégée à l'ouverture du Workbook. Merci en tout cas de vos réponses.

    "Pourquoi je passe toujours des heures, voire des jours, sur des erreurs à la c** ?"

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 17/07/2007, 11h53
  2. vba excel 2003 - Insérer fichier txt
    Par stargates dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 11/07/2007, 20h52
  3. vba[Excel 2003]Problème userform
    Par stargates dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 07/07/2007, 15h15
  4. [VBA] Excel 2003 > 2000
    Par roseau dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 27/03/2007, 09h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo