Private Sub Workbook_Open()
Application.AskToUpdateLinks = False
'controle du nom de l'utilisateur de la session windows
If Environ("UserName") = "ARU346" Then Sheets("Envoi").Visible = True
'nom utilisateur office
If Application.UserName = "ARU346" Then Sheets("Envoi").Visible = True
'controle du nom de l'utilisateur de la session windows
If Environ("UserName") <> "ARU346" Then Sheets("Envoi").Visible = False
'nom utilisateur office
If Application.UserName <> "ARU346" Then Sheets("Envoi").Visible = False
[COLOR="Red"]For Each feuil In Application.Sheets
feuil.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Next feuil[/COLOR]
End Sub