INPUTBOX

Bonsoir Forum

Bonsoir a tous et a toutes

Alors j'ouvre ce second sujet afin de trouver si quelqu'un peut m'aider avec deux ou trois lignes

Svp j'ai mis dans UserForm2 un commandButton1

Si on clique sur ce commandbutton1 dans UserForm2 s'affiche un INPUTBOX .. ce que je veux resoudre c'est dans le cas ou le message qui s'affiche " etes vous MARTI ?? "

Si c'est oui alors on accede au onglet "Feuil1"

Si c'est non on sort carrement de ce fichier

j'ai pas pu modifierdans ce code

Merci beaucoup pour l'aide

Cordialement

MARTI

Bonsoir, a tester

Private Sub CommandButton1_Click()
  Dim ws As Worksheet
  Dim strPass As String
  Dim mdp As String
  If MsgBox("etes-vous MARTI !! ", 4 + 32, "Demande du concepteur") = vbYes Then
    mdp = "123"
    If InputBoxDK("Tappez votre mot de passe svp") = mdp Then
      MsgBox "correcte mot de passe ..bienvenue", vbExclamation
      Sheets("Feuil1").Visible = xlSheetVisible
      Sheets("Feuil1").Select
    Else
      MsgBox "mot de passe incorrecte", vbExclamation
      Application.Quit
    End If
  End If
  For Each ws In ThisWorkbook.Worksheets
    ws.Visible = xlSheetVisible
  Next ws
  bOK = True
  Unload Me
End Sub

Bonsoir Machin

Merci beaucoup pour l'aide

Mais lorsque le message s'affiche "etes vous MARTI ??" j'ai essaye de repondre NON .. mais l'userform a disparu et j'accede d'une facon tres normale a l'onglet1..essayez svp de faire cela

Merci beaucoup d'avance pour votre aide

Sincerement

MARTI

Oups...Code modifié

Private Sub CommandButton1_Click()
  Dim ws As Worksheet
  Dim strPass As String
  Dim mdp As String
  If MsgBox("etes-vous MARTI !! ", 4 + 32, "Demande du concepteur") = vbYes Then
    mdp = "123"
    If InputBoxDK("Tappez votre mot de passe svp") = mdp Then
      MsgBox "correcte mot de passe ..bienvenue", vbExclamation
      Sheets("Feuil1").Visible = xlSheetVisible
      Sheets("Feuil1").Select
    Else
      MsgBox "mot de passe incorrecte", vbExclamation
      Application.Quit
    End If
  Else
    Application.Quit
  End If
  For Each ws In ThisWorkbook.Worksheets
    ws.Visible = xlSheetVisible
  Next ws
  bOK = True
  Unload Me
End Sub

Bonsoir Machin

Merci 1000 fois pour votre aide

Oui c'est exactement ce que je veux

Je vous remercie .. vous etes bien mon sauveur

C'est résolu grace à vous

Cordialement

MARTI

Votre sauveur non mais j'apprécie votre générosité