Dan,
Y a quelque chose que je ne comprends pas...
Tout marchait vendredi et la j ai un message d erreur
L erreur vient au niveau de ActiveWindow.SelectedSheets.Visible = False
Mais je ne comprends pas d ou vient l erreur de syntaxe
Ci dessous le code:
Sub Aut
pen()
ActiveWindow.DisplayWorkbookTabs = False
For Each sh In Sheets
sh.Visible = True
Next sh
Range("A1").Select
Message
End Sub
Sub Message()
Dim Message, Title, Default, MyValue
' Définit le message.
Message = "Enter your password"
Title = "Password" ' Définit le titre.
Default = "" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
Select Case MyValue
Case Is = "C3": Mac1
Case Is = "C3 Pluriel": Mac2
Case Is = "Berlingo": Mac3
Case Is = "Citroen": Mac4
Case Is = "Admin": Mac5
Case Else: Wrongpassword
End Select
End Sub
Sub Wrongpassword()
msg = "Wrong password" ' Définit le message.
Style = vbOKOnly + vbInformation ' Définit les boutons.
Title = "Password" ' Définit les titres.
Answer = MsgBox(msg, Style, Title)
ActiveWorkbook.Close SaveChanges:=False
End Sub
Sub Mac1()
'
' Macro2 Macro
' Macro enregistrée le 17/10/03 par Lionel Layerle
'
Sheets(Array("MARK", "Forhandlerbud", "November", "PS", "RH", "RF")).Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWindow.DisplayWorkbookTabs = True
End
End Sub
Sub Mac2()
'
' Macro3 Macro
' Macro enregistrée le 17/10/03 par Lionel Layerle
'
Sheets(Array("MARK", "Forhandlerbud", "November", "HE", "RH", "RF")).Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWindow.DisplayWorkbookTabs = True
End
End Sub
Sub Mac3()
'
' Macro4 Macro
' Macro enregistrée le 17/10/03 par Lionel Layerle
'
Sheets(Array("MARK", "Forhandlerbud", "November", "HE", "PS", "RF")).Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWindow.DisplayWorkbookTabs = True
End
End Sub
Sub Mac4()
'
' Macro5 Macro
' Macro enregistrée le 17/10/03 par Lionel Layerle
'
Sheets(Array("MARK", "Forhandlerbud", "November", "HE", "PS", "RH")).Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWindow.DisplayWorkbookTabs = True
End
End Sub
Sub Mac5()
'
' Macro6 Macro
' Macro enregistrée le 17/10/03 par Lionel Layerle
'
For Each sh In Sheets
sh.Visible = True
Next sh
Range("A1").Select
ActiveWindow.DisplayWorkbookTabs = True
End
End Sub
ActiveWorkbook.Save
End Sub
L erreur vient au niveau de ActiveWindow.SelectedSheets.Visible = False