Il y a très longtemps, AV avait pondu ce type de procédure...;-)
Tu appelles cette procédure à partir de l'événement du ThisWorkbook
Private Sub Workbook_Open()
Call Pass
End Sub
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
Sur un réseau, il est aussi possible de former un groupe d'usagers et
leur donner des droits spécifiques sur un répertoire où seraient
entreposées
les fichiers à accès restrictif....Voir le gestionnaire du réseau
Il y a très longtemps, AV avait pondu ce type de procédure...;-)
Tu appelles cette procédure à partir de l'événement du ThisWorkbook
Private Sub Workbook_Open()
Call Pass
End Sub
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
Sur un réseau, il est aussi possible de former un groupe d'usagers et
leur donner des droits spécifiques sur un répertoire où seraient
entreposées
les fichiers à accès restrictif....Voir le gestionnaire du réseau
Il y a très longtemps, AV avait pondu ce type de procédure...;-)
Tu appelles cette procédure à partir de l'événement du ThisWorkbook
Private Sub Workbook_Open()
Call Pass
End Sub
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
Sur un réseau, il est aussi possible de former un groupe d'usagers et
leur donner des droits spécifiques sur un répertoire où seraient
entreposées
les fichiers à accès restrictif....Voir le gestionnaire du réseau
| Si je compprends bien, on trouve l'événement du ThisWorkbook quand on
crée
| une macro ?
Il y a les modules feuilles, Standard (où sont habituellement les macros)
et il y
a le composant "ThisWorkbook" . Si tu double-cliques sur ce dernier, tu
colles
le code suivant :
'------------------------
Private Sub Workbook_Open()
Call Pass
End Sub
'------------------------
Et dans un module Standard, la macro suivante :
Évidemment, tu devras modifier les nom "fifi"... et tous les
autres pour les noms des usagers et 10, 20 30, par leur
mots de passe respectif.
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
RE,
| Si je compprends bien, on trouve l'événement du ThisWorkbook quand on
crée
| une macro ?
Il y a les modules feuilles, Standard (où sont habituellement les macros)
et il y
a le composant "ThisWorkbook" . Si tu double-cliques sur ce dernier, tu
colles
le code suivant :
'------------------------
Private Sub Workbook_Open()
Call Pass
End Sub
'------------------------
Et dans un module Standard, la macro suivante :
Évidemment, tu devras modifier les nom "fifi"... et tous les
autres pour les noms des usagers et 10, 20 30, par leur
mots de passe respectif.
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
RE,
| Si je compprends bien, on trouve l'événement du ThisWorkbook quand on
crée
| une macro ?
Il y a les modules feuilles, Standard (où sont habituellement les macros)
et il y
a le composant "ThisWorkbook" . Si tu double-cliques sur ce dernier, tu
colles
le code suivant :
'------------------------
Private Sub Workbook_Open()
Call Pass
End Sub
'------------------------
Et dans un module Standard, la macro suivante :
Évidemment, tu devras modifier les nom "fifi"... et tous les
autres pour les noms des usagers et 10, 20 30, par leur
mots de passe respectif.
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
RE,
| Si je compprends bien, on trouve l'événement du ThisWorkbook quand on
crée
| une macro ?
Il y a les modules feuilles, Standard (où sont habituellement les macros)
et il y
a le composant "ThisWorkbook" . Si tu double-cliques sur ce dernier, tu
colles
le code suivant :
'------------------------
Private Sub Workbook_Open()
Call Pass
End Sub
'------------------------
Et dans un module Standard, la macro suivante :
Évidemment, tu devras modifier les nom "fifi"... et tous les
autres pour les noms des usagers et 10, 20 30, par leur
mots de passe respectif.
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
RE,
| Si je compprends bien, on trouve l'événement du ThisWorkbook quand on
crée
| une macro ?
Il y a les modules feuilles, Standard (où sont habituellement les macros)
et il y
a le composant "ThisWorkbook" . Si tu double-cliques sur ce dernier, tu
colles
le code suivant :
'------------------------
Private Sub Workbook_Open()
Call Pass
End Sub
'------------------------
Et dans un module Standard, la macro suivante :
Évidemment, tu devras modifier les nom "fifi"... et tous les
autres pour les noms des usagers et 10, 20 30, par leur
mots de passe respectif.
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
RE,
| Si je compprends bien, on trouve l'événement du ThisWorkbook quand on
crée
| une macro ?
Il y a les modules feuilles, Standard (où sont habituellement les macros)
et il y
a le composant "ThisWorkbook" . Si tu double-cliques sur ce dernier, tu
colles
le code suivant :
'------------------------
Private Sub Workbook_Open()
Call Pass
End Sub
'------------------------
Et dans un module Standard, la macro suivante :
Évidemment, tu devras modifier les nom "fifi"... et tous les
autres pour les noms des usagers et 10, 20 30, par leur
mots de passe respectif.
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
RE,
| Si je compprends bien, on trouve l'événement du ThisWorkbook quand on
crée
| une macro ?
Il y a les modules feuilles, Standard (où sont habituellement les macros)
et il y
a le composant "ThisWorkbook" . Si tu double-cliques sur ce dernier, tu
colles
le code suivant :
'------------------------
Private Sub Workbook_Open()
Call Pass
End Sub
'------------------------
Et dans un module Standard, la macro suivante :
Évidemment, tu devras modifier les nom "fifi"... et tous les
autres pour les noms des usagers et 10, 20 30, par leur
mots de passe respectif.
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
RE,
| Si je compprends bien, on trouve l'événement du ThisWorkbook quand on
crée
| une macro ?
Il y a les modules feuilles, Standard (où sont habituellement les macros)
et il y
a le composant "ThisWorkbook" . Si tu double-cliques sur ce dernier, tu
colles
le code suivant :
'------------------------
Private Sub Workbook_Open()
Call Pass
End Sub
'------------------------
Et dans un module Standard, la macro suivante :
Évidemment, tu devras modifier les nom "fifi"... et tous les
autres pour les noms des usagers et 10, 20 30, par leur
mots de passe respectif.
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
RE,
| Si je compprends bien, on trouve l'événement du ThisWorkbook quand on
crée
| une macro ?
Il y a les modules feuilles, Standard (où sont habituellement les macros)
et il y
a le composant "ThisWorkbook" . Si tu double-cliques sur ce dernier, tu
colles
le code suivant :
'------------------------
Private Sub Workbook_Open()
Call Pass
End Sub
'------------------------
Et dans un module Standard, la macro suivante :
Évidemment, tu devras modifier les nom "fifi"... et tous les
autres pour les noms des usagers et 10, 20 30, par leur
mots de passe respectif.
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
RE,
| Si je compprends bien, on trouve l'événement du ThisWorkbook quand on
crée
| une macro ?
Il y a les modules feuilles, Standard (où sont habituellement les macros)
et il y
a le composant "ThisWorkbook" . Si tu double-cliques sur ce dernier, tu
colles
le code suivant :
'------------------------
Private Sub Workbook_Open()
Call Pass
End Sub
'------------------------
Et dans un module Standard, la macro suivante :
Évidemment, tu devras modifier les nom "fifi"... et tous les
autres pour les noms des usagers et 10, 20 30, par leur
mots de passe respectif.
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
RE,
| Si je compprends bien, on trouve l'événement du ThisWorkbook quand on
crée
| une macro ?
Il y a les modules feuilles, Standard (où sont habituellement les macros)
et il y
a le composant "ThisWorkbook" . Si tu double-cliques sur ce dernier, tu
colles
le code suivant :
'------------------------
Private Sub Workbook_Open()
Call Pass
End Sub
'------------------------
Et dans un module Standard, la macro suivante :
Évidemment, tu devras modifier les nom "fifi"... et tous les
autres pour les noms des usagers et 10, 20 30, par leur
mots de passe respectif.
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
RE,
| Si je compprends bien, on trouve l'événement du ThisWorkbook quand on
crée
| une macro ?
Il y a les modules feuilles, Standard (où sont habituellement les macros)
et il y
a le composant "ThisWorkbook" . Si tu double-cliques sur ce dernier, tu
colles
le code suivant :
'------------------------
Private Sub Workbook_Open()
Call Pass
End Sub
'------------------------
Et dans un module Standard, la macro suivante :
Évidemment, tu devras modifier les nom "fifi"... et tous les
autres pour les noms des usagers et 10, 20 30, par leur
mots de passe respectif.
'-----------------------------
Sub pass() 'AV
Le_login = Array("fifi", "riri", "loulou", "zaza")
Le_pass = Array("10", "20", "30", "40")
mess1 = InputBox("Entrez votre login", "")
If mess1 = "" Then Exit Sub
If IsError(Application.Match(mess1, Le_login, 0)) Then
MsgBox "Ce login n'est pas reconnu !": Exit Sub
End If
mess2 = InputBox("Entrez votre mot de passe", "")
If mess2 = "" Then Exit Sub
If mess2 <> Application.Index(Le_pass, Application.Match(mess1, Le_login,
0)) Then
MsgBox "Mot de passe non valide !": Exit Sub
End If
'suite de l'accès autorisé....
End Sub
'-----------------------------
RE,
dans la fenêtre de l'éditeur de code, tu affiches
la fenêtre "Explorateur de projets" par la commande
du même nom dans le menu "Affichage"
Tu devrais voir le nom de ton classeur et si tu double-cliques
dessus, tous les objets appartenant à ton classeur s'y trouve...
y compris le ThisWorkbook.
P.S- Si tu en es à tes premiers pas en VBA, ce serait une bonne
idée de te procurer un livre sur le sujet ... ou un emprunt à une
bonne bibliothèque sur le sujet !
dans la fenêtre de l'éditeur de code, tu affiches
la fenêtre "Explorateur de projets" par la commande
du même nom dans le menu "Affichage"
Tu devrais voir le nom de ton classeur et si tu double-cliques
dessus, tous les objets appartenant à ton classeur s'y trouve...
y compris le ThisWorkbook.
P.S- Si tu en es à tes premiers pas en VBA, ce serait une bonne
idée de te procurer un livre sur le sujet ... ou un emprunt à une
bonne bibliothèque sur le sujet !
dans la fenêtre de l'éditeur de code, tu affiches
la fenêtre "Explorateur de projets" par la commande
du même nom dans le menu "Affichage"
Tu devrais voir le nom de ton classeur et si tu double-cliques
dessus, tous les objets appartenant à ton classeur s'y trouve...
y compris le ThisWorkbook.
P.S- Si tu en es à tes premiers pas en VBA, ce serait une bonne
idée de te procurer un livre sur le sujet ... ou un emprunt à une
bonne bibliothèque sur le sujet !