XL 2019 limiter l'accès des feuilles de mon classeur

kouami40

XLDnaute Junior
bonsoir chers tous,
je veux limiter l'accès des feuilles de mon classeur ci joint le document (admin/admin) compte et mot de passe je serais ravir que vous m'aidiez car j’arrive a protéger jusqu’à 20 feuilles au dela je narrive pas a les protéger
 

Pièces jointes

  • test kouami.xlsm
    900 KB · Affichages: 117
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...

soan

XLDnaute Barbatruc
Inactif
@ChTi160

ah, ok ; j'avais cru que t'avais simplement fermé la boîte de dialogue connexion,
et que t'étais sur la page d'Accueil avec le compte Invité.

comme tu as trouvé les 2 : ID et Mdp, alors bravo ! et effectivement, quand tu te
déconnectes, c'est bien Invité qu'on retrouve (normal, hein ? 😜) ; maintenant :

comment expliques-tu qu'ayant mis le bon ID et le bon Mdp, qui sont pourtant
bien ceux de l'administrateur, les 4 raccourcis clavier p n a m ne font rien ?
(et ce n'est pas un bug ! ce qui te démontre aussi l'efficacité de ma protection !)

je te donne de suite la réponse, car c'est quasi-impossible à trouver tout seul :

même avec le bon login et le bon password de l'administrateur, quelqu'un d'autre
que lui ne pourrait pas passer ! car pour l'instant, t'es pas encore considéré comme
l'administrateur légitime du lycée ISROD : t'es considéré comme un usurpateur qui
aurait copié ou volé ces 2 infos de connexion !

avoue que m'a sécurité est très bonne, pas vrai ? pour la suite, je te donnerai en MP
toutes les infos pour que tu deviennes l'administrateur légitime et pas un usurpateur ;
mais pas maintenant : je dois absolument arrêter mon PC car je dois sortir ; alors
mon MP sera peut-être ce soir ou demain, ça dépend de mon emploi du temps.


soan
 

kouami40

XLDnaute Junior
@ChTi160

ah, ok ; j'avais cru que t'avais simplement fermé la boîte de dialogue connexion,
et que t'étais sur la page d'Accueil avec le compte Invité.

comme tu as trouvé les 2 : ID et Mdp, alors bravo ! et effectivement, quand tu te
déconnectes, c'est bien Invité qu'on retrouve (normal, hein ? 😜) ; maintenant :

comment expliques-tu qu'ayant mis le bon ID et le bon Mdp, qui sont pourtant
bien ceux de l'administrateur, les 4 raccourcis clavier p n a m ne font rien ?
(et ce n'est pas un bug ! ce qui te démontre aussi l'efficacité de ma protection !)

je te donne de suite la réponse, car c'est quasi-impossible à trouver tout seul :

même avec le bon login et le bon password de l'administrateur, quelqu'un d'autre
que lui ne pourrait pas passer ! car pour l'instant, t'es pas encore considéré comme
l'administrateur légitime du lycée ISROD : t'es considéré comme un usurpateur qui
aurait copié ou volé ces 2 infos de connexion !

avoue que m'a sécurité est très bonne, pas vrai ? pour la suite, je te donnerai en MP
toutes les infos pour que tu deviennes l'administrateur légitime et pas un usurpateur ;
mais pas maintenant : je dois absolument arrêter mon PC car je dois sortir ; alors
mon MP sera peut-être ce soir ou demain, ça dépend de mon emploi du temps.


soan
bonsoir soan et jean marie
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil,

Juste de passage (furtif) pour un aparté
[aparté]
avoue que m'a sécurité est très bonne, pas vrai ? pour la suite, je te donnerai en MP
toutes les infos pour que tu deviennes l'administrateur légitime et pas un usurpateur ;
mais pas maintenant : je dois absolument arrêter mon PC car je dois sortir ; alors
mon MP sera peut-être ce soir ou demain, ça dépend de mon emploi du temps.
Les membres du forum qui liront ce fil apprécieront cette nouvelle façon de résoudre des questions en MP.
Toute l'essence du forum

avoue que m'a sécurité est très bonne, pas vrai ?

Que nenni, bis ;)
Mais puisque mon passage n'était que furtif, je repars dans des fils où les échanges se font en public et pas en peer to peer
[/aparté]

Précisions:
J'ai rien contre les MP.
Mais les échanges concernant la résolution d'une question devraient être postés sur le fil de discussion.
Le MP ou plutôt la conversation c'est pas le forum ;)
 

soan

XLDnaute Barbatruc
Inactif
Hello Staple, le fil,

J'ai déjà expliqué à @ChTi160 et @kouami40 pourquoi je leur ai donné des infos
en MP : ce sont des infos très techniques, et si elles sont mal utilisées, ça peut
bloquer Windows et le PC ! je ne voudrais pas qu'un lecteur du forum ne puisse
plus utiliser son PC à cause d'un de mes posts ! c'est donc uniquement pour la
sécurité que je n'ai pas mis mes infos sur le forum.


soan
 

kouami40

XLDnaute Junior
Hello Staple, le fil,

J'ai déjà expliqué à @ChTi160 et @kouami40 pourquoi je leur ai donné des infos
en MP : ce sont des infos très techniques, et si elles sont mal utilisées, ça peut
bloquer Windows et le PC ! je ne voudrais pas qu'un lecteur du forum ne puisse
plus utiliser son PC à cause d'un de mes posts !


soan
Staple1600 et souan bonsoir
c'est vrai ce que souan dit
 

Staple1600

XLDnaute Barbatruc
Re

[moue dubitative]
Dans ce cas restez en peer to peer ;)
Puisque les autres lecteurs du fil n'auront pas tous les éléments en main pour comprendre ce fil.
[/moue dubitative]
[fin de l'aparté dans l'aparté]
Et je persiste Que nenni (3)
Malgré les infos très techniques et potentiellement dangereuses*, on entre dans ce classeur comme dans du beurre...

*: • si je ne m'abuse le demandeur "débute" en VBA, j'ai donc du mal à comprendre où est la sécurité à lui fournir des infos très techniques...
[/fin de l'aparté dans l'aparté]
 
Dernière édition:

soan

XLDnaute Barbatruc
Inactif
Bonjour kouami,

:oops::oops::oops: j'en reviens pas que 16 jours ont déjà passés depuis la dernière fois ! 😱

c'est car j'ai eu un très gros contre-temps, que j'avais pas du tout prévu ! 😭


------------------------------------------------------------------------------------------

pour ton classeur Excel, ce post est uniquement à propos des noms de feuilles :
pourquoi des noms aussi longs ? il vaut mieux les abréger !

1) tes feuilles qui commencent par : "Base de donné Elèves" ; ça devrait être :
"Base de données Elèves" ; ensuite, BDD est une abréviation courante de
"Base de données" ➯ on abrège en "BDD Elèves"

2) on peut abréger "Elèves et matières" en "EVM"

3) on peut abréger "FICHIER DES NOTES" en "FDN"

4) on abrège "RECAPITULATIF MOYENNE" en "RCM"

5) on abrège "ENTREPRE" en "ETRP"

6) on abrège "SEMES 1" en "S1"

7) on abrège "SEMES 2" en "S2"

8) il y a une feuille qui se termine par "SEM (2)" ; si on renomme en "S2",
ça ne va pas car il y a déjà une feuille de ce nom ; donc on renomme
en "S3" ; tu choisiras plus tard un nom correct se terminant par "S2".

9) il y a des feuilles qui se terminent par "SEMES", sans n° de semestre ;
comme en fait c'est pour le 2ème semestre, on renomme en "S2".

tu feras cette petite note pour tes utilisateurs :

ABRÉVIATIONS

BDD = Base de données
EVM = Elèves et matières
FDN = Fichier des notes
RCM = Récapitulatif moyenne
ETRP = Entrepreneuriat
S1 = Semestre 1
S2 = Semestre 2


------------------------------------------------------------------------------------------

pour ton vrai fichier, dans un nouveau module standard, tu mettras le code VBA
ci-dessous, qui fera tous les renommages "en une seule passe" ; mais ne le fais
pas tout de suite ; attend de voir si le nouveau fichier que je vais te proposer
dans mon prochain post va te convenir ou non.

VB:
Option Explicit

Private Sub RPL(sh$, s1$, s2$)
  If Left$(sh, Len(s1)) = s1 Then sh = Replace$(sh, s1, s2)
End Sub

Sub RNF()
  Dim sh$, n%, i%
  Application.ScreenUpdating = 0
  n = Worksheets.Count
  For i = 4 To n
    sh = Trim$(Worksheets(i).Name)
    sh = Replace$(sh, "SEMES 1", "S1")
    sh = Replace$(sh, "SEMES 2", "S2")
    sh = Replace$(sh, "SEM (2)", "S3")
    sh = Replace$(sh, "SEMES", "S2")
    RPL sh, "Base de donné", "BDD"
    RPL sh, "Elèves et matières", "EVM"
    RPL sh, "FICHIER DES NOTES", "FDN"
    RPL sh, "RECAPITULATIF MOYENNE", "RCM"
    RPL sh, "ENTREPRE", "ETRP"
    Worksheets(i).Name = sh
  Next i
End Sub
explication des noms abrégés des 2 subs :

* RNF = Renommer Noms Feuilles
* RPL = Remplacer


soan
 
Dernière édition:

soan

XLDnaute Barbatruc
Inactif
@kouami40 (bonjour jean-marie ! :))

lien fichier : https://mon-partage.fr/f/80g0NerY/

A) les feuilles sont renommées comme je l'ai déjà indiqué dans mon post précédent,
mais ne cherche pas à le vérifier maintenant ; tu le verras plus tard.

B) la feuille "BOUTONS COMMANDE" n'existe plus : je l'ai supprimée ; à la place,
il y a la feuille "GoFX" (= Aller en Feuille X) ; sélectionne cette feuille.

C) la feuille est protégée, sans mot de passe ; c'est uniquement pour éviter d'écraser
involontairement des formules ; tu pourras saisir uniquement dans les cellules
adéquates (ce sera indiqué plus tard, dans un prochain post).


----------------------------------------------------------------------------------------------------------

1) tableau en B2:D15 : c'est pour la liste des 13 matières ; à regarder seulement :

Image 1.jpg


c'est le Code sur fond vert qui sera utilisé pour le nom des feuilles.

----------------------------------------------------------------------------------------------------------

2) tableau en F2:J9 : c'est pour la liste des 7 classes ; à regarder seulement :

Image 2.jpg


* pour la colonne N : c'est volontairement que j'ai pas numéroté de 1 à 7
mais plutôt de 6 à 0 ; ainsi, N correspond à la classe ; et j'ai mis 0 au lieu
de T car plus bas, pour la saisie de la classe, j'ai mis une validation de
données pour un nombre entier de 0 à 6.

* c'est le Code sur fond vert qui sera utilisé pour le nom des feuilles.

* pour la colonne Max :

- 8 car 6ème1 à 6ème8
- 7 car 5ème1 à 5ème7 ; 4ème1 à 4ème 7
- 10 car 3ème1 à 3ème10
- 3 car 1 à 3 pour 2nde, 1ère, Terminale

* pour la colonne Lettre :

- 4 premières classes : sans objet ; j'ai donc juste mis un tiret : « - »
- ça concerne que les 3 dernières classes, de 2nde à Terminale
- les seules lettres autorisées seront : A ; C ; D


soan
 

soan

XLDnaute Barbatruc
Inactif
@kouami40

Image.jpg


* si tu cliques sur le bouton GO, ça ne fera rien du tout ; c'est normal,
car il faut d'abord mettre des renseignements pour que la longue
case grise soit remplie (fusion H17:J17)

* ça ne fera rien si le nom de feuille n'existe pas ; si la feuille existe,
ça ira dessus (et avant, ça l'affichera si elle était masquée).

----------------------------------------------------------------------------

Exemple A

1)
sélectionne H11 ; dans la liste, choisis la matière que tu veux,
par exemple : « MATHS »

2) note bien que I12 est vide ; idem pour la fusion F14:G14

en H12, entre un nombre de 6 à 0 (0 pour Terminale) ; c'est donc ici
qu'il y a une validation de données ; mets par exemple 6 ➯ en I12 :
« 6ème » ; en F14 : « Niveau (1 à 8) : » (le niveau maxi est correct)

3) en H13, inutile de choisir une des 3 lettres dans la liste puisque
c'est seulement valable pour les 3 dernières classes ; si tu le fais
quand même, ça gênera pas car cette lettre est tout simplement
ignorée pour les 4 premières classes ; avantage : ça t'évite de
devoir effacer cette lettre (avec la touche Suppression) quand tu dois
passer d'une classe à une autre.

4) note bien que I14 est vide.

en H14, saisis le Niveau, par exemple 20 ; y'a pas d'validation
de données, mais comme ça dépasse 8, c'est resté vide en I14 ;
met 5 à la place de 20 en I14 : 5 ça t'confirme que cette
fois, le niveau saisi est correct, et accepté.

5) note bien que H17 est vide.

en H15, choisis dans la liste un des 2 semestres, par exemple
« S2 » ➯ en H17 : « MATHS 6ème5 S2 »

ça y'est ! tu as ton nom de feuille entier ! :) clique sur GO
pour afficher cette feuille (auparavant masquée) et aller dessus.

clique sur le bouton « Retour Menu » pour aller sur "GoFX"


----------------------------------------------------------------------------

Exemple B

1) en H11, sélectionne « SVT »
2) en H12, saisis 2 ➯ en I12 : 2 ; et en F14 : « Niveau (1 à 3) : »
3) en H13, choisis A
4) en H14, saisis 1 ➯ en I14 : 1 ; et en H17 : « SVT 2A1 S2 »

clique sur GO ➯ ça va dessus. :)

si cette feuille n'avait pas existé,
ça aurait rien fait, et il n'y aurait pas
eu de plantage ! 😜 c'est d'ailleurs grâce à cela que j'ai pas besoin
de contrôler si tu mets la lettre C que pour les 2nde : si tu l'as saisi
pour les 1ère ou Terminale, ça fera rien car y'a pas d'feuilles avec
1C ou TC (mais si t'en as dans ton vrai fichier, ça ira dessus).


----------------------------------------------------------------------------

question : les 3ème10, c'est pour les élèves de 3ème qui ont déjà
redoublé 9 fois avant ? :p :D 😂 🤣 😁

(si oui, on peut dire qu'ils ont rempilé, hein ? comme les légionnaires romains
qui reprennent du service en se ré-engageant dans l'armée de Jules César !)


soan
 
Dernière édition:

soan

XLDnaute Barbatruc
Inactif
@kouami40

Image 1.jpg


ça fait rien si tu cliques sur GO ; c'est normal ! ;)

Image 2.jpg


s'il y a quelque chose en M2, sélectionne M4,
et choisis un des 4 items de la liste :

* BDD Elèves
* EVM
* FDN
* RCM

un clic sur GO ira sur la feuille correspondante si elle existe ;
là aussi, la feuille sera d'abord affichée si elle était masquée ;
attention : pour FDN, la classe ne suffit pas : il faut aussi
le semestre (sélectionné dans la liste de H15).

rappel :

BDD Elèves = Base de données Elèves
EVM = Elèves et matières
FDN = Fichier des notes
RCM = Récapitulatif moyenne

-------------------------------------------------------------------

Exemple si en M2 : « 2A1 » et en H15 : « S2 »

* pour : « BDD Elèves » : GO va sur « BDD Elèves 2A1 »
* pour : « EVM » : GO va sur « EVM 2A1 »
* pour : « FDN » : GO va sur « FDN 2A1 S2 »
* pour : « RCM » : GO va sur « RCM 2A1 »


soan
 
Dernière édition:

Discussions similaires

Réponses
5
Affichages
440
Compte Supprimé 979
C

Statistiques des forums

Discussions
312 389
Messages
2 087 933
Membres
103 677
dernier inscrit
Amrani