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

Sécurité Discussion :

Désactiver et activer la touche Shift


Sujet :

Sécurité

  1. #1
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Désactiver et activer la touche Shift
    bonjour,

    Après plusieurs heures de recherches j'ai enfin, trouvé sur le forum mon bonheur pour sésactiver et activer la touche Shift. Cà marche très bien sauf que si l'on garde la touche Shift appuyée lors du lancement de l'aplication nous avons quand même accès aux macros, aux options de démarrage et de sécurité par le biais du menu.
    Y aurait il une solution ou une modification à aporter au code?
    Merci de votre aide.
    Ci-dessous les codes utilisés:

    Dans un formulaire contenant deux boutons :

    1- VEROUILLER LA BSE
    2- DEVEROUILLER LA BASE

    Dans l'evenement sur clic de "VERROUILLER"j'ai placer le code :

    Module1.SetBypassProperty
    If MsgBox("Vous verrouiller votre application .Voulez vous continuer?", _
    vbQuestion + vbYesNo) = vbYes Then
    DoCmd.Quit

    End If

    Dans l'evenement sur clic de "DEVERROUILLER"j'ai placer le code :
    Module1.UnSetBypassProperty
    If MsgBox("Vous verrouiller votre application .Voulez vous continuer?", _
    vbQuestion + vbYesNo) = vbYes Then
    DoCmd.Quit

    End If


    Module1 : c'est le nom du module du code

    Dnoc à chaque fois que tu veux faire des modifications tu pemet le schift puis apres avoir terminer tu l'enleve

    le code placé dans le module 1 c'est :


    Sub SetBypassProperty()
    Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
    End Sub

    Sub UnSetBypassProperty()
    Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, True
    End Sub

    Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

    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.
    ChangeProperty = False
    Resume Change_Bye
    End If
    End Function

  2. #2
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 2
    Points : 1
    Points
    1
    Par défaut
    bonjour,

    Milles excuses, je viens pour corriger mon erreur après lecture le votre message.

    Après plusieurs heures et jours de recherches et de tests j'ai enfin, trouvé sur le forum mon bonheur pour sésactiver et activer la touche Shift.
    Cà marche très bien sauf que si l'on garde la touche Shift appuyée lors du lancement de l'aplication nous avons quand même accès aux macros, aux options de démarrage et de sécurité par le biais de la barre menu.

    Y aurait il une solution ou une modification à apporter au code?

    Merci de votre aide.

    Ci-dessous les codes utilisés:

    J'ai crée un formulaire contenant deux boutons :

    1- VEROUILLER LA BSE
    2- DEVEROUILLER LA BASE

    Dans l'evenement sur clic de "VERROUILLER"j'ai placer le code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Module1.SetBypassProperty
    If MsgBox("Vous verrouiller votre application .Voulez vous continuer?", _
    vbQuestion + vbYesNo) = vbYes Then
    DoCmd.Quit
     
    End If
    Dans l'evenement sur clic de "DEVERROUILLER"j'ai placer le code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Module1.UnSetBypassProperty
    If MsgBox("Vous verrouiller votre application .Voulez vous continuer?", _
    vbQuestion + vbYesNo) = vbYes Then
    DoCmd.Quit
     
    End If


    le code placé dans le module 1 c'est :


    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
    Sub SetBypassProperty()
    Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
    End Sub
     
    Sub UnSetBypassProperty()
    Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, True
    End Sub
     
    Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
     
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
     
    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.
    ChangeProperty = False
    Resume Change_Bye
    End If
    End Function
    Merci de votre compréhension.

  3. #3
    Rédacteur/Modérateur
    Avatar de loufab
    Homme Profil pro
    Entrepreneur en solutions informatiques viables et fonctionnelles.
    Inscrit en
    Avril 2005
    Messages
    11 986
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Entrepreneur en solutions informatiques viables et fonctionnelles.
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2005
    Messages : 11 986
    Points : 24 531
    Points
    24 531
    Par défaut
    Bonjour,

    Il faut faire afficher un menu personnel (voir la faq pour cela) cela se paramètre dans les options de démarrage.

    PAr contre cela n'empêchera pas quelqu'un d'y accéder. Lis le tuto sur les sécurités pour comprendre comment tu dois procéder.

    Cordialement,
    Détecter les modifications formulaire Cloud storage et ACCESS
    Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
    Visitez mon Blog
    Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie

  4. #4
    Membre à l'essai
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Septembre 2016
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Enseignement

    Informations forums :
    Inscription : Septembre 2016
    Messages : 13
    Points : 18
    Points
    18
    Par défaut bONJOUR
    Pour empêcher l'utilisateur d'avoir accès à la structure de ta BD, plusieurs solution sont a chercher dont je ne maitrise pas l'ensemble. par contre tu pourrais aller dans le Menu Outils, et desactiver le navigateur Access, aussi tu pourrais créer un fichier MDE après compilation du code VBA.


    Bonne chance pour la suite

Discussions similaires

  1. Désactiver touche SHIFT
    Par Jacques-Henri dans le forum Sécurité
    Réponses: 18
    Dernier message: 11/02/2016, 13h03
  2. [AC-2010] Affichage formulaire avec touche Shift activée
    Par Jacques-Henri dans le forum VBA Access
    Réponses: 4
    Dernier message: 09/10/2011, 13h57
  3. [AC-2003] Désactivé touche shift
    Par scado dans le forum Sécurité
    Réponses: 4
    Dernier message: 01/08/2010, 15h53
  4. désactiver touche shift d'une base ADP sur SQL SERVEUR
    Par bilouk dans le forum Projets ADP
    Réponses: 2
    Dernier message: 03/08/2007, 15h48
  5. Comment activer la touche shift?
    Par JavaAcro dans le forum Debian
    Réponses: 5
    Dernier message: 21/08/2006, 12h57

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