IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Masquer en vba un onglet dans ruban Access 2007


Sujet :

VBA Access

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    3
    Détails du profil
    Informations personnelles :
    Âge : 71
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 3
    Par défaut Masquer en vba un onglet dans ruban Access 2007
    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.

  2. #2
    Membre émérite

    Homme Profil pro
    Inscrit en
    Juillet 2005
    Messages
    626
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations forums :
    Inscription : Juillet 2005
    Messages : 626
    Par défaut Le ruban
    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+

  3. #3
    Candidat au Club
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    3
    Détails du profil
    Informations personnelles :
    Âge : 71
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 3
    Par défaut Merci Naphta
    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.

  4. #4
    Membre averti
    Inscrit en
    Juillet 2008
    Messages
    28
    Détails du profil
    Informations forums :
    Inscription : Juillet 2008
    Messages : 28
    Par défaut
    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

  5. #5
    Candidat au Club
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    3
    Détails du profil
    Informations personnelles :
    Âge : 71
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 3
    Par défaut Ruban 2007
    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.
    Images attachées Images attachées   

  6. #6
    Membre éclairé
    Inscrit en
    Janvier 2006
    Messages
    288
    Détails du profil
    Informations forums :
    Inscription : Janvier 2006
    Messages : 288
    Par défaut
    Ce serait bien gentil de publier le contenu de vos fichiers xml.

Discussions similaires

  1. Onglet sur Ruban Access 2007
    Par Rebou dans le forum IHM
    Réponses: 1
    Dernier message: 01/04/2008, 14h44
  2. Ombrage des icones des rubans Access 2007
    Par alain91210 dans le forum Modélisation
    Réponses: 3
    Dernier message: 08/11/2007, 14h51
  3. ruban access 2007 pour ouvrier formulaire
    Par popofpopof dans le forum Access
    Réponses: 5
    Dernier message: 08/08/2007, 23h13
  4. Masquer ruban Access 2007
    Par leskev dans le forum Access
    Réponses: 3
    Dernier message: 04/05/2007, 13h26
  5. Ruban Access 2007
    Par Virgile59 dans le forum Access
    Réponses: 6
    Dernier message: 04/07/2006, 23h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo