code

[AIGLON74]

Bonjour a tous

J’ai un code qui déprotège une feuille

ActiveSheet.Unprotect
Rows("1:56").Select
Selection.EntireRow.Hidden = False

si je me trompe de code j’ai une fenêtre
visual basic erreur 1004 qui apparaît

hors je voudrais une fenêtre qui me dise que le code et erroné

puis ouvre la fenêtre mot de passe pour un second essai

MERCI d'avoir pris le temps de lire ce message

AIGLON74

 

[SergiO]

Re : code

Bonjour Aiglon74, le Forum,

Essaie ceci:

On Error GoTo Erreur
ActiveSheet.Unprotect
Rows("1:56").Select
Selection.EntireRow.Hidden = False
Exit Sub
Erreur:
Message = MsgBox("Le mot de passe est erroné, recommencez !", vbExclamation, "Erreur Mot de passe")
End Sub

@+

 

[AIGLON74]

Re : code

bonjour sergio

voici le code en entier
Sub ModifOrdre()

' Macro enregistrée le 02/11/2007 par Aiglon74

Application.ScreenUpdating = True

Sheets("ModifOrdre").Select
Range("G65").Select


On Error GoTo Erreur
ActiveSheet.Unprotect
Rows("1:56").Select
Selection.EntireRow.Hidden = False
Exit Sub
Erreur:
Message = MsgBox("Le mot de passe est erroné, recommencez !", vbExclamation, "Erreur Mot de passe")
'End Sub



' ActiveSheet.Unprotect
'Rows("1:56").Select
'Selection.EntireRow.Hidden = False
ActiveSheet.Protect

Range("E18").Select
Sheets("ModifOrdre").Select


ActiveSheet.Unprotect

Range("E10").Select


ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True



End Sub

apres modif
j'ai bien le message d'erreur et la 2eme possibilite de rentre mon code
sans resultat

si le code et bon au premier coup tout s'ouvre mais selectionne la celule a1
et la feuille et grisé comme si la macro n'aller pas a son terme

 

[SergiO]

Re : code

Re,

Il faut mettre la gestion d'erreur à la fin du code

 Sub ModifOrdre()

' Macro enregistrée le 02/11/2007 par Aiglon74

Application.ScreenUpdating = True

Sheets("ModifOrdre").Select
 Range("G65").Select

    On Error GoTo Erreur
ActiveSheet.Unprotect
Rows("1:56").Select
Selection.EntireRow.Hidden = False

    ActiveSheet.Unprotect
    Rows("1:56").Select
    Selection.EntireRow.Hidden = False
    ActiveSheet.Protect
    
    Range("E18").Select
    Sheets("ModifOrdre").Select
    
    
    ActiveSheet.Unprotect

     Range("E10").Select
    
     
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Exit Sub
 Erreur:
 Message = MsgBox("Le mot de passe est erroné, recommencez !", vbExclamation, "Erreur Mot de passe")
End Sub

Tu déprotéges et protèges ta feuille 2 fois dans le code, 1 seule fois peut suffire.

@+

 

[AIGLON74]

Re : code

Re,


gagner merci pour l'aide
tout marche comme voulu



A+ AIGLON74