Discussion :

[willytito]

Bonjour,

Je développe avec Access 2003 sous Windows XP Pro.

Je souhaiterais interdire la modification des formulaires et interdire la modification du code.
Entre autre, verrouiller l'option "Création de formulaire" du menu contextuel.
Par contre je souhaiterais conserver les options "Filtre, tri, .. " du menu contextuel.

J'ai pensé au mode MDE, mais ce dernier bloque l'option "filtre".

Ci-joint, les paramètres de démarrage :


Si quelqu'un à une idée, merci d'avance

Willy

[loufab]

Bonjour,
Avec la version 2003 il y a encore la sécurité utilisateur : lire et bien comprendre le tuto sur la sécurité. http://loufab.developpez.com/tutoriels/access/securite/

Attention : faire des sauvegardes avant de commencer.

Tu peux la placer sur les formulaires et états. Et compléter par un mot de passe sur VBA.

Cordialement,

[zoom61]

Pour ma part, je procède de cette façon, je crée un module qui contient les fonctions suivantes :

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
Function SetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
End Function
 
Function UnSetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, True
End Function
 
Function ChangeProperty(strPropName As String, varPropType As Long, varPropValue As Variant) As Integer
    Dim dbs As database, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
Change_Bye:
    Exit Function
Change_Err:
    If err = conPropNotFoundError Then    ' Propriété non trouvée.
    Set prp = dbs.CreateProperty(strPropName, _
    varPropType, varPropValue)
    dbs.Properties.Append prp
    Resume Next
Else
  ' --Erreur inconnue.
  Resume Change_Bye
End If
End Function

Ensuite sur un formulaire qui se lance au démarrage, je saisie au chargement du formulaire les commandes suivantes :

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
Private Sub Form_Load()
    SetBypassProperty
    Dim Valeur As Variant
    DoCmd.ShowToolbar "menu bar", acToolbarNo
    DoCmd.ShowToolbar "Form View", acToolbarNo
    DoCmd.ShowToolbar "Web", acToolbarNo
    DoCmd.ShowToolbar "Formatting (Form/Report)", acToolbarNo
    DoCmd.ShowToolbar "Print Preview", acToolbarNo
    DoCmd.ShowToolbar "Toolbox", acToolbarNo
    If SysCmd(acSysCmdAccessVer) >= "12.0" Then
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
        DoCmd.RunCommand acCmdWindowHide
    End If
    DoCmd.ShowToolbar "Nom de la barre d'outils que je veux faire apparaître", acToolbarYes
    DoCmd.Maximize
End Sub

Et sur ce formulaire je n'oublie pas de rajouter la commande suivante sur un texte, un champ, une image...

Code :

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

1
2
3
Private Sub Étiquette_DblClick(Cancel As Integer)
    UnSetBypassProperty
End Sub

Il faut une première fois ouvrir l'application, ce qui permettra d'activer la fonction "SetBypassProperty" et qui aura pour effet de neutraliser la fonction SHIFT au démarrage. Pour la rendre à nouveau active, il faudra lancer la commande contenant la fonction "UnSetBypassProperty".

@+.

[willytito]

Bonjour,

J'ai résolu mon problème en visitant ce lien : http://starec.developpez.com/tuto/barrecommande/

Pour désactiver le menu contextuel : création formulaire, il suffit d'utiliser le code suivant :

Code :

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

Application.CommandBars(88).Enabled = False

Willy