bonjour les g=E9nies d'excel, j'ai besoin de votre aide:
j'ai fait un travail sur excel et je veux qu'=E0 l'ouverture du fichier
un message de bien venu s'afffiche avec bonjour par exemple, et il
demande de s'identifier =E0 partir d'une liste d=E9roulante, une fois
identifier il demande d'introduir le mot de passe et enfin il
enregistre qui =E0 acc=E9d=E9 au programme, =E0 quel heur et quelle date
aussi, je demande peut =EAtre trop mais c'est important. merci d'avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
-Une feuille Admin contient les mots de passe et les noms des Users -Une feuille Espion contient les heures de connexion
http://cjoint.com/?lDu13eIOiO
Mot passe Nom aaa Admin bbb Ceuzin ccc Balu
Private Sub Workbook_Open() F_motPasse.Show End Sub
Private Sub B_ok_Click() NomUser = Application.VLookup(Me.MotPasse, Range("motPasse"), 2, False) If Not IsError(NomUser) Then Sheets(NomUser).Visible = True HeureConnexion = Now Unload Me Else MsgBox "Erreur MP" End If 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 Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = NomUser Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = HeureConnexion Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Now End Sub
Cordialement JB
bonjour les génies d'excel, j'ai besoin de votre aide: j'ai fait un travail sur excel et je veux qu'à l'ouverture du fichier un message de bien venu s'afffiche avec bonjour par exemple, et il demande de s'identifier à partir d'une liste déroulante, une fois identifier il demande d'introduir le mot de passe et enfin il enregistre qui à accédé au programme, à quel heur et quelle date aussi, je demande peut être trop mais c'est important. merci d'avance.
Bonsoir,
-Une feuille Admin contient les mots de passe et les noms des Users
-Une feuille Espion contient les heures de connexion
http://cjoint.com/?lDu13eIOiO
Mot passe Nom
aaa Admin
bbb Ceuzin
ccc Balu
Private Sub Workbook_Open()
F_motPasse.Show
End Sub
Private Sub B_ok_Click()
NomUser = Application.VLookup(Me.MotPasse, Range("motPasse"), 2,
False)
If Not IsError(NomUser) Then
Sheets(NomUser).Visible = True
HeureConnexion = Now
Unload Me
Else
MsgBox "Erreur MP"
End If
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
Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = NomUser
Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = HeureConnexion
Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Now
End Sub
Cordialement JB
bonjour les génies d'excel, j'ai besoin de votre aide:
j'ai fait un travail sur excel et je veux qu'à l'ouverture du fichier
un message de bien venu s'afffiche avec bonjour par exemple, et il
demande de s'identifier à partir d'une liste déroulante, une fois
identifier il demande d'introduir le mot de passe et enfin il
enregistre qui à accédé au programme, à quel heur et quelle date
aussi, je demande peut être trop mais c'est important. merci d'avance.
-Une feuille Admin contient les mots de passe et les noms des Users -Une feuille Espion contient les heures de connexion
http://cjoint.com/?lDu13eIOiO
Mot passe Nom aaa Admin bbb Ceuzin ccc Balu
Private Sub Workbook_Open() F_motPasse.Show End Sub
Private Sub B_ok_Click() NomUser = Application.VLookup(Me.MotPasse, Range("motPasse"), 2, False) If Not IsError(NomUser) Then Sheets(NomUser).Visible = True HeureConnexion = Now Unload Me Else MsgBox "Erreur MP" End If 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 Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = NomUser Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = HeureConnexion Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Now End Sub
Cordialement JB
bonjour les génies d'excel, j'ai besoin de votre aide: j'ai fait un travail sur excel et je veux qu'à l'ouverture du fichier un message de bien venu s'afffiche avec bonjour par exemple, et il demande de s'identifier à partir d'une liste déroulante, une fois identifier il demande d'introduir le mot de passe et enfin il enregistre qui à accédé au programme, à quel heur et quelle date aussi, je demande peut être trop mais c'est important. merci d'avance.
lSteph
Bonsoir JB,
Si tu me permets un compliment et il semble que cela devrait venir à l'idée de tous ceux qui se réjouissent d'un bon usage de cjoint.com mettre le code qui lui va rester et sera utile aux futurs consultateurs de ta réponse une fois le cjoint disparu est une très bonne habitude.
@+
Stéphane
Bonsoir,
-Une feuille Admin contient les mots de passe et les noms des Users -Une feuille Espion contient les heures de connexion
http://cjoint.com/?lDu13eIOiO
Mot passe Nom aaa Admin bbb Ceuzin ccc Balu
Private Sub Workbook_Open() F_motPasse.Show End Sub
Private Sub B_ok_Click() NomUser = Application.VLookup(Me.MotPasse, Range("motPasse"), 2, False) If Not IsError(NomUser) Then Sheets(NomUser).Visible = True HeureConnexion = Now Unload Me Else MsgBox "Erreur MP" End If 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 Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = NomUser Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = HeureConnexion Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Now End Sub
Cordialement JB
bonjour les génies d'excel, j'ai besoin de votre aide: j'ai fait un travail sur excel et je veux qu'à l'ouverture du fichier un message de bien venu s'afffiche avec bonjour par exemple, et il demande de s'identifier à partir d'une liste déroulante, une fois identifier il demande d'introduir le mot de passe et enfin il enregistre qui à accédé au programme, à quel heur et quelle date aussi, je demande peut être trop mais c'est important. merci d'avance.
-- - -
Bonsoir JB,
Si tu me permets un compliment et il semble que cela devrait venir à
l'idée de tous ceux qui se réjouissent d'un bon usage de cjoint.com
mettre le code qui lui va rester et sera utile aux futurs consultateurs
de ta réponse une fois le cjoint disparu est une très bonne habitude.
@+
Stéphane
Bonsoir,
-Une feuille Admin contient les mots de passe et les noms des Users
-Une feuille Espion contient les heures de connexion
http://cjoint.com/?lDu13eIOiO
Mot passe Nom
aaa Admin
bbb Ceuzin
ccc Balu
Private Sub Workbook_Open()
F_motPasse.Show
End Sub
Private Sub B_ok_Click()
NomUser = Application.VLookup(Me.MotPasse, Range("motPasse"), 2,
False)
If Not IsError(NomUser) Then
Sheets(NomUser).Visible = True
HeureConnexion = Now
Unload Me
Else
MsgBox "Erreur MP"
End If
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
Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = NomUser
Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = HeureConnexion
Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Now
End Sub
Cordialement JB
bonjour les génies d'excel, j'ai besoin de votre aide:
j'ai fait un travail sur excel et je veux qu'à l'ouverture du fichier
un message de bien venu s'afffiche avec bonjour par exemple, et il
demande de s'identifier à partir d'une liste déroulante, une fois
identifier il demande d'introduir le mot de passe et enfin il
enregistre qui à accédé au programme, à quel heur et quelle date
aussi, je demande peut être trop mais c'est important. merci d'avance.
Si tu me permets un compliment et il semble que cela devrait venir à l'idée de tous ceux qui se réjouissent d'un bon usage de cjoint.com mettre le code qui lui va rester et sera utile aux futurs consultateurs de ta réponse une fois le cjoint disparu est une très bonne habitude.
@+
Stéphane
Bonsoir,
-Une feuille Admin contient les mots de passe et les noms des Users -Une feuille Espion contient les heures de connexion
http://cjoint.com/?lDu13eIOiO
Mot passe Nom aaa Admin bbb Ceuzin ccc Balu
Private Sub Workbook_Open() F_motPasse.Show End Sub
Private Sub B_ok_Click() NomUser = Application.VLookup(Me.MotPasse, Range("motPasse"), 2, False) If Not IsError(NomUser) Then Sheets(NomUser).Visible = True HeureConnexion = Now Unload Me Else MsgBox "Erreur MP" End If 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 Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = NomUser Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = HeureConnexion Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Now End Sub
Cordialement JB
bonjour les génies d'excel, j'ai besoin de votre aide: j'ai fait un travail sur excel et je veux qu'à l'ouverture du fichier un message de bien venu s'afffiche avec bonjour par exemple, et il demande de s'identifier à partir d'une liste déroulante, une fois identifier il demande d'introduir le mot de passe et enfin il enregistre qui à accédé au programme, à quel heur et quelle date aussi, je demande peut être trop mais c'est important. merci d'avance.
-- - -
JB
Version allégée:
L'utilisateur ne s'authentifie pas(on s'appuie sur le nom d'utilisateur réseau)
-Une feuille Admin contient les noms des utilisateurs autorisés (champ nommé NomsUsers)
Noms utilisateurs autorisés jboisgon balu ceuzin
-Une feuille Espion contient les heures de connexion
Nom Heure connexion Fin jboisgon 30/11/2006 04:52:17 30/11/2006 04:53:00 balu 30/11/2006 04:55:00 30/11/2006 04:57:02
http://cjoint.com/?lEfoFpy0Wg
Private Sub Workbook_Open() NomUser = Environ("username") ' nom utilisateur réseau temp = Application.Match(NomUser, Range("NomsUsers"), 0) If Not IsError(temp) Then Sheets(NomUser).Visible = True HeureConnexion = Now If UCase(NomUser) = "JBOISGON" Then Sheets("Admin").Visible = True ' Administrateur Else MsgBox "Vous n'êtes pas autorisé!" End If Sheets("Admin").Visible = True ' pour test seulement 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 Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = NomUser Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = HeureConnexion Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Now End Sub
JB
bonjour les génies d'excel, j'ai besoin de votre aide: j'ai fait un travail sur excel et je veux qu'à l'ouverture du fichier un message de bien venu s'afffiche avec bonjour par exemple, et il demande de s'identifier à partir d'une liste déroulante, une fois identifier il demande d'introduir le mot de passe et enfin il enregistre qui à accédé au programme, à quel heur et quelle date aussi, je demande peut être trop mais c'est important. merci d'avance.
Version allégée:
L'utilisateur ne s'authentifie pas(on s'appuie sur le nom d'utilisateur
réseau)
-Une feuille Admin contient les noms des utilisateurs autorisés (champ
nommé NomsUsers)
Noms utilisateurs autorisés
jboisgon
balu
ceuzin
-Une feuille Espion contient les heures de connexion
Nom Heure connexion Fin
jboisgon 30/11/2006 04:52:17 30/11/2006 04:53:00
balu 30/11/2006 04:55:00 30/11/2006 04:57:02
http://cjoint.com/?lEfoFpy0Wg
Private Sub Workbook_Open()
NomUser = Environ("username") ' nom utilisateur réseau
temp = Application.Match(NomUser, Range("NomsUsers"), 0)
If Not IsError(temp) Then
Sheets(NomUser).Visible = True
HeureConnexion = Now
If UCase(NomUser) = "JBOISGON" Then Sheets("Admin").Visible = True
' Administrateur
Else
MsgBox "Vous n'êtes pas autorisé!"
End If
Sheets("Admin").Visible = True ' pour test seulement
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
Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = NomUser
Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = HeureConnexion
Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Now
End Sub
JB
bonjour les génies d'excel, j'ai besoin de votre aide:
j'ai fait un travail sur excel et je veux qu'à l'ouverture du fichier
un message de bien venu s'afffiche avec bonjour par exemple, et il
demande de s'identifier à partir d'une liste déroulante, une fois
identifier il demande d'introduir le mot de passe et enfin il
enregistre qui à accédé au programme, à quel heur et quelle date
aussi, je demande peut être trop mais c'est important. merci d'avance.
L'utilisateur ne s'authentifie pas(on s'appuie sur le nom d'utilisateur réseau)
-Une feuille Admin contient les noms des utilisateurs autorisés (champ nommé NomsUsers)
Noms utilisateurs autorisés jboisgon balu ceuzin
-Une feuille Espion contient les heures de connexion
Nom Heure connexion Fin jboisgon 30/11/2006 04:52:17 30/11/2006 04:53:00 balu 30/11/2006 04:55:00 30/11/2006 04:57:02
http://cjoint.com/?lEfoFpy0Wg
Private Sub Workbook_Open() NomUser = Environ("username") ' nom utilisateur réseau temp = Application.Match(NomUser, Range("NomsUsers"), 0) If Not IsError(temp) Then Sheets(NomUser).Visible = True HeureConnexion = Now If UCase(NomUser) = "JBOISGON" Then Sheets("Admin").Visible = True ' Administrateur Else MsgBox "Vous n'êtes pas autorisé!" End If Sheets("Admin").Visible = True ' pour test seulement 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 Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = NomUser Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = HeureConnexion Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Now End Sub
JB
bonjour les génies d'excel, j'ai besoin de votre aide: j'ai fait un travail sur excel et je veux qu'à l'ouverture du fichier un message de bien venu s'afffiche avec bonjour par exemple, et il demande de s'identifier à partir d'une liste déroulante, une fois identifier il demande d'introduir le mot de passe et enfin il enregistre qui à accédé au programme, à quel heur et quelle date aussi, je demande peut être trop mais c'est important. merci d'avance.
zimou
merci JB, ve vais essayé le code et je te rendrai a réponse. merci. cordialement Zimou
Bonsoir,
-Une feuille Admin contient les mots de passe et les noms des Users -Une feuille Espion contient les heures de connexion
http://cjoint.com/?lDu13eIOiO
Mot passe Nom aaa Admin bbb Ceuzin ccc Balu
Private Sub Workbook_Open() F_motPasse.Show End Sub
Private Sub B_ok_Click() NomUser = Application.VLookup(Me.MotPasse, Range("motPasse"), 2, False) If Not IsError(NomUser) Then Sheets(NomUser).Visible = True HeureConnexion = Now Unload Me Else MsgBox "Erreur MP" End If 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 Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = NomUser Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = HeureConnexion Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Now End Sub
Cordialement JB
bonjour les génies d'excel, j'ai besoin de votre aide: j'ai fait un travail sur excel et je veux qu'à l'ouverture du fichier un message de bien venu s'afffiche avec bonjour par exemple, et il demande de s'identifier à partir d'une liste déroulante, une fois identifier il demande d'introduir le mot de passe et enfin il enregistre qui à accédé au programme, à quel heur et quelle date aussi, je demande peut être trop mais c'est important. merci d'avance.
merci JB,
ve vais essayé le code et je te rendrai a réponse.
merci.
cordialement Zimou
Bonsoir,
-Une feuille Admin contient les mots de passe et les noms des Users
-Une feuille Espion contient les heures de connexion
http://cjoint.com/?lDu13eIOiO
Mot passe Nom
aaa Admin
bbb Ceuzin
ccc Balu
Private Sub Workbook_Open()
F_motPasse.Show
End Sub
Private Sub B_ok_Click()
NomUser = Application.VLookup(Me.MotPasse, Range("motPasse"), 2,
False)
If Not IsError(NomUser) Then
Sheets(NomUser).Visible = True
HeureConnexion = Now
Unload Me
Else
MsgBox "Erreur MP"
End If
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
Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = NomUser
Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = HeureConnexion
Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Now
End Sub
Cordialement JB
bonjour les génies d'excel, j'ai besoin de votre aide:
j'ai fait un travail sur excel et je veux qu'à l'ouverture du fichier
un message de bien venu s'afffiche avec bonjour par exemple, et il
demande de s'identifier à partir d'une liste déroulante, une fois
identifier il demande d'introduir le mot de passe et enfin il
enregistre qui à accédé au programme, à quel heur et quelle date
aussi, je demande peut être trop mais c'est important. merci d'avance.
merci JB, ve vais essayé le code et je te rendrai a réponse. merci. cordialement Zimou
Bonsoir,
-Une feuille Admin contient les mots de passe et les noms des Users -Une feuille Espion contient les heures de connexion
http://cjoint.com/?lDu13eIOiO
Mot passe Nom aaa Admin bbb Ceuzin ccc Balu
Private Sub Workbook_Open() F_motPasse.Show End Sub
Private Sub B_ok_Click() NomUser = Application.VLookup(Me.MotPasse, Range("motPasse"), 2, False) If Not IsError(NomUser) Then Sheets(NomUser).Visible = True HeureConnexion = Now Unload Me Else MsgBox "Erreur MP" End If 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 Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = NomUser Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = HeureConnexion Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Now End Sub
Cordialement JB
bonjour les génies d'excel, j'ai besoin de votre aide: j'ai fait un travail sur excel et je veux qu'à l'ouverture du fichier un message de bien venu s'afffiche avec bonjour par exemple, et il demande de s'identifier à partir d'une liste déroulante, une fois identifier il demande d'introduir le mot de passe et enfin il enregistre qui à accédé au programme, à quel heur et quelle date aussi, je demande peut être trop mais c'est important. merci d'avance.
