L
ludo
Guest
Bonsoir
Je voudrais savoir comment je pourrais ajouter une fonction "On erreur" dans ma macro.
Je m'explique ! J'ai deux feuilles et une que je protége (feuille 2) avec la macro ci-dessous. Malheureusement quand je saisi par erreur le mot de passe et au lieu de revenir dans la feuille (1) il me ferme les deux feuilles comme s'il fermait entièrement le classeur, mais en réalité le classeur est toujours actif mais plus aucun contrôle pour revenir en arrière. La seule solution est de fermer sans sauvegarder le classeur.
Qui aurait une idée pour que lorsque je saisi par erreur le mot de passe, qu'il revienne automatiquement sur la feuille 1 avec un message box qui dit que le password est faux.
Merci pour votre aide
Ludo
Option Explicit
Private Const MOTPASSE As String = "advance"
Private OldSheet As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim reponse$
If Sh.CodeName = "Feuil2" Then
ActiveWindow.Visible = False
reponse$ = Application.InputBox _
(prompt:="Veuillez entrer votre mot de passe.", _
Type:=2)
If reponse$ <> MOTPASSE Then
Application.EnableEvents = False
Sheets(OldSheet).Activate
Application.EnableEvents = True
End If
Else
OldSheet = ActiveSheet.CodeName
End If
Windows(1).Visible = True
End Sub
Je voudrais savoir comment je pourrais ajouter une fonction "On erreur" dans ma macro.
Je m'explique ! J'ai deux feuilles et une que je protége (feuille 2) avec la macro ci-dessous. Malheureusement quand je saisi par erreur le mot de passe et au lieu de revenir dans la feuille (1) il me ferme les deux feuilles comme s'il fermait entièrement le classeur, mais en réalité le classeur est toujours actif mais plus aucun contrôle pour revenir en arrière. La seule solution est de fermer sans sauvegarder le classeur.
Qui aurait une idée pour que lorsque je saisi par erreur le mot de passe, qu'il revienne automatiquement sur la feuille 1 avec un message box qui dit que le password est faux.
Merci pour votre aide
Ludo
Option Explicit
Private Const MOTPASSE As String = "advance"
Private OldSheet As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim reponse$
If Sh.CodeName = "Feuil2" Then
ActiveWindow.Visible = False
reponse$ = Application.InputBox _
(prompt:="Veuillez entrer votre mot de passe.", _
Type:=2)
If reponse$ <> MOTPASSE Then
Application.EnableEvents = False
Sheets(OldSheet).Activate
Application.EnableEvents = True
End If
Else
OldSheet = ActiveSheet.CodeName
End If
Windows(1).Visible = True
End Sub
