[excel 2000 - Vba] Apparence d'Excel à l'ouverture d'un fichier uniquement

**Paloma** · 05/12/2006, 16h09

Bonjour,

J’aimerais savoir si il est possible en VBA, c.a.d. au lancement de mon fichier Excel, supprimer les barre de défilement de certaines feuille dans mon classeur, de cacher toutes les barres d'outil juste pour l'utilisation de mon fichier, cacher certains menu dans la barre des menus, en fait juste conserver Fichier et ?

...
J'ai peut-être mal cherché mais je n'ai rien trouvé à ce sujet.

Si quelqu'un peut m'aider?
Cordialement,
Paloma

**Larsen21** · 05/12/2006, 16h31

Voila je pense que tu chercher ça :
pour remettre tout a la fermeture

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
19
20
21
22
23
24
25
26
27
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
'désactive la vue en plein écran
Application.DisplayFullScreen = False
 
'réactive le menu
Application.CommandBars(1).Enabled = True
 
'réactive les onglets des feuilles
ActiveWindow.DisplayWorkbookTabs = True
 
'réactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = True
 
'réactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
 
'réactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
 
 
End Sub

pour l'ouverture du classeur

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
19
20
21
22
23
24
25
26
27
28
Private Sub Workbook_Open()
 
 
'désactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
 
 
Application.DisplayFullScreen = True
 
'désactive le menu
Application.CommandBars(1).Enabled = False
 
'désactive les onglets des feuilles
ActiveWindow.DisplayWorkbookTabs = False
 
'désactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
'désactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = False
'Protège la feuille
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoSelection
End Sub

Mais avant tout mettre ça dans les déclarations générales

Code :

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

1
2
3
4
5
6
7
Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Voila je crois qu'il ya tout

A+

**Paloma** · 05/12/2006, 17h04

Super !!!!

Merci Larsen21

En tout cas, cela répond tout à fait à mon besoin.

Je préfère afficher mon classeur en 600 X 900
Il ne me reste plus qu'a centrer l'application.

Si tu as une info, je suis preneur.
Sinon, je cherche et je donnerais mon code complet pour information.

Puis, je cliquerais sur le bouton Résolu

of course.

Cordialement,
Paloma

**Larsen21** · 05/12/2006, 19h21

Tu peux essayer ça si c'est pour centrer tes feuilles alors c'est ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub centerform(frm As Form)
Code pour centrer la feuille
frm.Top = Screen.Height / 2 - frm.Height / 2
frm.Left = Screen.Width / 2 - frm.Width / 2
End Sub
 
 
Private Sub Form_Load()
'Centre la feuille
centerform Me
End Sub

a+

**Paloma** · 07/12/2006, 07h54

Bonjour à tout le monde,

Merci Larsen21 pour l'information.

J'ai essayé de faire la même chose pour l'application Excel mais ça ne fonctionne pas.

En fait, j'aimerais qu' Excel s'ouvre avec une taille de 2/3 de la résolution écran horizontalement et verticalement.

Mais comme je l'ai codé, ça ne fonctionne pas.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Private Sub Workbook_Open()
'désactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
Dim strHeight As Integer
Dim strWidth As Integer
 
 
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
 
 
Application.Height = (2 * Screen.Height) / 3
 
Application.Width = (2 * Screen.Width) / 3
'Application.DisplayFullScreen = True
 
' désactive la barre de formule
Application.DisplayFormulaBar = False
 
'désactive le menu
Application.CommandBars(1).Enabled = True
 
'désactive les onglets des feuilles
'ActiveWindow.DisplayWorkbookTabs = False
 
'désactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
'désactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = False
'Protège la feuille
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoSelection
 
Sheets("Memory").Cells(2, 5) = ActiveWorkbook.FullName
    frmSplash.Show
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
'désactive la vue en plein écran
'Application.DisplayFullScreen = False
 
'réactive le menu
Application.CommandBars(1).Enabled = True
 
' réactive la barre de formule
Application.DisplayFormulaBar = True
 
'réactive les onglets des feuilles
'ActiveWindow.DisplayWorkbookTabs = True
 
'réactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = True
 
'réactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
 
'réactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
 
 
End Sub

Si quelqu'un a une idée?

Cordialement,
Paloma

**Larsen21** · 07/12/2006, 08h18

En fait je croyais que c'était redimensionner une userform mais en fait tu veux redimensionner carrément la fenêtre excel donc ça serait plutot un truc dans ce style :

Code :

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

1
2
3
4
5
Application.WindowState = xlNormal
    Application.Left = 136
    Application.Top = 55.75
    Application.Width = 664.5
    Application.Height = 553.5

bien sur adapte le de la façon dont tu veux car je pense que ça devrait etre différent puisque je suis sur un écran 19pouce et une résolution de 1280x1024

a+

**Paloma** · 07/12/2006, 08h31

Yes trop cool ....

Merci Larsen21

Mais encore une dernière question, comme je pense que je me suis mal expliqué, je la reformule.

Ta solution, c'est exactement ce que je cherchais mais à un poil près, comment faire automatiquement ce choix avec la résolution écran?

En fait comme chaque PC qui utilise mon outil peu avoir une résolution différente, ta solution doit pouvoir s'adapter automatiquement.

En fait, si je savais récupérer la résolution écran je pourrais faire cela facilement mais je ne sais pas faire.

Alors si tu as une info

Bien à vous.
Paloma

**Larsen21** · 07/12/2006, 09h05

Alors en fait le plus simple je pense pour avoir la résolution c'est ça :
ça tu le met en déclaration générale

Code :

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

Private Declare Function apiGetSys Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

puis pour avoir la résolution de l'écran tu a ça
a étant la largeur
b étant la longueur

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
'Recherche de la résolution d'écran
  a = apiGetSys(0)
  b = apiGetSys(1)
 
  MsgBox a & "x" & b
End Sub

après faut encore faire la liaison automatique mais j'y travaille
je t'envoi un post si je trouve.

a+

**Paloma** · 07/12/2006, 10h37

Merci Larsen21

Voilà j'ai fini et ça marche.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub Workbook_Open()
 
'désactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
 
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
 
Dim strHeight As Integer
Dim strWidth As Integer
 
strHeight = apiGetSys(1)
strWidth = apiGetSys(0)
 
Application.Height = (strHeight * 2) / 3
 
Application.Width = (strWidth * 2) / 3
'Application.DisplayFullScreen = True
 
' désactive la barre de formule
Application.DisplayFormulaBar = False
 
'désactive le menu
Application.CommandBars(1).Enabled = True
 
'désactive les onglets des feuilles
ActiveWindow.DisplayWorkbookTabs = False
 
'désactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
'désactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = False
'Protège la feuille
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoSelection
 
Sheets("Memory").Cells(2, 5) = ActiveWorkbook.FullName
    frmSplash.Show
End Sub

T trop fort ;-)

Cordialement,
Paloma

**Larsen21** · 07/12/2006, 12h23

Mais c'est parfait tout ça
paloma
Bravo a toi ! je n'ai fait que te guider

[excel 2000 - Vba] Apparence d'Excel à l'ouverture d'un fichier uniquement

Macros et VBA Excel

Discussions similaires

Partager

Partager