Discussion :

[guigol]

Bonjour,

Je suis en train de modifier un fichier qui gère les pointages de mon équipe sur les projets sur lesquels ils travaillent
_____Un fichier par projet.
_____Certaines personnes de mon équipe, mais pas toutes, doivent renseigner les heures passées sur telle ou telle tache
_____chacun a son onglet pour pointer)

Je souhaiterais qu'au démarrage, seul l'onglet de la personne qui ouvre le fichier s'affiche. (a la fermeture, tous les onglets de pointage se masquent automatiquement)

J'ai donc récupéré un code pour obtenir le username windows et je le comparerai au nom renseigné dans l'onglet (a la main, à l'initialisation du fichier en début de projet).
Sauf que ce code ne fonctionne pas.
il bloque a Space$

"Erreur de compilation - Projet ou bibliothèque introuvable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
 
 
 
Sub getNetLogonID()
' Get logonID (WNetGetUser Lib "mpr.dll" must be declared).
Dim nSize As Long, rtn
Dim LanID$
nSize = 150
LanID$ = Space$(nSize)
rtn = WNetGetUser("", LanID$, nSize)
logonID$ = RTrim$(LanID$)
logonID$ = Left$(logonID$, Len(logonID$) - 1)
logonID$ = LCase$(logonID$)
 MsgBox "Network logonID is " & logonID & ".", 64
End Sub

Lorsque je copie/colle ce code dans un fichier vierge, cela fonctionne sans probleme.
Mais la, bug.

Vous savez d'ou ca vient? Je vous mets mon fichier ci-dessous.
FSE.xls

Par avance, merci

[parmi]

Bonjour,

Essaie avec ceci
Nom = Environ("username")

[patricktoulon]

bonjour
met ca plutot dans le module "thisworkbook"

ca fait exactement ce que tu veux tout seul
et ca empêche même l'utilisateur de le faire manuellement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
Sh.Visible = False
Next
End Sub
Private Sub Workbook_Open()
Dim Sh As Worksheet
MsgBox " Bonjour " & Environ("username")
For Each Sh In ThisWorkbook.Sheets
Sh.Visible = False
If Sh.Name = Environ("username") Then Sh.Visible = True
Next
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> Environ("username") Then
MsgBox "vous n'avez pas le droit de modifier cet onglet "
Sh.Visible = False
End Sub

correction on a pas la possibilité de rendre tout les sheets invibles il faut au moins en laisser un alors

toujour dans le module "thisworkbook" met ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Workbook_Open()
Dim Sh As Worksheet
MsgBox " Bonjour " & Environ("username")
For Each Sh In ThisWorkbook.Sheets
If Sh.Name = Environ("username") Then
Sh.Visible = True
Else
Sh.Visible = False
End If
Next
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> Environ("username") Then
MsgBox "vous n'avez pas le droit de modifier cet onglet "
with Sheets (Environ("username"))
.Visible = True
.Activate
End With
Sh.Visible = False
End Sub

[mercatog]

Écriture condensée

Code :

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

1
2
3
For Each Sh In ThisWorkbook.Sheets
    Sh.Visible = Sh.Name = Environ("username")
Next Sh

ça suppose bien évidement qu'une feuille nommée par l'username existe.

[Invité]

j'ai repris ton code avec l'appi mas mes confrères ont raison avec Environ("username")!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub getNetLogonID()
' Get logonID (WNetGetUser Lib "mpr.dll" must be declared).
Dim nSize As Long, rtn
Dim LanID$
Dim S As Integer
For S = 2 To Sheets.Count 'tu ne peux pas masquer toutes les feuilles
                          'je te conseille un page d'accueil!
Sheets(S).Visible = False
Next
nSize = 150
LanID$ = Space$(nSize)
rtn = WNetGetUser("", LanID$, nSize)
logonID$ = RTrim$(LanID$)
logonID$ = Left$(logonID$, Len(logonID$) - 1)
logonID$ = LCase$(logonID$)
 MsgBox "Network logonID is " & logonID & ".", 64
 Sheets(logonID).Visible = True
End Sub