Discussion :

[cbleas]

bonjour,

je souhaite empécher la modification des barres d'outils. je voudrais qu'il n'y ai aucune possibilité d'afficher la boite personnalisation.

Comment faire?

merci

[LedZeppII]

Bonsoir,

Essaie dans Outils->Démarrage
Tu décoches "Autoriser la modification des barres d'toutils/menus"

A+

[oops1980]

mais si on est sur un reseau?

[cbleas]

Bojour,
décocher dans le module démarrage me permet bien de faire le bloquage du menu de personnalisation.
est il possible de faire ce bloquage et débloquage en VBA?

merci.

[LedZeppII]

Bonjour,

il me semble avoir vu ça dans la FAQ mais je n'arrive pas à remettre la main dessus.

Voici le code que j'utilise

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
Private Sub SetDBprop(propName As String, propType As DAO.DataTypeEnum, _
                      propVal As Variant)
Dim db As DAO.Database, p As DAO.Property
 
 Set db = CurrentDb
 Set p = Nothing
 On Error Resume Next
 Set p = db.Properties(propName)
 On Error GoTo 0
 If p Is Nothing And Not IsNull(propVal) Then
    Set p = db.CreateProperty(propName, propType, propVal)
    db.Properties.Append p
 End If
 
 If Not (p Is Nothing) Then
    If IsNull(propVal) Then
       db.Properties.Delete propName
    Else
       p = propVal
    End If
 End If
 
 db.Close
End Sub

Pour changer la valeur d'une option de démarrage:

Code VB :

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

1
2
3
4
' Modification barres outils/menu interdite
SetDBprop "AllowToolbarChanges", dbBoolean, False
' Modification barres outils/menu autorisée
SetDBprop "AllowToolbarChanges", dbBoolean, True

A+

[cbleas]

merci pour cette réponse

[LedZeppII]

De rien.

J'ai retrouvé le sujet dans la rubrique sources : Option demarrage
Tu y verra le nom des autres options de démarrage.

A+