XL 2010 Formulaire bloqué / Fermeture Excel

vgendron

XLDnaute Barbatruc

• 14 Décembre 2024

• #2

Bonjour

je ne comprend pas bien tout ce code
j'ai l'impression que tu passes beaucoup de temps à afficher ou masquer des feuilles
lorsque tu t'es identifié,
unload le formulaire de mot de passe
et bascule sur le nouveau formulaire

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 14 Décembre 2024

• #3

sinon,
dans les propriétés du formulaire F1,
passe le en enabled=true

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 14 Décembre 2024

• #4

Bonjour,

vgendron à dit:

j'ai l'impression que tu passes beaucoup de temps à afficher ou masquer des feuilles

Cliquez pour agrandir...

Absolument, d'accord avec toi. Pour quelle finalité????

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 14 Décembre 2024

• #5

Bonjour,

@Olivier1978 : En sus à ce que @vgendron a dit. Arrange l'ordre de tabulation du formulaire de connexion pour que le focus passe à la textbox du mot de passe au lieu du bouton.
Pour éviter le scintillement de l'écran lors de l'affichage et du masquage des feuilles (code ci-dessous)

VB:

Sub cacher()
   Dim Feuille As Worksheet
   Application.ScreenUpdating = False 'évite scintillement de l'écran
   For Each Feuille In Sheets
      Sheets("ACCUEIL").Activate
      If Feuille.Name <> "ACCUEIL" Then Feuille.Visible = xlSheetVeryHidden
   Next Feuille
   Application.ScreenUpdating = True

End Sub

Sub montrer()
   Dim F As Worksheet
   Application.ScreenUpdating = False
   For Each F In Sheets
      If Not F.Name = "UTILISATEURS" Then F.Visible = True
   Next F
   Sheets("ACCUEIL").Activate
   Application.ScreenUpdating = True
End Sub

Bonne soirée à vous.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 14 Décembre 2024

• #6

pourquoi limiter le nombre de feuilles à 13 ?

en règle générale.. ton code est assez "indigeste"
pas ou peu d'indentation du code
des lignes vides entre lignes de code
mais ca.. il me semble que je te l'avais déjà dit dans une discussion précédente..

ton code peut largement être optimisé.. mais de mémoire aussi. tu ignores les conseils donnés car tu préfères faire par toi-même..
si tu as changé d'état d'esprit, on peut te proposer quelque chose

 

Vote positif 0 Vote négatif

O

Olivier1978

XLDnaute Nouveau

• 14 Décembre 2024

• #7

Bonsoir à tous,

Merci pour toutes vos réponses et votre aide.
Pour le "Enabled" j'aurais pu le voir, désolé.

Pour le scintillement de l'écran, je n'y avais pas pensé, merci à "Cathodique". C'est beaucoup mieux, en effet.

Pour la limite à 13 feuilles, c'est parce que je ne veux pas d'un classeur trop "gros", un choix personnel.

Les remarques sur le code étaient pour quelqu'un d'autre mais c'est vrai, il faut "serrer" le code, expliquer ce que l'on fait en bout de ligne avec un ' et tabuler.

Je ferais attention la prochaine fois, merci pour la remarque.

Avec plaisir pour la "proposition" d'optimisation.

Bonne soirée à tous,

NB : pour être franc, je voulais faire mieux sur le montrer/cacher des boutons de chaque onglet qui affiche le formulaire de navigation
Je laisse la possibilité à l'utilisateur de choisir, si il appelle les feuilles, via les onglets du classeur ou avec mon formulaire (= utilité)

Autre petite chose mais j'y ai renoncé. Je voulais qu'à l'ouverture du classeur, l'utilisateur définisse le nombre de feuilles par un Inputbox ("entrez le nombre de pages de votre classeur") par exemple . Ensuite lorsque le nombre rentré est atteint, il n'est plus possible d'ajouter de nouvelles feuilles.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 14 Décembre 2024

• #8

voir en PJ

tes 4 macros pour afficher ou masquer les boutons 1 et 10 sont rassemblées en UNE seule macro
idem pour afficher masquer les feuilles

juste deux commentaires sur le classeur complet..
tout ca juste pour imprimer des feuilles??

l'administrateur n'a meme pas le droit de voir les feuilles utilisateur??

 

Pièces jointes

• Etude Behar Sécurité.xlsm

  310.5 KB · Affichages: 4

Vote positif 0 Vote négatif

O

Olivier1978

XLDnaute Nouveau

• 15 Décembre 2024

• #9

Bonsoir vgendron,

Merci ton retour rapide,

Pour l'instruction "Case", super, j'ai compris quelque chose de nouveau.
Sinon, merci pour le regroupement et les "arguments" à la suite, c'est vrai que c'est plus clair en visibilité.

Par rapport à tes questions.

("imprimer des feuilles"). Pas tout à fait, fait pour empaqueter quelque chose qui a vocation à être "confidentiel", j'ai fait un "cas test".

("l'utilisateur n'a..."). Je lui donne les droits en ajout/suppression d'utilisateurs sur le fichier. De mon coté c'est tout. Après libre à lui de se débrouiller que cela évolue.

Edit : si vous avez (le forum) une proposition pour un "Inputbox" qui permet à l'utilisateur de définir le nombre de page du classeur --- la valeur rentrée permettant de bloquer l'ajout/suppression de feuilles, derrière .... Je suis preneur.

Bonne soirée à toi,

Merci pour ton aide,

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• Lundi à 20:10

• #10

Hello

si vous avez (le forum) une proposition pour un "Inputbox" qui permet à l'utilisateur de définir le nombre de page du classeur

Cliquez pour agrandir...

VB:

while NbPage=""
    NbPage=inputbox("Veuillez saisir le nombre de pages de ce classeur")
   if not isnumeric(NbPage) then NbPage=""
wend

 

Vote positif 0 Vote négatif

Solution

O

Olivier1978

XLDnaute Nouveau

• Mercredi à 19:05

• #11

Bonsoir vgendron,

Merci.

Bonne soirée à toi,

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• Mercredi à 20:16

• #12

Olivier1978 à dit:

Bonsoir vgendron,

Merci.

Bonne soirée à toi,

Cliquez pour agrandir...

Bonsoir, Il faut pointer le post de @vgendron donnant la solution.
Pas le tien.

Bonne soirée

 

Vote positif 0 Vote négatif

O

Olivier1978

XLDnaute Nouveau

• Jeudi à 10:47

• #13

Pour être honnête, ce n'était pas la solution (montre comment afficher un Inputbox et ferme la procédure).
Mais j'ai fais ce que je voulais ensuite, donc parfait .

Merci pour votre aide à tous.

Bonne journée.

Edit "Cathodique" : corrigé.

 

Vote positif 0 Vote négatif