XL 2019 limiter l'accès des feuilles de mon classeur
- Initiateur de la discussion kouami40
- Date de début
Solution
@kouami40
lis d'abord mon post #112 précédent.
j'me suis rappelé qu'tu avais écrit ton post #91.
pour ces demandes (impression du bulletin d'un élève en pdf et autres),
ce serait mieux que tu crées un autre sujet, car celui-ci fait déjà 8 pages
et concerne surtout la gestion des droits d'accès (plus la sélection de
différentes feuilles à partir de la feuille "GoFX").
si tu crées un nouveau sujet, essaye de joindre un fichier qui soit d'une taille
raisonnable !beaucoup moins de feuilles, et de taille inférieure à 1 Mo,
afin que tu puisses joindre ton classeur Excel sans devoir passer par un site
de partage de fichiers !
bonne chance pour la suite de ton projet !et dis à tes élèves que...
kouami40
XLDnaute Junior
Bonsoir monsieur soan
Je vous ais envoyé le lien par Google Drive je veux aussi un code VBA pour date d'expiration je vous remercie et encore merci d'avance
kouami40
XLDnaute Junior
Si vous pouvez ajouter aussi la création des et les comptes vont se loger dans la gestion d'accès cela me ferait vraiment plaisir merci et j'attends la suite kouami40
kouami40
XLDnaute Junior
J'ai créé un compte pour voir la différence d'accès par compte zézé/ de tu verras que lui n'accède qu'à la page accueil pour se connecter j'ai réussi à gérer le côté accès des feuilles mais si vous pouvez améliorer et rendre le fichier professionnel cela me ferait très plaisir merci toujours j'attends la suite kouami40
Bonjour kouami40,
désolé, mais hier j'ai été débordé, et ça va aussi être le cas aujourd'hui.
quand j'ai ouvert ton fichier, connexion avec admin/admin : ok ;
mais j'peux pas rentrer dans l'code VBA : faut un mot d'passe
qui n'est pas admin ; c'est un autre, mais lequel
soan
désolé, mais hier j'ai été débordé, et ça va aussi être le cas aujourd'hui.
quand j'ai ouvert ton fichier, connexion avec admin/admin : ok ;
mais j'peux pas rentrer dans l'code VBA : faut un mot d'passe
qui n'est pas admin ; c'est un autre, mais lequel
soan
Dernière édition:
kouami40
XLDnaute Junior
Bonjour monsieur soanBonjour kouami40,
désolé, mais hier j'ai été débordé, et ça va aussi être le cas aujourd'hui.
quand j'ai ouvert ton fichier, connexion avec admin/admin : ok ;
mais j'peux pas rentrer dans l'code VBA : faut un mot d'passe
qui n'est pas admin ; c'est un autre, mais lequel
soan
c'est vrai j'avais oublié mes excuses c'est " tarasco" le code VBA encore merci d'avance
Bonjour kouami,
lien du fichier : https://mon-partage.fr/f/lc6yQNJV/
ouvre le fichier ; il y a la boîte de dialogue "Identification", et sans rien faire,
tu peux déjà voir qu'il y a une seule feuille affichée : la feuille "Accueil" ;
l'affichage qui est en arrière-plan est parfois un peu « capricieux » :
parfois c'est tout blanc et avec G et 8, comme ici :
parfois y'a seulement G et pas 8 ; parfois on voit toute la page Accueil ; je crois que
c'est juste une histoire de temporisation : ça pas eu l'temps d'afficher toute la page
Accueil à cause de la boîte de dialogue ; ne t'en préoccupe pas : ça ne gêne pas le
fonctionnement normal du classeur Excel, et l'affichage sera correct sitôt après
avoir validé la boîte de dialogue ; si ça t'ennuie, dis-le moi, et je rajouterai un
délai avant affichage de la boîte de dialogue, qui permettra sans doute que
la page d'Accueil s'affiche complètement (mais peut-être aussi que tu préfères
que ça soit comme sur l'image, c'est pourquoi je n'ai pas mis le délai).
------------------------------------------------------------------------------------------
pour te connecter, ce sera plus rapide en utilisant la touche TAB (tabulation)
pour passer d'un champ à l'autre : Utilisateur : admin ; TAB ; Mot de passe :
admin ; TAB ; note que ça va sur le bouton Valider alors qu'avant, ça allait
sur le bouton Fermer ; comme le bon bouton Valider est déjà sélectionné,
appuie sur la touche Entrée ➯ tu as la page "Accueil" complète, et aucune
autre feuille ; rappel : la touche TAB est juste à gauche de la touche « A ».
------------------------------------------------------------------------------------------
Alt F8 ➯ fenêtre "Macro" ; fais défiler tout en bas ; essaye dans cet ordre :
ShowSpé ; MaskSpé ; ShowAll ; MaskAll ; refais ShowAll ; même si tu ne
fais pas de nouveau MaskSpé ou MaskAll, toutes les feuilles, sauf Accueil,
seront de nouveau masquées si tu te déconnectes (j'parle de ton compte
admin, pas d'la prise de courant !
) ; ou si tu fermes le classeur
(même sans t'être déconnecté) ; et si y'a une coupure de courant qui
fait que les feuilles n'ont pas toutes été masquées, ce job sera fait à
la prochaine ouverture du fichier : masquage de toutes les feuilles.
------------------------------------------------------------------------------------------
feuille "Gestion des accès" : j'ai supprimé les 3 lignes 6 à 8 de "Accueil" ;
"Gestion des accès" ; et "BOUTONS COMMANDE" ; je pensais que
c'était possible de se passer des infos de E4:E1386, mais non : c'est
obligatoire, à cause du système de détection des mots de passe
via la formule en B5 ; donc il faut absolument le laisser !
------------------------------------------------------------------------------------------
regarde le code VBA de ThisWorkbook et Module1.
soan
lien du fichier : https://mon-partage.fr/f/lc6yQNJV/
ouvre le fichier ; il y a la boîte de dialogue "Identification", et sans rien faire,
tu peux déjà voir qu'il y a une seule feuille affichée : la feuille "Accueil" ;
l'affichage qui est en arrière-plan est parfois un peu « capricieux » :
parfois c'est tout blanc et avec G et 8, comme ici :
parfois y'a seulement G et pas 8 ; parfois on voit toute la page Accueil ; je crois que
c'est juste une histoire de temporisation : ça pas eu l'temps d'afficher toute la page
Accueil à cause de la boîte de dialogue ; ne t'en préoccupe pas : ça ne gêne pas le
fonctionnement normal du classeur Excel, et l'affichage sera correct sitôt après
avoir validé la boîte de dialogue ; si ça t'ennuie, dis-le moi, et je rajouterai un
délai avant affichage de la boîte de dialogue, qui permettra sans doute que
la page d'Accueil s'affiche complètement (mais peut-être aussi que tu préfères
que ça soit comme sur l'image, c'est pourquoi je n'ai pas mis le délai).
------------------------------------------------------------------------------------------
pour te connecter, ce sera plus rapide en utilisant la touche TAB (tabulation)
pour passer d'un champ à l'autre : Utilisateur : admin ; TAB ; Mot de passe :
admin ; TAB ; note que ça va sur le bouton Valider alors qu'avant, ça allait
sur le bouton Fermer ; comme le bon bouton Valider est déjà sélectionné,
appuie sur la touche Entrée ➯ tu as la page "Accueil" complète, et aucune
autre feuille ; rappel : la touche TAB est juste à gauche de la touche « A ».
------------------------------------------------------------------------------------------
Alt F8 ➯ fenêtre "Macro" ; fais défiler tout en bas ; essaye dans cet ordre :
ShowSpé ; MaskSpé ; ShowAll ; MaskAll ; refais ShowAll ; même si tu ne
fais pas de nouveau MaskSpé ou MaskAll, toutes les feuilles, sauf Accueil,
seront de nouveau masquées si tu te déconnectes (j'parle de ton compte
admin, pas d'la prise de courant !
) ; ou si tu fermes le classeur(même sans t'être déconnecté) ; et si y'a une coupure de courant qui
fait que les feuilles n'ont pas toutes été masquées, ce job sera fait à
la prochaine ouverture du fichier : masquage de toutes les feuilles.
------------------------------------------------------------------------------------------
feuille "Gestion des accès" : j'ai supprimé les 3 lignes 6 à 8 de "Accueil" ;
"Gestion des accès" ; et "BOUTONS COMMANDE" ; je pensais que
c'était possible de se passer des infos de E4:E1386, mais non : c'est
obligatoire, à cause du système de détection des mots de passe
via la formule en B5 ; donc il faut absolument le laisser !
------------------------------------------------------------------------------------------
regarde le code VBA de ThisWorkbook et Module1.
soan
kouami40
XLDnaute Junior
bonjour monsieur soan,Bonjour kouami,
lien du fichier : https://mon-partage.fr/f/lc6yQNJV/
ouvre le fichier ; il y a la boîte de dialogue "Identification", et sans rien faire,
tu peux déjà voir qu'il y a une seule feuille affichée : la feuille "Accueil" ;
l'affichage qui est en arrière-plan est parfois un peu « capricieux » :
parfois c'est tout blanc et avec G et 8, comme ici :
Regarde la pièce jointe 1084612
parfois y'a seulement G et pas 8 ; parfois on voit toute la page Accueil ; je crois que
c'est juste une histoire de temporisation : ça pas eu l'temps d'afficher toute la page
Accueil à cause de la boîte de dialogue ; ne t'en préoccupe pas : ça ne gêne pas le
fonctionnement normal du classeur Excel, et l'affichage sera correct sitôt après
avoir validé la boîte de dialogue ; si ça t'ennuie, dis-le moi, et je rajouterai un
délai avant affichage de la boîte de dialogue, qui permettra sans doute que
la page d'Accueil s'affiche complètement (mais peut-être aussi que tu préfères
que ça soit comme sur l'image, c'est pourquoi je n'ai pas mis le délai).
------------------------------------------------------------------------------------------
pour te connecter, ce sera plus rapide en utilisant la touche TAB (tabulation)
pour passer d'un champ à l'autre : Utilisateur : admin ; TAB ; Mot de passe :
admin ; TAB ; note que ça va sur le bouton Valider alors qu'avant, ça allait
sur le bouton Fermer ; comme le bon bouton Valider est déjà sélectionné,
appuie sur la touche Entrée ➯ tu as la page "Accueil" complète, et aucune
autre feuille ; rappel : la touche TAB est juste à gauche de la touche « A ».
------------------------------------------------------------------------------------------
Alt F8 ➯ fenêtre "Macro" ; fais défiler tout en bas ; essaye dans cet ordre :
ShowSpé ; MaskSpé ; ShowAll ; MaskAll ; refais ShowAll ; même si tu ne
fais pas de nouveau MaskSpé ou MaskAll, toutes les feuilles, sauf Accueil,
seront de nouveau masquées si tu te déconnectes (j'parle de ton compte
admin, pas d'la prise de courant !
(même sans t'être déconnecté) ; et si y'a une coupure de courant qui
fait que les feuilles n'ont pas toutes été masquées, ce job sera fait à
la prochaine ouverture du fichier : masquage de toutes les feuilles.
------------------------------------------------------------------------------------------
feuille "Gestion des accès" : j'ai supprimé les 3 lignes 6 à 8 de "Accueil" ;
"Gestion des accès" ; et "BOUTONS COMMANDE" ; je pensais que
c'était possible de se passer des infos de E4:E1386, mais non : c'est
obligatoire, à cause du système de détection des mots de passe
via la formule en B5 ; donc il faut absolument le laisser !
------------------------------------------------------------------------------------------
regarde le code VBA de ThisWorkbook et Module1.
soan
je ne sais comment vous remercie je vais visualiser le travail que vous avez abattu pour moi merci encore je vous reviens
Staple1600
XLDnaute Barbatruc
Bonjour le fil, kouami40, soan
[aparté]
Mon pauvre Excel
Un classeur avec près de 900 feuilles.
[/aparté]
•>soan (confinement oblige et pour me remettre du choc suite ouverture du classeur - cf aparté)
Une petite suggestion en passant (un all in one)
PS: Testé vite fait
[aparté]
Mon pauvre Excel
Un classeur avec près de 900 feuilles.
[/aparté]
•>soan (confinement oblige et pour me remettre du choc suite ouverture du classeur - cf aparté)
Une petite suggestion en passant (un all in one)
VB:
Sub Show_Hide_All()
a = "admin" 'pour test
If a = "admin" Then Job 1
End Sub
Private Sub Job(j As Byte)
Dim n&, i&: Application.ScreenUpdating = 0
n = IIf(j = 1, Worksheets.Count, 3)
For i = 2 To n
Worksheets(i).Visible = Not Worksheets(i).Visible
Next i
End Subkouami40
XLDnaute Junior
Bonjour le fil, kouami40, soan
[aparté]
Mon pauvre Excel
Un classeur avec près de 900 feuilles.
[/aparté]
•>soan (confinement oblige et pour me remettre du choc suite ouverture du classeur - cf aparté)
Une petite suggestion en passant (un all in one)
PS: Testé vite faitVB:Sub Show_Hide_All() a = "admin" 'pour test If a = "admin" Then Job 1 End Sub Private Sub Job(j As Byte) Dim n&, i&: Application.ScreenUpdating = 0 n = IIf(j = 1, Worksheets.Count, 3) For i = 2 To n Worksheets(i).Visible = Not Worksheets(i).Visible Next i End Sub
bonjour Staple1600
vraiment merci pour la proposition
le monsieur je ne comprends pas vraiment ce qu'il demande (Mr Staple1600) mais si vous trouvez bon, je suis partant car moi je suis pas trop fort c’est des tutos qui me fond
Staple1600
XLDnaute Barbatruc
Re
L'aparté du message précédent c'était de l'humour
Et le bout de code c'était juste une suggestion à l'attention de soan.
(Le code original de soan étant dans le classeur "contre-nature" déposé sur partage.fr)
PS: Moi je demande rien.
Et je me suis abstenu d'évoquer le fait que cette "protection" n'est qu'illusoire (mais ceci est un autre sujet)
L'aparté du message précédent c'était de l'humour
Et le bout de code c'était juste une suggestion à l'attention de soan.
(Le code original de soan étant dans le classeur "contre-nature" déposé sur partage.fr)
PS: Moi je demande rien.
Et je me suis abstenu d'évoquer le fait que cette "protection" n'est qu'illusoire (mais ceci est un autre sujet)
kouami40
XLDnaute Junior
Pièces jointes
kouami40
XLDnaute Junior
car je veux seule "admin" soit le suis a crée des comptes
Bonjour Staple, kouami,
dans ton post #25, tu as écrit : « Le code original de soan étant dans le classeur
"contre-nature" déposé sur partage.fr »
non, pas du tout : le fichier transmis fait 2 429 Ko ; et la taille maxi d'un fichier
joint sur le forum est de 1 Mo soit 1 024 Ko ; donc il n'est pas accepté :
c'est donc obligé de passer par un site de partage de fichiers.
(par exemple mon-partage.fr ou cjoint.com)
---------------------------------------------------------------------------------------
dans ton post #23, tu as donné un exemple de méthode « tout en un » ;
je connaissais déjà cette méthode, et c'est volontairement que je ne
l'ai pas utilisée dans le cas présent, pour ces 2 raisons :
1) comme c'est une inversion masquage / démasquage, j'ai crains que kouami
l'utilise en pensant masquer alors qu'il fait le contraire (ou inversement) ; bien
sûr, quand c'est pour toutes les feuilles du classeur, ça se voit aisément ; mais
quand c'est juste pour les 2 feuilles spéciales "Gestion des accès" et "Boutons
commande", c'est moins évident ; maintenant, si kouami est sûr de ne pas se
tromper, alors ok, qu'il utilise ce système d'inversion.
2) comme le masquage de toutes les feuilles est fait automatiquement à la
déconnexion du compte, ou lors de la fermeture du classeur, ou lors de son
ouverture ultérieure, je dirai que kouami n'a pas besoin d'utiliser les 2 subs
"MaskSpé" et "MaskAll" ; il n'a en fait besoin que des 2 subs "ShowSpé" et
"ShowAll" ; par contre, "MaskSpé" et "MaskAll" pourraient lui servir dans
le cas où il reçoit une visite imprévue, qu'il n'a pas envie de se déconnecter,
ni de fermer le classeur, mais qu'il n'a pas envie non plus que son visiteur
inattendu regarde par-dessus son épaule et risque de surprendre les plus
grands secrets décrits sur les mystérieuses feuilles spéciales ; on sait jamais,
hein, des fois que kouami y dessinerait la carte de l'île où il a enfoui son
trésor. (personne d'autre que lui doit pouvoir y retourner ! c'est sa tirelire à lui ! 
)
soan
dans ton post #25, tu as écrit : « Le code original de soan étant dans le classeur
"contre-nature" déposé sur partage.fr »
non, pas du tout : le fichier transmis fait 2 429 Ko ; et la taille maxi d'un fichier
joint sur le forum est de 1 Mo soit 1 024 Ko ; donc il n'est pas accepté :
c'est donc obligé de passer par un site de partage de fichiers.
(par exemple mon-partage.fr ou cjoint.com)
---------------------------------------------------------------------------------------
dans ton post #23, tu as donné un exemple de méthode « tout en un » ;
je connaissais déjà cette méthode, et c'est volontairement que je ne
l'ai pas utilisée dans le cas présent, pour ces 2 raisons :
1) comme c'est une inversion masquage / démasquage, j'ai crains que kouami
l'utilise en pensant masquer alors qu'il fait le contraire (ou inversement) ; bien
sûr, quand c'est pour toutes les feuilles du classeur, ça se voit aisément ; mais
quand c'est juste pour les 2 feuilles spéciales "Gestion des accès" et "Boutons
commande", c'est moins évident ; maintenant, si kouami est sûr de ne pas se
tromper, alors ok, qu'il utilise ce système d'inversion.
2) comme le masquage de toutes les feuilles est fait automatiquement à la
déconnexion du compte, ou lors de la fermeture du classeur, ou lors de son
ouverture ultérieure, je dirai que kouami n'a pas besoin d'utiliser les 2 subs
"MaskSpé" et "MaskAll" ; il n'a en fait besoin que des 2 subs "ShowSpé" et
"ShowAll" ; par contre, "MaskSpé" et "MaskAll" pourraient lui servir dans
le cas où il reçoit une visite imprévue, qu'il n'a pas envie de se déconnecter,
ni de fermer le classeur, mais qu'il n'a pas envie non plus que son visiteur
inattendu regarde par-dessus son épaule et risque de surprendre les plus
grands secrets décrits sur les mystérieuses feuilles spéciales ; on sait jamais,
hein, des fois que kouami y dessinerait la carte de l'île où il a enfoui son
trésor.
(personne d'autre que lui doit pouvoir y retourner ! c'est sa tirelire à lui ! )soan
@kouami40
j'ai bien compris que tu veux être le seul à pouvoir créer des comptes, en tant qu'admin ;
or c'est bien le cas, avec le fichier dont j'ai mis le lien dans mon post #21 (fichier déposé
sur mon-partage.fr) ; dans ce fichier, il n'y a pas de ligne "Gestion des accès" car j'avais
supprimé les 3 lignes 6 à 8 :
tu n'aurais pas dû rajouter la ligne "Gestion des accès", comme on le voit sur tes images 1 et 3 ;
ce n'était absolument pas nécessaire ! en effet, si tu te déconnectes de ton compte "admin",
l'utilisateur est "Invité" ; s'il se connecte, son login est "Invité" donc les 4 subs qui te sont
réservées seront inopérantes pour lui : ça quitte la sub lancée sans avoir rien fait du tout !
toutes les feuilles masquées restent masquées, puisque ShowSpé() et ShowAll() sont pour
lui inopérantes ; si l'utilisateur zeze se connecte, son login est "zeze", différent de "admin",
donc pour lui : même chose que pour "Invité" ; c'est volontairement que je ne t'en ai pas
parlé dans mon post #21, car je voulais que tu le découvres par toi-même lors des tests ;
alors maintenant, ouvre de nouveau le classeur Excel du post #21, tel qu'il est, sans y
faire de changements et sans rajouter la ligne "Gestion des accès" ; refais des tests pour
vérifier ce que je viens de te décrire ici, puis donne-moi ton avis.
----------------------------------------------------------------------------------------------------
en A3, il y a "Utilisateur loggé" ; tu as remarqué le petit triangle rouge du coin haut droit,
et tu as lu le commentaire de cette cellule, n'est-ce pas, puisque tu as changé "soan:" en
"kouami:" ; j'pensais pas que ce commentaire allait t'plaire autant puisque tu l'as gardé,
lollll ! c'est vrai qu'j'ai mis bien longtemps à écrire ce long commentaire, mais j'étais sûr
que tu allais le supprimer après l'avoir lu. mais si tu tiens à le garder, pourquoi pas ? en plus
que de toute façon, tu es le seul à pouvoir accéder à tes 2 feuilles spéciales ! même le personnel de la
Direction ISROD n'a pas ce privilège ! pas même un quelconque prof ; et encore moins un invité !
CQFD (= Ce Qu'il Fallait Démontrer ; j'précise pour que tu évites de chercher un terme informatique !)
soan
j'ai bien compris que tu veux être le seul à pouvoir créer des comptes, en tant qu'admin ;
or c'est bien le cas, avec le fichier dont j'ai mis le lien dans mon post #21 (fichier déposé
sur mon-partage.fr) ; dans ce fichier, il n'y a pas de ligne "Gestion des accès" car j'avais
supprimé les 3 lignes 6 à 8 :
tu n'aurais pas dû rajouter la ligne "Gestion des accès", comme on le voit sur tes images 1 et 3 ;
ce n'était absolument pas nécessaire ! en effet, si tu te déconnectes de ton compte "admin",
l'utilisateur est "Invité" ; s'il se connecte, son login est "Invité" donc les 4 subs qui te sont
réservées seront inopérantes pour lui : ça quitte la sub lancée sans avoir rien fait du tout !
toutes les feuilles masquées restent masquées, puisque ShowSpé() et ShowAll() sont pour
lui inopérantes ; si l'utilisateur zeze se connecte, son login est "zeze", différent de "admin",
donc pour lui : même chose que pour "Invité" ; c'est volontairement que je ne t'en ai pas
parlé dans mon post #21, car je voulais que tu le découvres par toi-même lors des tests ;
alors maintenant, ouvre de nouveau le classeur Excel du post #21, tel qu'il est, sans y
faire de changements et sans rajouter la ligne "Gestion des accès" ; refais des tests pour
vérifier ce que je viens de te décrire ici, puis donne-moi ton avis.
----------------------------------------------------------------------------------------------------
en A3, il y a "Utilisateur loggé" ; tu as remarqué le petit triangle rouge du coin haut droit,
et tu as lu le commentaire de cette cellule, n'est-ce pas, puisque tu as changé "soan:" en
"kouami:" ; j'pensais pas que ce commentaire allait t'plaire autant puisque tu l'as gardé,
lollll ! c'est vrai qu'j'ai mis bien longtemps à écrire ce long commentaire, mais j'étais sûr
que tu allais le supprimer après l'avoir lu.
mais si tu tiens à le garder, pourquoi pas ? en plusque de toute façon, tu es le seul à pouvoir accéder à tes 2 feuilles spéciales !
même le personnel de laDirection ISROD n'a pas ce privilège ! pas même un quelconque prof ; et encore moins un invité !
CQFD (= Ce Qu'il Fallait Démontrer ; j'précise pour que tu évites de chercher un terme informatique !)
soan
Dernière édition:
Staple1600
XLDnaute Barbatruc
Bonjour le fil, kouami40, soan
=>soan
Précisions
je parle de classeur "contre-nature" parce que le classeur possède 1000 feuilles !!!
Ce n'est que mon opinion personnelle.
Je ne parlais pas de ton code VBA.
PS: On ne prévient pas kouami40 que tout cela peut ne servir à rien niveau protection?
(Ne pas activer les macros etc...)
=>soan
Précisions
je parle de classeur "contre-nature" parce que le classeur possède 1000 feuilles !!!
Ce n'est que mon opinion personnelle.
Je ne parlais pas de ton code VBA.
PS: On ne prévient pas kouami40 que tout cela peut ne servir à rien niveau protection?
(Ne pas activer les macros etc...)
Discussions similaires
- Question
