excel et mot de passe Résolu/Fermé

Question

Bonjour tout le monde,

J' ai lié un bouton de commande à un mot de passe, il fonctionne mais si on rentre un mauvais mot de passe ou si on clique sur annuler, excel se ferme. Je voudrais savoir comment  affiche un message "mot de passe faux, resississez le " quand celui-ci est faux. 
Une autre question, comment faire pour cacher le mot de passe quand on le saisi?

Merci de votre aide.

pijaku · Answer

Salut,
Peux tu copier / coller ton code, que l'on puisse t'aider au mieux.

emi · Answer

Voici le code pour mon mot de passe: 

Private Sub CommandButton9_Click()

Dim CmdB As CommandBar
reponse = InputBox("Bonjour,Entrez votre mot de passe", "Accés réservé")
If reponse = "mpd" Then
    For Each CmdB In Application.CommandBars
    CmdB.Enabled = False
    Next CmdB
    Application.CommandBars(3).Enabled = True
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    'With Application
        '.ShowStartupDialog = False
        '.ShowWindowsInTaskbar = False
    'End With
    
    Sheets("Tools").Select
    Menu.Hide
    
Else
Application.Quit
End If
End Sub

pijaku · Answer

Bonjour,
Voici le code. En fait il suffit de changer cette ligne : (après Else) Application.Quit et de rmplacer par une msgbox :

Private Sub CommandButton9_Click()
Dim CmdB As CommandBar
reponse = InputBox("Bonjour,Entrez votre mot de passe", "Accés réservé")
If reponse = "mpd" Then
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
Application.CommandBars(3).Enabled = True
Application.DisplayStatusBar = False
ActiveWindow.DisplayWorkbookTabs = False
'With Application
'.ShowStartupDialog = False
'.ShowWindowsInTaskbar = False
'End With
Sheets("Tools").Select
Menu.Hide
Else
MsgBox("mot de passe faux, ressaisissez le")
End If
End Sub

Pour cacher le mot de passe, il faudrait passer par un UserForm.

emi · Answer

D'accord, merci pour cette réponse et pour sa rapidité!

Excel et mot de passe

4 réponses

Discussions similaires