Récupération du MdP dans une msgbox

Bonjour,

Je voudrais savoir si il est possible de récupérer le mot de passe tapé par l'utilisateur pour l'intégrer dans la msgbox qui lui dit que son Mdp (******) est valide.

Du genre "Bonjour *******, votre mot de passe est valide", le mot de passe étant personalisé.

Cette demande n'a rien de bloquante vis à vis de l'utilisation du fichier, juste une petite amélioration.

Si besoin le ficier est là : https://forum.excel-pratique.com/excel/controler-la-fermeture-d-un-fichier-t20337.html

Merci à vous et bonne année à tous les participants de ce forum.

Bonjour,

sur ton lien,

Tu aurai pu prévenir que tout est protégé, VBA compris !

on ne peut même pas fermer le fichier ni quitter Excel

sans faire une annulation des tâches. (Ctrl+Alt+Suppr)

Claude

Bonjour,

PS : il y a un chrono pour la fermeture automatique du fichier (2mn). Le mot de passe par défaut est : toto

voici ta macro réservation avec un petit changement à la ligne

MsgBox "Mot de passe valide, bonjour " & Nom

Sub Debut_Reservation()
Dim Rep As String
Dim Cel As Range
Dim Nom As String
Dim dlt As Byte
Const couleur_modifiable As Long = 34
Const Mot_de_passe As String = "toto"

dlt = Cells(2000, 2).End(xlUp).Row
  If Sheets("Data").Range("C1") <> "" Then Exit Sub
  Rep = Application.InputBox("Veuillez entrer votre mot de passe", Title:="Réservation dans une session", _
  Type:=2)
  For Each Cel In Sheets("Data").Range("A2:A27")
    If Cel = Rep Then
      Nom = Cel.Offset(0, 1)
      MsgBox "Mot de passe valide, bonjour " & Nom
      Exit For
    End If
  Next Cel
  If Nom = "" Then
      MsgBox "Mot de passe erroné"
       Exit Sub
   End If
        Sheets("Data").Range("C1") = Nom
  With ActiveSheet
        .Unprotect Password:=Mot_de_passe
    For Each Cel In .Range("C2:AH" & dlt)
      If Cel = Nom Or (Cel = "" And Cel.Interior.ColorIndex = couleur_modifiable) Then
        .Cells(Cel.Row, Cel.Column).Locked = False
        .Cells(Cel.Row, Cel.Column).FormulaHidden = False
        With .Cells(Cel.Row, Cel.Column).Validation
          .Delete
          .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
          xlBetween, Formula1:=Nom
          .IgnoreBlank = True
          .InCellDropdown = True
          .ShowInput = True
          .ShowError = True
        End With
      End If
    Next Cel
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
                  UserInterfaceOnly:=True, Password:=Mot_de_passe
  End With

  'Emplacement pour message d'information a l'ouverture du fichier
  '-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
  'MsgBox ("ATTENTION" & Chr(10) & Chr(10) & "Le D.E.V est fermé du 07 Novembre au 14 Novembre 2010 inclus ( Séminaire)."), vbInformation
  '-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
End Sub

dubois a écrit :

Bonjour,

sur ton lien,

Tu aurai pu prévenir que tout est protégé, VBA compris !

on ne peut même pas fermer le fichier ni quitter Excel

sans faire une annulation des tâches. (Ctrl+Alt+Suppr)

Claude

Désolé Claude, c'était marqué sur le post en question mais j'aurais peut-être du le re-signaler

Pour Math, je vais tester tout ça pendant le week-end (mais je ne doute pas que cela fonctionne) et je te tiens au courant.

Merci pour ton boulot et encore mes excuses à Claude

Bonjour Math,

ça marche tout bien, j'ai juste modifié la ligne pour avoir "Bonjour ******, votre mot de passe est correct"

Merci à toi