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-E]comment ça marche "RejectAllChanges"


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Inscrit en
    Août 2005
    Messages
    14
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 14
    Points : 11
    Points
    11
    Par défaut [VBA-E]comment ça marche "RejectAllChanges"
    Salut

    Je travail sur Excel 2000 et 2003.

    Je souhaite faire une macro qui affiche un message d'interdiction si un utilisateur supprime une cellule ou une ligne dans mon tableau excel.

    Par contre je ne sais pas trop comment partir !!!

    En fouillant dans les aides d'office je suis tombé sur RejectAllChanges, mais l'aide est trop legère pour que je puisse continué.

    Merci si vous pouvez m'aider ou sur RejectAllChanges ou comme faire pour afficher le message lorsque l'on supprime une cellule ou ligne.

    A+

  2. #2
    Rédacteur/Modérateur
    Avatar de argyronet
    Homme Profil pro
    Panseur de bobos en solutions ETL
    Inscrit en
    Mai 2004
    Messages
    5 123
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Panseur de bobos en solutions ETL
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2004
    Messages : 5 123
    Points : 12 169
    Points
    12 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    Si tu veux protéger n feuilles en particulier sans protéger ces feuilles ou même le classeur, tu peux écrire ce code sur ces n feuilles:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Option Explicit
     
    Private Sub Worksheet_Change(ByVal Target As Range)
      MsgBox "Vous n'êtes pas autorisé à modifier le contenu des cellules !", 48
        With Application
            .EnableEvents = False
            .Undo
            .EnableEvents = True
        End With
    End Sub
    Argy
    Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment.

    Ils comptent sur vous...
    Web Site@Mail
    Tutoriels : Déployez vos applications Access 2010 à 2019 */* Réalisez un Assistant de présaisie...
    MDB Viewer : Visionneuse Access v4.0
    *** Je recherche des profils (2 ans min.) Java EE, Fullstack, Front, .Net, Mobile... pour CDI ***

  3. #3
    Membre à l'essai
    Inscrit en
    Août 2005
    Messages
    14
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 14
    Points : 11
    Points
    11
    Par défaut
    Merci pour ta reponse

    Mais c'est pas tout a fais se que je veux.

    Je veux pouvoir ecrire dans les cellules.
    J'ai une macro qui ajoute des factures avec une colonne "date"+"fournisseur"+"montant"
    Ce que je ne veux pas c'est que les utilisateur arrive a effacer une ligne de facture deja enregistré dans mon tableau.

    Le top serai que j'arrive a mettre un mot de passe pour que se soit juste le chef de service qui puisse effacer une ligne de facture.

    Car aujourd'hui nous sommes 4 personnes a utiliser ce fichier et tous le monde entre des factures et en supprime on ne s'y retrouve plus.

    Voila en gros
    Merci

  4. #4
    Membre à l'essai
    Inscrit en
    Août 2005
    Messages
    14
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 14
    Points : 11
    Points
    11
    Par défaut
    je vais quand meme demain regarder ton code pour voir si je ne peux pas en tirer quelque chose en modifiant mon project.

    Sur ton code j'ai peur que ma macro ne puisse allé ecrire dans mon tableau.

    Je souhaite pouvoir continué a ajouter des factures.

    A+

  5. #5
    Rédacteur/Modérateur
    Avatar de argyronet
    Homme Profil pro
    Panseur de bobos en solutions ETL
    Inscrit en
    Mai 2004
    Messages
    5 123
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Panseur de bobos en solutions ETL
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2004
    Messages : 5 123
    Points : 12 169
    Points
    12 169
    Billets dans le blog
    5
    Par défaut
    Rien ne t'empêche d'exploiter le paramètre Target...
    Ici, ce que je t'ai proposé est global et concerne toute la feuille.
    En exploitant l'objet Target, tu peux très bien contrôler certaines lignes/colonnes, certains noms de plages etc...
    N'ayant pas visu sur la structure de tes feuilles, à toi de peaufiner son usage

    Argy
    Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment.

    Ils comptent sur vous...
    Web Site@Mail
    Tutoriels : Déployez vos applications Access 2010 à 2019 */* Réalisez un Assistant de présaisie...
    MDB Viewer : Visionneuse Access v4.0
    *** Je recherche des profils (2 ans min.) Java EE, Fullstack, Front, .Net, Mobile... pour CDI ***

  6. #6
    Membre à l'essai
    Inscrit en
    Août 2005
    Messages
    14
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 14
    Points : 11
    Points
    11
    Par défaut
    ok
    je regarde ça demain

    et si je n'y arrive pas je te repose si tu es ok.

    Car je debut et je ne programme pas tous les jours.

    encore merci

  7. #7
    Membre à l'essai
    Inscrit en
    Août 2005
    Messages
    14
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 14
    Points : 11
    Points
    11
    Par défaut
    Salut argyronet

    Bien grace a tes conseils j'ai reussi.

    A+

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

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