Usf à activer

Papaye

XLDnaute Occasionnel

• 7 Août 2006

• #2

Re : Usf à activer

Bonjour,

Si tu placais un
Private Sub Workbook_Activate()
MonUSF.Show
End Sub
non ?
Chaque fois que tu retournes sur ton classeur A, l'USF apparaît.
C'est surement pas ce que tu veux mais bon, je voulais faire avance le schmilili, le schimil ...

 

Vote positif 0 Vote négatif

L

lesarthois

Guest

• 8 Août 2006

• #3

Re : Usf à activer

bonsoir

tu a la solution que voici : MonUSF.Show VBmodeless (userform toujourvisible
et possibilité de travailler sur les classeurs avec l'USF affiché).
@+

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 8 Août 2006

• #4

Re : Usf à activer

Papaye à dit:

Bonjour,

Si tu placais un
Private Sub Workbook_Activate()
MonUSF.Show
End Sub
non ?
Chaque fois que tu retournes sur ton classeur A, l'USF apparaît.
C'est surement pas ce que tu veux mais bon, je voulais faire avance le schmilili, le schimil ...

Cliquez pour agrandir...

Bonjour à tous,

personnellement, mais je ne sais pas si cela est necessaire, j'ajouterais un
sheets("A").select

bon courage

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 8 Août 2006

• #5

Re : Usf à activer

bonjour le forum,😉
bonjour lesarthois,Papaye,flo2002

merci de votre aide,mais mon problème n'est pas résolu.

Le classeur "A" à l'ouverture active l'USF,il reste ouvert et quand je selectionne le classeur "B", l'USF se ferme.(la c'est normal).

quand je ferme le classeur "B",je reviens donc sur le classeur "A" et la j'aimerais que l'USF soit de nouveau visible.

Pkoi tout ce shéma, c'est tout simple, l'accés au fichier est protéger par un login et mot de passe. Donc je ne peux pas mettre sur le classeur "A",un cmd qui activerait directement l'usf.(certains classeurs sont accesible uniquement à l'administrateur).

Merci de votre aide et me signaler si ma requête est impossible😱

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 8 Août 2006

• #6

Re : Usf à activer

Re,
je ne sais pas si ca repond à ton besoin mais j'ai mis:

Private Sub Workbook_Activate()
UserForm1.Show
End Sub

Private Sub Workbook_Select()
UserForm1.Show
End Sub

comme ca quand je change de workbook ca remet la usf
bon courage

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 8 Août 2006

• #7

Re : Usf à activer

bonjour flo,

merci de ton aide, mais j'ai essayer plusieurs fois mais cela ne marches pas.
Ton code est bien à mettre dans le classeur "A"?

merci de ton aide

laurent

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 8 Août 2006

• #8

Re : Usf à activer

non tu le met sur le workbook.

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 8 Août 2006

• #9

Re : Usf à activer

Bonjour Florent,

j'ai beau eesayé dans le Workbook,mais cela ne marches pas .

soit j'insère le code au mauvais endroit,soit d'autres codes bloques du workbook le bloques.
Code insérer dans le Workbook du classeur "A"

Option Explicit
Private Sub Workbook_Deactivate()
ActiveWindow.WindowState = xlMaximized
Application.DisplayFullScreen = False
Application.CommandBars("Full Screen").Visible = True
End Sub
Private Sub Workbook_Open()
Sheets("0").Select
Sheets("0").Activate
ActiveWindow.WindowState = xlMinimized
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
UserForm1.Show 'ici USF du mot de passe
End Sub

Private Sub Workbook_Activate()
UserForm2.Show
End Sub
Private Sub Workbook_Select()
UserForm2.Show
End Sub

merci de ton aide
laurent

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 8 Août 2006

• #10

Re : Usf à activer

Re,
j'ai regardé ton code et je ne vois ou ca peut bugger, il te dit quoi?
une erreur ou rien?

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 8 Août 2006

• #11

Re : Usf à activer

Flo,le forum,

il ne se passe de bug,mais rien .L'usf ne s'ouvre pas à la fermeture du classeur "B"

gloupssssssssss!!!

mystère!!

laurent

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 8 Août 2006

• #12

Re : Usf à activer

si tu n'as pas de donnée confidentiel peut tu mettre un bout de fichier avec les onglets correspondant et les deux usf.
et aussi une explication on sait jamais.
Dans le cas present seul la usf1 devrait s'ouvrir si je comprend bien.

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 8 Août 2006

• #13

Re : Usf à activer

Flo,
si tu veux je te l'envoie par émail,c'est plus facile etat donné que les usf correspond tous au démarrage..

laurent

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 8 Août 2006

• #14

Re : Usf à activer

re,

au démarrage du fichier ,tu dois cliquer sur(Usf1) OK et ensuite on te demande le mot de passe.(Usf mdp).
Là tu ouvres l'usf2 (mes programmes).Pour l'instant je n'ai renseigné que le chemin du fichier " Recette du jour" en macro.

Je travailles sur ce fichier et à la fermeture de ce fichier (Recette du jour), j'aimerais retrouver l'usf2 (mes programmes) pour me permettre soit de quitter le programme ou soit de choisir un nouveau fichier de travail.

j'attends de tes nouvelles
laurent
amicalement

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 8 Août 2006

• #15

Re : Usf à activer

je viens de tester ton code en mettant simplement ta feuille 0 comme etant ma feuille1. A l'ouverture, tout à l'air de ce mettre comme tu le souhaite avec ta config et a la fermeture tout redevient normal. J'ai creer de plus deux usf fictif et a l'ouverture il ma afficher les deux.(mais pas de mots de passe demander mais ca je pense que c'est dans le usf2)
donc dis moi ou ca cloche chez toi???
tu l'as bien coller dans le workbook???

 

Vote positif 0 Vote négatif