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

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  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 : 51
    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 : 51
    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 : 51
    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

+ 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