Discussion :

[Faradeorn]

Bonjour,

Je souhaite enregistrer un programme dans Thisworkbook me permettant d'ouvrir mon logiciel excel en plein écran. De plus j'aimerais qu'un autre code soit rentré pour demander un mot de passe pour accéder au logiciel. Enfin qu'un message d'ouverture s'affiche.

Mon problème est que je n'arrive pas à combiner les 3: seul un des programme s'éxécute. L'autre est-il faux? Comment faire pour réussir à ce que les 3 fonctionnent?
De plus je ne me rappelle plus le code pour afficher un mot de passe, ou pourrais-je le trouver?

Les programmes rentrés dans Thisworkbook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_Open()
 
MsgBox "Bonjour. Bienvenue dans le gestionnaire de la librairie LACBESSE."
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Accueil_Open()
'
' Accueil_Open Macro
'
Application.DisplayFullScreen = True
 
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
 
    UserForm14.Show
 
 End Sub

Cordialement,

Faradeorn.

[Godzestla]

Bonjour,

tu dois mettre tout le code dans la procédure Workbook_open ou alors appeler Accueil_Open() depuis Workbook_open.

[Faradeorn]

Merci, je me suis torturé les méninges pour rien