Masquer en vba un onglet dans ruban Access 2007

**LLucien** · 25/02/2008, 18h13

Bonjour à tous

Grâce au tutoriel de Christophe Warin et à la FAQ Access 2007, j'ai chargé à l'ouverture d'une base Access 2007 un ruban personnalisé contenant les onglets "standard" Access 2007 et des onglets personnalisés pour mon application.

Je cherche à masquer entièrement deux des onglets "standard" Access et deux des miens en fonction de l'utilisateur en cours (si administrateur de la BD => tous les onglets sont présents, si autre utilisateur => 4 onglets à masquer)

Et ceci en VBA qui me permet de tester à l'aide d'une fonction associée à l'AutoExec quel utilisateur est en cours.

Je n'arrive pas à comprendre comment rendre les onglets invisibles "à la demande" ....

Remarque : je dis bien : rendre invisible ... et non pas rendre "enabled"

Voici le début de mon fichier RubanLL en Xml

Code xml :

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

1
2
3
4
5
6
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> onLoad="getRubanLL"> 
	<ribbon >
		<tabs>
			<tab id="tabParamètres" label="Paramètres" visible="true">
				<group id="grpParamètres" label="Paramètres">
				<button id="btnParamMaj" label="Mise à jour des Paramètres" size="normal" onAction="btnParamMaj_action"/>

et mon code Vba concerné

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
71
72
Option Compare Database
Option Explicit
'=====================================================
'tout ce qui concerne le Ruban sous Access 2007
'====================================== Data Ruban ===
'on définit les infos utiles au traitement
    Public Xfso As New FileSystemObject
    Public Xtxt As TextStream
    Public Xxml As String
    Public Xbool As Boolean
    Public XrubanLL As IRibbonUI
'====================================== Menu Ruban ===
Public Function MenuRuban()
'pour charger le ruban de l'application
'---------------------------------------------
'
'--------------
'on charge le fichier XML en mémoire
    Set Xtxt = Xfso.OpenTextFile("C:\SèmeEnTique\Bases\SFOrubanLL.xml", ForReading)
'--------------
'on récupère le contenu
    Xxml = Xtxt.ReadAll
'--------------
'on charge le rubban personnalisé correspondant
    Application.LoadCustomUI "SFOrubanLL", Xxml
'--------------
 
'--------------
'on détermine si l'utilisateur est un administrateur
    If CurrentUser = "CH" Or CurrentUser = "LL" Then
    'utilisateur administrateur, donc
    'on laisse toutes les commandes visibles
            '--------------
            'on débloque le volet de navigation
                DoCmd.LockNavigationPane False
            '--------------
 
 
 
 
 
 
 
            '--------------
    Else
    'utilisateur non-administrateur, donc
    'on masque les 4 onglets à cacher
            '--------------
            'on bloque le volet de navigation
                DoCmd.LockNavigationPane True
            '--------------
 
 
 
 
 
 
            '--------------
    End If
'--------------
End Function
'====================================== Objet Ruban ===
'pour réserver l'objet ruban pour pouvoir l'utiliser en vba
'---------------------------------------------
'on réserve l'objet XrubanLL
'
Sub RubanLL(ribbon As IRibbonUI)
    Xbool = False
    Set XrubanLL = ribbon
End Sub
'============================================= Fin. ===
'

et cela plante dès le chargement depuis que je rajoute la Sub RubanLL !!!

Moi qui maîtrisait correctement les menus en Access 2000, j'ai l'impression d'être "bouché" face à ces onglets !!! ... je ne comprend pas.

Par avance Merci de votre aide pour me donner un début de solution.

**naphta** · 26/02/2008, 12h44

Bonjour,

La logique des rubans est particulière.

1 - On charge le ruban et on set le nom du ruban(2 modes au choix)
2 - on initie le mode d’affichage des groupes ou boutons
3 – on relaxe les variables

Le meilleur site pour expliquer le fonctionnement des rubans (désolé pour Warin) est http://www.accessribbon.com/
Des exemples qui parlent
Dans ton exemple tu oublies d’initialiser le mode par l’appel à une fonction type getvisible
getVisible="RendVisible" où Renvisible est la fonction qui va déterminer si ce sera visible
a+

**LLucien** · 28/02/2008, 11h33

Merci pour la piste fournie (Getvisible) et pour le site indiqué ...

en plongeant dans les deux j'ai enfin pu trouver une solution
qui me satisfait ainsi que mon client.

Encore Merci pour la disponibilité et l'aide donnée LL.

**djodu69** · 25/08/2008, 14h23

Bonjour,

J'ai le même problème que toi. En effet je dois gérer l'apparition d'onglets ou non en fonction du groupe de l'utilisateur. Pourrais tu donner un peu plus d'information sur la façon dont tu as procédé ?

Merci par avance

**LLucien** · 28/08/2008, 10h58

D'un point de vue "programmation Vba sous Access", le ruban Access 2007 n'est pas une avancée !

Ceci étant dit … j'ai mis en place une solution qui satisfait mon client
(mais pas moi en tant que développeur) et qui fonctionne …

Comment ?

J'ai créé sous NotePad++ deux fichiers Xml intitulés :
SFOrubanLL (destiné à l'administrateur) et SFOruban (destiné aux utilisateurs) …

SFOruban ne contient que les commandes utilisables par les utilisateurs de l'application

SFOrubanLL contient toutes les commandes Access 2007 habituelles plus toutes les commandes de l'application développée … ceci dans un ordre volontairement particulier (le premier Menu sur lequel on arrive au lancement de l'application étant "mon menu Utilitaires" et non le menu Accueil de Access)

Puis sous Access 2007, j'ai créé une macro AutoExec qui lance une fonction en Vba intitulée MenuRuban avant d'afficher le formulaire Menu servant de "Menu général de l'application" … en réalité il affiche simplement un fond uni et propose le Ruban des commandes de l'application aux utilisateurs.

voilà le Menu général obtenu en final …

Pour obtenir cela, il vous faut programmer les Sub ou Function suivantes …
qui sont toutes nécessaires au bon fonctionnement de ce ruban et au choix du ruban utilisateur ou administrateur.

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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
Option Compare Database
 
Option Explicit
 
'=====================================================
 
'tout ce qui concerne le Ruban sous Access 2007
 
'====================================== Data Ruban ===
 
'on définit les infos utiles au traitement
 
    Public Xchemin As String
 
    Public Xdb As DAO.Database
 
    Public Xruban As IRibbonUI
 
    Public Xxml As String
 
    Public Xfso As New FileSystemObject
 
    Public Xtxt As TextStream
 
    Public Xbool As Boolean
 
    Public XrubanX As String
 
'====================================== Menu Ruban ===
 
Public Function MenuRuban()
 
'pour charger le ruban de l'application
 
'---------------------------------------------
 
'on détermine si l'utilisateur est un administrateur
 
    If CurrentUser = "CH" Or CurrentUser = "FC" Or CurrentUser = "LL" Then
 
    'administrateur, donc
 
    'on laisse toutes les commandes visibles
 
            '--------------
 
            'on commence par tester si les Menus Access 2007 sont Ok
 
                Set Xdb = CurrentDb
 
                '-------
 
                If Xdb.Properties("AllowFullMenus") = False Then
 
                'les menus Access 2007 ne sont pas Ok pour un Administrateur, donc
 
                'il faut les remettre Ok
 
                        '--------------
 
                        Call MenusVoir
 
                        '--------------
 
                        'puis on quitte volontairement la base de données
 
                        'la réouverture prochaine de la base remmettra l'environnement administrateur OK
 
                        '--------------
 
                        'message d'alerte
 
                            XU = "Abandon obligatoire  ! " & Chr(10) & Chr(10) & _
 
                            "Vous devez réouvrir la base de données ... " & Chr(10) & _
 
                            "pour remettre en état l'environnement Administrateur "
 
                            XR = MsgBox(XU, 48, "Administration SFO 2007 LL")
 
                            '=======
 
                            Application.Quit
 
                            '=======
 
                        '--------------
 
                        'l'idéal serait de pouvoir réouvrir automatiquement la base maintenant  !!!
 
 
 
                        'recherche de solution     toujours en test   !!!!
 
 
 
                        '--------------
 
                            'Xdb.Close
 
                            'Set Xdb = Nothing
 
                        '--------------
 
                            'Xchemin = "C:\SèmeEnTique\Bases\SFO_2007_Ruban.mdb"
 
                        '--------------
 
                        'on réouvre la base de données
 
                        '    Set Xdb = CurrentDb
 
                        '--------------
 
                Else
 
                'ils sont Ok, on continue
 
                End If
 
            '--------------
 
            'on gère le ruban Access 2007
 
                        '--------------
 
                        'on charge le fichier XML en mémoire
 
                            Set Xtxt = Xfso.OpenTextFile("C:\SèmeEnTique\Bases\SFOrubanLL.xml", ForReading)
 
                        '--------------
 
                        'on récupère le contenu
 
                            Xxml = Xtxt.ReadAll
 
                        '--------------
 
                        'on charge le rubban personnalisé correspondant
 
                            Application.LoadCustomUI "SFOrubanLL", Xxml
 
                        '--------------
 
                        'on garde le nom du ruban
 
                            XrubanX = "SFOrubanLL"
 
                        '--------------
 
            '--------------
 
            'on débloque le volet de navigation
 
                SendKeys "{F11}"
 
                SendKeys "{F11}"
 
            '--------------
 
            'on ...
 
            '--------------
 
    Else
 
    'utilisateur non-administrateur, donc
 
    'on masque les onglets à cacher
 
            '--------------
 
            'on commence par tester si les Menus Access 2007 sont masqués
 
                Set Xdb = CurrentDb
 
                '-------
 
                If Xdb.Properties("AllowFullMenus") = False Then
 
                'les menus Access 2007 sont masqués, donc
 
                'Ok pour un NON-Administrateur, donc on continue
 
                Else
 
                'ils ne sont pas masqués,
 
                'il faut donc les masquer maintenant
 
                        '--------------
 
                        Call MenusVoirNON                   '   à améliorer   !!!!!!!!!!
 
                        '--------------
 
                End If
 
            '--------------
 
            'on gère le ruban Access 2007
 
                        '--------------
 
                        'on charge le fichier XML en mémoire
 
                            Set Xtxt = Xfso.OpenTextFile("C:\SèmeEnTique\Bases\SFOruban.xml", ForReading)
 
                        '--------------
 
                        'on récupère le contenu
 
                            Xxml = Xtxt.ReadAll
 
                        '--------------
 
                        'on charge le rubban personnalisé correspondant
 
                            Application.LoadCustomUI "SFOruban", Xxml
 
                        '--------------
 
                        'on garde le nom du ruban
 
                            XrubanX = "SFOruban"
 
                        '--------------
 
            '--------------
 
            'on bloque le volet de navigation
 
                'DoCmd.LockNavigationPane True
 
            '--------------
 
            'on ...
 
            '--------------
 
    End If
 
'--------------
 
'o
 
'--------------
 
End Function
 
'====================================== Objet Ruban ===
 
'pour réserver l'objet ruban pour pouvoir l'utiliser en vba
 
'--------------
 
Public Sub getRubanLL(ribbon As IRibbonUI)
 
    Set Xruban = ribbon
 
End Sub
 
'======================================================
 
'pour récupére les menus spécifiques à Access 2007
 
'--------------
 
Public Sub MenusVoir()
 
'--------------
 
'on change les propriétés concernées
 
'pour qu'elles soient disponibles
 
    Set Xdb = CurrentDb
 
    '-------
 
    Xdb.Properties("AllowFullMenus") = True
 
    Xdb.Properties("AllowShortcutMenus") = True
 
    Xdb.Properties("AllowSpecialKeys") = True
 
    Xdb.Properties("StartUpShowDBWindow") = True
 
'--------------
 
'on actualise les propriétés concernées
 
    Xdb.Properties.Refresh
 
'--------------
 
End Sub
 
'======================================================
 
'pour récupére les menus spécifiques à Access 2007
 
'--------------
 
Public Sub MenusVoirNON()
 
'--------------
 
'on change les propriétés concernées
 
'pour qu'elles soient disponibles
 
    Set Xdb = CurrentDb
 
    '-------
 
    Xdb.Properties("AllowFullMenus") = False
 
    Xdb.Properties("AllowShortcutMenus") = False
 
    Xdb.Properties("AllowSpecialKeys") = False
 
    Xdb.Properties("StartUpShowDBWindow") = False
 
'--------------
 
'on actualise les propriétés concernées
 
    Xdb.Properties.Refresh
 
'--------------
 
End Sub
 
'============================================= Fin. ===
 
'
 
'
 
 
 
 
 
 
 
 
 
'
 
'======================================================
 
'============================= Les Boutons du Ruban ===
 
'======================================================
 
'Onglet Paramètres
 
'======================================================
 
Public Sub btnParamMaj_action(ByVal control As IRibbonControl)
 
'Mise à jour des paramètres
 
'--------------
 
    Call PARmaj
 
'--------------
 
End Sub
 
'============================
 
Public Sub btnParamList_action(ByVal control As IRibbonControl)
 
'liste des paramètres
 
'--------------
 
    Call PARliste
 
'--------------
 
End Sub
 
'============================

etc etc …. pour chaque bouton de commande trouvé dans le fichier Xml.

Pour info … je n'utilise les macros uniquement que pour appeler des Sub ou Function qui me permettent de programmer en Vba tout ce que je veux derrière un simple bouton de commande … je trouve cela plus pratique !

J'espère que ceci vous permettra d'avancer vers votre solution. LL.

**medchok** · 14/05/2014, 14h49

Ce serait bien gentil de publier le contenu de vos fichiers xml.

Masquer en vba un onglet dans ruban Access 2007

VBA Access

Discussions similaires

Partager

Partager