incubus20851
XLDnaute Occasionnel
Bonjour à toute et à tous !
Voici ma petite question du jour :
J'ai un fichier excel, qui cherche si je suis l'utilisateur "ARU346" il montre un onglet appelé "Envoi" et si je ne suis pas "ARU346" il masque cet onglet.
J'aimerais par le même principe si je suis l'utilisateur "ARU346" il laisse le classeur sans protection. Et si je ne suis pas "ARU346" alors il protège le classeur à l'ouverture du fichier mais sans mot de passe
Voici mon code :
Quand j'ouvre le classeur il est toujours protégé
Est-ce que j'ai mal placer le texte en rouge ? Que dois-je rajouter ?
Merci beaucoup d'avances pour vos réponses
A bientôt
Voici ma petite question du jour :
J'ai un fichier excel, qui cherche si je suis l'utilisateur "ARU346" il montre un onglet appelé "Envoi" et si je ne suis pas "ARU346" il masque cet onglet.
J'aimerais par le même principe si je suis l'utilisateur "ARU346" il laisse le classeur sans protection. Et si je ne suis pas "ARU346" alors il protège le classeur à l'ouverture du fichier mais sans mot de passe
Voici mon code :
Code:
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
Quand j'ouvre le classeur il est toujours protégé
Est-ce que j'ai mal placer le texte en rouge ? Que dois-je rajouter ?
Merci beaucoup d'avances pour vos réponses
A bientôt