Discussion :

[capi81]

Bonsoir le forum
J'ai un classeur que je souhaite mettre en mode partagé. Il sera utilisé par 10 personnes.
Je sais aussi qu'une macro peut fonctionner dans un classeur partagé mais avant il faut d'abord faire les macros avant d'activer le mode "classeur partagé".
Maintenant je souhaite réaliser une macro qui affiche uniquement la feuille dont le nom correspond au username..
J'ai essayé le code suivant :
[code]Private sub workbook_open ()
dim sh as worksheet
for each sh in worksheets
if sh.name<>environ("username") then
sh.visible =xlveryhidden
else
sh.visible = true
end if
next sh
end sub[\code]
Le message d'erreur est le suivant:" la methode visible de l'objet worksheet a échoué".
Merci de m'aider.

[boisgontierjacques]

Bonjour,

IL y a peut être un problème de majuscules/minuscules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub auto_open()
  On Error Resume Next
  For Each f In ActiveWorkbook.Sheets
     f.Visible = IIf(UCase(Environ("username")) = UCase(f.Name), True, xlVeryHidden)
  Next f
  If Err Then MsgBox "il n'y a aucune feuille!" & Environ("username")
End Sub

Autre façon de procéder (la 1ere feuille est une feuille d'Accueil) consiste à protéger les feuilles à la sauvegarde du classeur pour éviter que l'opérateur appuie sur la touche Maj pour empêcher la macro auto_open ou workbook_open d'être exécutée et ainsi de consulter la feuille d'un autre utilisateur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Workbook_Open()
  Sheets(Environ("username")).Visible = True
End Sub
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  For s = 2 To Sheets.Count ' on masque les feuilles
     Sheets(s).Visible = xlVeryHidden
  Next s
End Sub

Boisgontier

[Invité]

Bonjour,
Personnellement j'opterai pour un code plus près de l'original avec un page d'accueil! Car si on affiche le UserName il n'y a rien qui nous dit que la feuille existe bien pour tout les utilisateurs logués!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for each sh in worksheets
sh.visible =sh.name=environ("username") or sh.name= "Accueuil"
next sh

[capi81]

Bonsoir a tous
Merci pour vos contributions respectives.
Jacques: tes macros fonctionnent très bien et j'apprécie.
Dysorthographie: j'ai pris en compte votre proposition. Vous avez bien vu.
Suis satisfait..