Excel-VBA :Comment Sécuriser votre Classeur Excel Multi-utilisateur ?

Поделиться
HTML-код
  • Опубликовано: 21 дек 2024

Комментарии • 121

  • @SM-tz1hc
    @SM-tz1hc Год назад +1

    Excellente démonstration M. Niger... Très sensationnel

  • @brikihosni730
    @brikihosni730 2 года назад +2

    Bonjour. Merci pour toute vos publication, c'est tres instructif et utiles. Bonne continuation

  • @esaiesib202
    @esaiesib202 Год назад +1

    Super tuto coach !!! Avec vous je vais apprendre beaucoup car j'aimerais m'essayer en développement des applications

  • @filtrefiltre9358
    @filtrefiltre9358 3 года назад +2

    Bonjour super
    Un grand merci à vous pour ce tutoriel

  • @Oprimaita
    @Oprimaita 4 года назад +2

    Un grand merci à vous pour ce tutoriel. C’est très bien expliqué. Je vais m’empresser d’aller construire un fichier similaire.

  • @tiemokotraore8172
    @tiemokotraore8172 4 года назад +2

    Je l'es repris ça fonctionne très bien . félicitations et bon vent à vous

  • @AlvarezMulti-service
    @AlvarezMulti-service Год назад +1

    super tuto!! j'ai essayer de refaire c'est bon mais une chose est que: comment faire pour activer les feuilles a partir de ce tableau cet à dire mettre un oui pour activer la feuille

  • @dimscab9952
    @dimscab9952 2 года назад +3

    Bonjour et merci infiniment pour toutes ces explications claires et précises. Je voudrais juste savoir comment insérer les "OUI" dans la feuille paramètre (pour l'octroi des feuilles). Merci

    • @radoniainaratsimbazafy2254
      @radoniainaratsimbazafy2254 Год назад +1

      moi aussi je voudrais juste savoir comment insérer les "oui"

    • @NigerExcelNE
      @NigerExcelNE  Год назад

      Tout est dans le code VBA je crois

    • @jdbanka4747
      @jdbanka4747 8 месяцев назад

      J'ai tout repris mais pour activer la cellule par oui c'est difficile

    • @NigerExcelNE
      @NigerExcelNE  8 месяцев назад

      @jdbanka4747 suivez ce nouveau Tuto pour précision : ruclips.net/video/Ab09GViKU2g/видео.html

  • @SM-tz1hc
    @SM-tz1hc Год назад +1

    Excellent. Vraiement bravo. Une toute petite suggestion : cas de mot de passe oublié. Comment réinitialiser ?

    • @NigerExcelNE
      @NigerExcelNE  Год назад +1

      Bin il faut , faire attention à cela' ou si vous connaissez comment retrouver le mot de passe. Tant mieux. Merci pour votre audience

  • @nathaliebernard6592
    @nathaliebernard6592 2 года назад +1

    Merci pour votre super tutoriel, je ne connais rien en VBA et grâce à vous j'ai réussi à configurer mon fichier. Pour que tout soit parfait j'aurais quelques demandes à vous faire. Lorsque je saisi l'utilisateur et le mot de passe et que la combinaison est bonne j'aimerais que le userform disparaisse automatiquement. De plus, j'aimerais que la feuille connexion disparaisse et que seules les feuilles autorisées pour l'utilisateur soient visibles. Finalement j'aimerais que certains utilisateurs ne puissent pas sauvegarder le fichier. Merci à l'avance

  • @jdbanka4747
    @jdbanka4747 8 месяцев назад +1

    Je ne sais pas comment vous avez fait pour que la sélection de vos cellules se fassent par Oui. Cette partie n'est pas indiquée. Merci

  • @daoudasene7351
    @daoudasene7351 11 месяцев назад +1

    Merci pour la vidéo. Cependant je voudrais savoir comment peut-on empêcher la suppression des feuilles.

    • @NigerExcelNE
      @NigerExcelNE  11 месяцев назад

      Il faut protéger les feuilles bien-sûr

  • @nancyfournier9336
    @nancyfournier9336 3 года назад +1

    Un grand merci, c'est génial. Comment peut-on faire pour éviter que quelqu'un supprime une feuille. J'ai tenté de le faire en protégeant le classeur, ca fonctionne mais cela bloque la fonction principale de changer d'utilisateur.

  • @mohamedelamrani936
    @mohamedelamrani936 2 года назад +1

    Merci beaucoup

  • @thomasanoko4370
    @thomasanoko4370 2 года назад +1

    Bonsoir à vous j'aimerais savoir comment faire pour monter le fichier la

    • @NigerExcelNE
      @NigerExcelNE  2 года назад +1

      Bonsoir. Vous n'avez qu'à suivre le tutoriel pas à pas

    • @thomasanoko4370
      @thomasanoko4370 2 года назад

      @@NigerExcelNE oui je l'ai suivi mais je voudrais savoir si je peux avoir la vidéo qui permet de monter le montage de ce ficher avant d'arriver sur la phase protection.
      Merci d'avance

  • @alexandreaubry3108
    @alexandreaubry3108 11 месяцев назад +1

    Bonjoir petite question a 25 minutes et 32 secondes apres le oui vous rajouter un then ou pas

    • @NigerExcelNE
      @NigerExcelNE  11 месяцев назад +2

      Je me rappelle plus la dernière fois que j'ai regardé cette vidéo 😅

    • @NigerExcelNE
      @NigerExcelNE  11 месяцев назад +2

      Mais tant que j'ai mis if , naturement il faut mettre then

    • @alexandreaubry3108
      @alexandreaubry3108 11 месяцев назад

      @@NigerExcelNE j ai mis ca marche pas .... je n arrive pas rentree le mot de passe .... je vais le refaire pas a pas la semaine pro

    • @alexandreaubry3108
      @alexandreaubry3108 11 месяцев назад +1

      La séquence de la minutes 22 possiblité de me la mettre compléte ou pas

    • @NigerExcelNE
      @NigerExcelNE  11 месяцев назад

      @@alexandreaubry3108 Peut être je vais visionner la vidéo pour voir de quoi vous parlez des que possible ok. Me

  • @leplusformation7247
    @leplusformation7247 3 года назад +1

    bonjour un grand merci pour le code ça m'a aider à avancer seulement après la validation toutes les pages s'affichent malgré que j'ai suivi les mêmes étapes.
    ça peut être quoi mon problème?

  • @alidaher1509
    @alidaher1509 4 года назад +1

    Super Tuto avec toujours des explications claires et détaillées. Une question j'ai toujours des feuilles a ajouter et si a chaque feuille je dois ajouter une colonne de plus a la plage en-tête et mettre exemple des oui sa sera trop. J'aimerais passer par une seul colonne d'en-tête (Role) et nommé chaque ligne ex: Admin et User. Comment pourrais-je noter cette ligne de code au lieu du =Oui sa sera plutôt Admin ou User.
    Merci beaucoup Mr pour tout

    • @alidaher1509
      @alidaher1509 4 года назад +1

      J'ai oublié de spécifié que Role n'est pas une feuille comme dans votre vidéo Paramètre est une feuille.😅🙏🙏

    • @NigerExcelNE
      @NigerExcelNE  4 года назад +2

      Salut ali Comment vas tu. Au fait automatiser les utilisateurs n'est pas une bonne méthode. Permettre à l'administrateur de personnaliser les noms serait mieux. Et pour la plage entête évidemment on peux coder de manière qu'il prenne automatiquement les nouvelles feuilles rajoutées.peut-être je vous le montrerai dans un prochain tuto.ok

    • @alidaher1509
      @alidaher1509 4 года назад +1

      @@NigerExcelNE. Génial merci beaucoup et je profite pour vous souhaiter RAMADAN KARIM 🙏🙏🙏

  • @maximepona5041
    @maximepona5041 2 года назад +1

    Hello, j'aurai une question concernant ton tuto :
    Tout d'abord merci pour ce super tuto ! J'ai réussi à établir les différentes avex les mot de passe etc
    Mais travaillant sur un fichier partagé si l'utilisateur A est connecté, puis le B se connecte avec ses codes, alors l'utilisateur A est automatiquement redirigé sur mes onglets de l'utilisateur B.
    Un travail en simultané de plusieurs utilisateurs n'est donc pas possible ?
    Merci pour votre réponse.

    • @NigerExcelNE
      @NigerExcelNE  2 года назад +1

      Il est déconseillé de partager un classeur excel avec des macros et autres mais plutôt essayer avec un dossier partagé. Mais simultanément il serait difficile de travailler dessus. Il faudrait que l'autre utilisateur quitte le classeur de son côté. Merci

  • @valavieainsi
    @valavieainsi 4 года назад +1

    Bonjour professeur je voudrais savoir s’il est possible de rajouter une traçabilités d’ouverture et fermeture du fichier des utilisateurs en mentionnant l’utilisateur la date et heure je vous remercie pour votre disponibilité

    • @NigerExcelNE
      @NigerExcelNE  4 года назад

      Bien-sûr que Cest possible. Peut-être un prochain tuto à propos dès que j'ai un petit temps.!

    • @valavieainsi
      @valavieainsi 4 года назад

      Niger Excel merci professeur si possible de le faire sur le même programme ci-dessus merci encore une fois

  • @manarsis9628
    @manarsis9628 2 года назад

    bonjour, pouvez vous m'aider pour protéger ma feuille source de toutes modifications sans passer par le formulaire de saisie.

  • @AntonieJaabirRAZAFIMANDIMBY
    @AntonieJaabirRAZAFIMANDIMBY 2 месяца назад

    Merci pour ce super tuto mais je ne sait pas pourquoi mon code (MDP = Application.WorksheetFunction.Index(Range("motdepasse"), Aplication.WorksheetFunction.Match(Me.Text_ID.Value, _
    Range("utilisateur"), 0), 1) ne marche pas

  • @victorienlerich4352
    @victorienlerich4352 5 месяцев назад +1

    Bonsoir chef. j'espère que vous vous portez bien. Aujourd'hui je suis tombé sur votre vidéo, et j'ai essayer de reproduire ça. Malheureusement ça n'a pas marché. Dite moi comment avez vous fait au niveau de la plage pour avoir la liste déroulant des OUI. De même lorsque vous enregistrer le login et mot de passe, la plage incrémente tout seull??????????

  • @philipmoers8555
    @philipmoers8555 4 года назад +1

    Dernière question tout fonctionne parfaitement mais quand je ferme le fichier et l enregistre avec toutes les pages afficher ensuite je reouvre le fichier les pages sont toujours afficher et donc accessible sans mot de passe,c'est normal ? Ou il ya un problème? Merci beaucoup pour ta réponse à ma question précédente

    • @NigerExcelNE
      @NigerExcelNE  4 года назад

      Bonjour. Normalement si tu ouvres le classeur toutes les feuilles sauf connexion seront masquées !

    • @philipmoers8555
      @philipmoers8555 4 года назад

      @@NigerExcelNE Super j'ai re trouver l l'erreur dans mon code super ca fonctionne, encore merci

  • @salahkephass96
    @salahkephass96 3 года назад +1

    bnjr prof je peux avoir le fichier?

  • @valavieainsi
    @valavieainsi 4 года назад

    Bonjour professeur avant toute chose je vous remercie pour le tuto.
    Je voudrais savoir svp professeur Comment faire pour masquer par des étoiles lorsqu’on tape le mot de passe

    • @NigerExcelNE
      @NigerExcelNE  4 года назад +1

      Bonjour. Vous partez dans les paramètres du userform au nouveau de pass char. Et vous mettez *

  • @philipmoers8555
    @philipmoers8555 4 года назад

    Bonjour, super travail ps je bloque la ligne =oui le ' message d'erreur " erreur de compilation Attendu:Then ou Go To'.. avez vous une solution ?? Merci d d'avance

    • @NigerExcelNE
      @NigerExcelNE  4 года назад

      Bonjour . vérifie si tu as mis le then a la fin de ta procédure. Après le Oui.

  • @myamballasgianny6464
    @myamballasgianny6464 2 года назад

    merci pour tout mais j'ai un message d'erreur "NEXT SANS FOR" je ne comprends pas je pense avoir tout suivi à la lettre. j'ai du retirer "l'option explicit".

    • @NigerExcelNE
      @NigerExcelNE  2 года назад

      Essayez de rajouter un next dans le code. Vous avez dû manquer un au niveau d'une boucle.

  • @Bullrot07
    @Bullrot07 4 года назад

    Bonjour,
    J'ai regardé les commentaires et j'essaye d'appliquer votre ode au miens, mais il y a un problème avec les deux lignes suivante :/
    If application.WorksheetFunction.Index(range("place"),application.WorksheetFunction.Match(me.TextBoxAccount.Value,range("Login"),0),application.WorksheetFunction.Match(feuil.Name,range("entete"),0))="Yes"
    Est ce que la liste déroulante, vous l'avez faites depuis "données validation?"
    Je vois pas d'où peut venir le problème :/
    Merci d'avance, peut être serait il possible d'avoir une copie de votre fichier pour voir si le problème est dans les sources etc :/

    • @Bullrot07
      @Bullrot07 4 года назад +1

      Ok, j'ai trouvé ^^ dans la video vous dites le "then", mais on le voit pas ;)

  • @anael3abdeltha3if72
    @anael3abdeltha3if72 4 года назад

    Bonjour, ça fait une semaine que j'essaye d'envoyer un fichier excel en mail format pdf et j'arrive pas alors que j'ai fait le même code que toi .
    Si tu peux m'aider je serais ravi

    • @NigerExcelNE
      @NigerExcelNE  4 года назад +1

      Bonjour. Reverifiez votre code tranquillement. Habituellement, un serveur de courrier sortant utilise le port 25: c’est le port SMTP par défaut. vous pouvez essayer le port 587 ou le port 465 voir si ça ira. Merci pour votre commentaire.

    • @anael3abdeltha3if72
      @anael3abdeltha3if72 4 года назад

      @@NigerExcelNE merci de votre réponse , moi c la création de fichier pdf, le module s'exécute sans défaut mais il crée pas le fichier

    • @NigerExcelNE
      @NigerExcelNE  4 года назад

      @@anael3abdeltha3if72 ah ok. Essayez d'aller dans l'onglet fichier de votre classeur. Et faites enregistrer sous ensuite déroule la boite de dialogue ou s'est écrit non du fichier et vous vérifiez si vous avez l'option Pdf. Sinon téléchargez et installez ce complément pdf pour office.merci

    • @NigerExcelNE
      @NigerExcelNE  4 года назад

      Ce complément s'appelle SaveAspdfxps.

    • @anael3abdeltha3if72
      @anael3abdeltha3if72 4 года назад

      @@NigerExcelNE bonjour, après mainte vérification, tout est y est, malheureusement pour moi ça ne marche pas

  • @WA232010
    @WA232010 3 года назад

    Bonjour
    le Me dans le Me.Textbox1 signifie quoi Monsieur .

  • @WA232010
    @WA232010 3 года назад

    comment puis-je affiche le nom d'utilisateur dans une cellule ? .

  • @BRAHIMLIMOUNI0629517332
    @BRAHIMLIMOUNI0629517332 4 года назад

    Bonsoir, professeur. Comment allez-vous?
    J'ai un problème pour essayer de tester le code
    Message: le mot de passe est incorrect

  • @leilaidriss1466
    @leilaidriss1466 4 года назад

    bonjour ! erreur pour ce code? votre aide merci
    if application.WorksheetFunction.Index(range("plage"), application.WorksheetFunction.Match( _
    me.TextBox1.Value, range("utilisateur"), 0), application.WorksheetFunction.Match(feuil.name, range("entete"),0)) = "oui"

    • @NigerExcelNE
      @NigerExcelNE  4 года назад

      Bonjour. Vous devez écrire le "oui" de la même façon que vous l'aviez écrit dans la liste déroulante.les noms de vos onglets doivent être écrits de la même mani que dans le code vba. Sinon ça ne marchera pas. Essayez de comparez un par un vos codes aux miens . ne rien rater. Merci

  • @oughilasmbark7249
    @oughilasmbark7249 4 года назад

    Bonjour SVP où il y a d'erreur là Private Sub CommandButton1_Click()
    Dim Feuil As Worksheet
    Dim MDP
    On Error Resume Next
    If Me.TextBox1.Value = "" Then
    MsgBox "Veuillez saisir votre Login...!", vbOKOnly + vbExclamation, "Erreur...!"
    Exit Sub
    End If
    If Me.TextBox2.Value = "" Then
    MsgBox "Veuillez saisir votre Mot de passe...!", vbOKOnly + vbExclamation, "Erreur...!"
    Exit Sub
    End If
    MDP = Application.WorksheetFunction.Index(Range("motdepasse").Application.WorksheetFunction.Match(Me.TextBox1.Value, _
    Range("utilisateur"), 0), 1)
    If Me.TextBox2.Value MDP Then
    MsgBox "Votre mot de passe est incorrect...!", vbOKOnly + vbCritical, "Erreur...!"
    Else
    For Each Feuil In Sheets
    If Feuil.Name "Connexion" Then
    if application.WorksheetFunction.Index(range("plage"),application.worksheetFunction.Match( _
    me.TextBox1.Value,range("utilisateur"),0),application.WorksheetFunction.Match(feuil.Name,range("entete"),0))="Oui"

    ces deux lignes en rouge je sais pas pourquoi?
    Feuil.Visible = xlSheetVisible
    Else
    Feuil.Visible = xlSheetVeryHidden
    End If
    End If
    Next
    End Sub
    Merci

  • @oughilasmbark7249
    @oughilasmbark7249 4 года назад

    Bonjour
    j'ai fait tout ces étapes Mr mais j'arrive pas bon fonctionnement je vous demande de m'aider pour trouver où est le problème
    Merci
    Private Sub CommandButton1_Click()
    Dim Feuil As Worksheet
    Dim MDP
    On Error Resume Next
    If Me.TextBox1.Value = "" Then
    MsgBox "Veuillez saisir votre Login...!", vbOKOnly + vbExclamation, "Erreur...!"
    Exit Sub
    End If
    If Me.TextBox2.Value = "" Then
    MsgBox "Veuillez saisir votre Mot de passe...!", vbOKOnly + vbExclamation, "Erreur...!"
    Exit Sub
    End If
    MDP = Application.WorksheetFunction.Index(Range("MotDePasse").Application.WorksheetFunction.Match(Me.TextBox1.Value, _
    Range("utilisateur"), 0), 1)
    If Me.TextBox2.Value MDP Then
    MsgBox "Votre mot de passe est incorrect...!", vbOKOnly + vbCritical, "Erreur...!"
    Else
    For Each Feuil In Sheets

    If Feuil.Name "Connexion" Then

    If Application.WorksheetFunction.Index(Range("plage"), Application.WorksheetFunction.Match( _
    Me.TextBox1.Value, Range("utilisateur"), 0), Application.WorksheetFunction.Match(Feuil.Name, Range("entete"), 0)) = "Oui" Then

    Feuil.Visible = xlSheetVisible
    Else
    Feuil.Visible = xlSheetVeryHidden

    End If

    End If


    Next
    End If
    End Sub

    • @NigerExcelNE
      @NigerExcelNE  4 года назад +1

      Merci pour votre commentaire. Mais comparez un à un vos codes aux miens et vous reglerez le problème. Courage

    • @oughilasmbark7249
      @oughilasmbark7249 4 года назад

      @@NigerExcelNE merci de m'envoyer votre email afin de vous envoyer le fichier très bonne soirée

    • @oughilasmbark7249
      @oughilasmbark7249 4 года назад

      @@NigerExcelNE oughilasmabrok@gmail.com

  • @oughilasmbark7249
    @oughilasmbark7249 4 года назад

    Bonjour tout le monde
    S'il vous plaît qui parmi vous pratique ce tutoriel j'ai essayé plusieurs fois mais j'arrive pas au bonne résultat je vous demande de m'envoyer votre travail parfait
    Salutations

    • @NigerExcelNE
      @NigerExcelNE  4 года назад

      Merci pour votre commentaire !

    • @NigerExcelNE
      @NigerExcelNE  4 года назад +1

      Vous pouvez me dire où vous vous êtes bloqué ? Merci

    • @oughilasmbark7249
      @oughilasmbark7249 4 года назад

      Merci bcp j'arrive a détecter mon erreur c'est parfait mnt c'est gentil

  • @corneillebamba958
    @corneillebamba958 3 года назад

    comment octroyer chaque cellule aux utilisateur

  • @guercshommugisho8916
    @guercshommugisho8916 3 года назад

    Pardon monsieur,
    Pourriez-vous me donner le fichier

  • @bricecarre964
    @bricecarre964 4 года назад

    je veux bien le fichier pour voir ou je bloque svp

    • @NigerExcelNE
      @NigerExcelNE  4 года назад

      Bonjour Mr CARRE. l'objectif Cest de vous pousser à comprendre de vous même les procédures .raison pour laquelle je joint pas les fichiers dans les descriptions. Je sais que vous allez y arriver . reprenez les codes et comparez les aux miens un par un ok. . vous verrez que Cest facile. merci mon frère Courage.

  • @bricecarre964
    @bricecarre964 4 года назад +1

    Je bloque même avec la vidéo ...

  • @salahkephass96
    @salahkephass96 3 года назад

    feuil.Visible = xlSheetVisible
    Else
    feuil.Visible = xlSheetVeryHidden
    End If
    Next
    End If
    End Sub
    Exit Sub
    p.s: c'est à partir d'ici que l'erreur s'affiche "next sans for'' . merci

    • @NigerExcelNE
      @NigerExcelNE  3 года назад

      Bonjour. Désolé. Ce fichier m'a servi juste d'exemple. Et du coup je sais même plus ou je l'ai mis.

    • @salahkephass96
      @salahkephass96 3 года назад

      @@NigerExcelNE bnjr! il m'aurait vraiment aidé. svp y a t-il quelqu'un qui l'aurait? ou je vous envoie le mien pour correction? merci bcp

    • @NigerExcelNE
      @NigerExcelNE  3 года назад +1

      @@salahkephass96 je suis actuellement en déplacement. J'aurai pas trop le temps .

  • @mohlyaz827
    @mohlyaz827 3 года назад +1

    Bonjour Mr Niger Excel, merci de m'envoyer votre mail

  • @alphonsenshombo6055
    @alphonsenshombo6055 4 года назад

    Bonjour Niger Excel, pouvons-nous avoir les fichier xls avec les codes de cet exemple au alphonsebagalwa@gmail.com, vraiment, c'est intéressant et ça viens balayer quelques lacunes et questions que je me posaient

    • @NigerExcelNE
      @NigerExcelNE  4 года назад

      Bonjour Mr Alphonse. Évidemment c'est le but du tuto. Jai eu tellement de demande a propos. Et si jai pas mis le fichier excel en attaché ; c'est pour vous pousser à reproduire le code ou l'améliorer de vous Même. Merci

    • @alphonsenshombo6055
      @alphonsenshombo6055 4 года назад +1

      @@NigerExcelNE : C'est bon vraiment, j'aime beaucoup ça, pour moi, c'est un surplus

    • @vincentm4460
      @vincentm4460 4 года назад

      Bonjour 👋 du coup avez-vous eu le fichier Excel?

  • @houarimekahli6643
    @houarimekahli6643 3 года назад

    bonjour,
    je suis un nouveau abonné d'algerie de votre chaine et je vous dit un grand merci pour vos tutoriel, néanmois dans le tutoriel comment sécuriser votre calsseur excel multi utilisateur, je bloque dans cette partie : if application.WorksheetFunction.Index(range("plage"),application.WorksheetFunction.Match( _
    me.TextBox1.Value,range("utilisateur"),0),application.WorksheetFunction.Match(feuil.Name,range("entete"),0))="oui"
    et je ne me trouve pas. j'aimerai bien que vous m'aidié afin de resoudre ce blocage. et merci d'avance

    • @NigerExcelNE
      @NigerExcelNE  3 года назад

      Merci pour votre audience. Si vous pouvez me contacter dans mon WhatsApp. +22796289934