Est-il possible avec du code VBA de programmer un bouton qui me permettrai
d'afficher la fenetre "base de donnée", si je l'ai désactivée dans le menu
"option" ??
Est-il possible avec du code VBA de programmer un bouton qui me permettrai
d'afficher la fenetre "base de donnée", si je l'ai désactivée dans le menu
"option" ??
Est-il possible avec du code VBA de programmer un bouton qui me permettrai
d'afficher la fenetre "base de donnée", si je l'ai désactivée dans le menu
"option" ??
Est-il possible avec du code VBA de programmer un bouton qui me permettrai
d'afficher la fenetre "base de donnée", si je l'ai désactivée dans le menu
"option" ??
Est-il possible avec du code VBA de programmer un bouton qui me permettrai
d'afficher la fenetre "base de donnée", si je l'ai désactivée dans le menu
"option" ??
Est-il possible avec du code VBA de programmer un bouton qui me permettrai
d'afficher la fenetre "base de donnée", si je l'ai désactivée dans le menu
"option" ??
Tu peux utiliser ces deux fonctions, qui te permetttent de régler toutes
les
propriétés accessibles dans le menu Options, Démarrage.
Pour valider ou non ces options, j'utilise 2 macros, une pour activer,
l'autre pour désactiver la sécurité.
Attention à ne pas utiliser la dernière à la légère: AllowByPassKey, qui
permet d'ignorer ces options et le lancement de la macro autoexec en
appuyant sur shift.
Function Paramétrage_Propriétés_Démarrage(Sécurité As Boolean)
'Règle les paramètres de démarrage de l'application pour une utilisation
sécurisée
On Error GoTo Err_Paramétrage_Propriétés_Démarrage
Select Case Sécurité
Case True 'Active la sécurité
Modifier_Propriétés "AppTitle", dbText, "Base de référence"
Modifier_Propriétés "StartupForm", dbText, "(aucune)"
Modifier_Propriétés "AppIcon", dbText, " "
Modifier_Propriétés "StartupShowDBWindow", dbBoolean, False
Modifier_Propriétés "StartupShowStatusBar", dbBoolean, False
Modifier_Propriétés "StartupMenuBar", dbText, "(défaut)"
Modifier_Propriétés "StartupShortcutMenuBar", dbText,
"(défaut)"
Modifier_Propriétés "AllowFullMenus", dbBoolean, False
Modifier_Propriétés "AllowShortcutMenus", dbBoolean, False
Modifier_Propriétés "AllowBuiltinToolbars", dbBoolean, False
Modifier_Propriétés "AllowToolbarChanges", dbBoolean, False
Modifier_Propriétés "AllowBreakIntoCode", dbBoolean, False
Modifier_Propriétés "AllowSpecialKeys", dbBoolean, False
Modifier_Propriétés "AllowBypassKey", dbBoolean, False
Case False 'Désactive la sécurité
Modifier_Propriétés "AppTitle", dbText, "Base de référence"
Modifier_Propriétés "StartupForm", dbText, "(aucune)"
Modifier_Propriétés "AppIcon", dbText, " "
Modifier_Propriétés "StartupShowDBWindow", dbBoolean, True
Modifier_Propriétés "StartupShowStatusBar", dbBoolean, True
Modifier_Propriétés "StartupMenuBar", dbText, "(défaut)"
Modifier_Propriétés "StartupShortcutMenuBar", dbText,
"(défaut)"
Modifier_Propriétés "AllowFullMenus", dbBoolean, True
Modifier_Propriétés "AllowShortcutMenus", dbBoolean, True
Modifier_Propriétés "AllowBuiltinToolbars", dbBoolean, True
Modifier_Propriétés "AllowToolbarChanges", dbBoolean, True
Modifier_Propriétés "AllowBreakIntoCode", dbBoolean, True
Modifier_Propriétés "AllowSpecialKeys", dbBoolean, True
Modifier_Propriétés "AllowBypassKey", dbBoolean, True
End Select
'AppTitle Titre de l'application
'StartupForm Formulaire de démarrage
'AppIcon Icône de l'application
'StartupShowDBWindow Fenêtre de base de données
'StartupShowStatusBar Barre de statut
'StartupMenuBar Barre de menu de démarrage ?
'StartupShortcutMenuBar Barre de menu contextuel
'AllowFullMenus Menus complets
'AllowShortcutMenus Menus contextuels par défaut
'AllowBuiltinToolbars Barres d'outils intégrées
'AllowToolbarChanges Modification des menus
'AllowBreakIntoCode Affichage du code après erreur
'AllowSpecialKeys Touches d'accès spéciales
'AllowBypassKey Empêche utilisation de shift au démarrage
Exit_Paramétrage_Propriétés_Démarrage:
Exit Function
Err_Paramétrage_Propriétés_Démarrage:
MsgBox "Erreur n° " & Err.Number & ": " & Err.Description
Resume Exit_Paramétrage_Propriétés_Démarrage
End Function
'--------------------------------------------------------------------------
Function Modifier_Propriétés(Nom_Propriété As String, Type_Propriété As
Variant, Valeur_Propriété As Variant) As Boolean
On Error GoTo Err_Modifier_Propriétés
Dim Propriete As Property
CurrentDb.Properties(Nom_Propriété) = Valeur_Propriété
Modifier_Propriétés = True
Exit_Modifier_Propriétés:
Exit Function
Err_Modifier_Propriétés:
Select Case Err
Case 3270 'Propriété non trouvée
Set Propriete = CurrentDb.CreateProperty(Nom_Propriété,
Type_Propriété, Valeur_Propriété)
CurrentDb.Properties.Append Propriete
Resume
Case Else
Modifier_Propriétés = False
MsgBox "Erreur n° " & Err.Number & ": " & Err.Description
Resume Exit_Modifier_Propriétés
End Select
End Function
"le méruvien" a écrit dans le message de
news:41f64938$0$18260$Est-il possible avec du code VBA de programmer un bouton qui me
permettrai
d'afficher la fenetre "base de donnée", si je l'ai désactivée dans le
menu
"option" ??
Tu peux utiliser ces deux fonctions, qui te permetttent de régler toutes
les
propriétés accessibles dans le menu Options, Démarrage.
Pour valider ou non ces options, j'utilise 2 macros, une pour activer,
l'autre pour désactiver la sécurité.
Attention à ne pas utiliser la dernière à la légère: AllowByPassKey, qui
permet d'ignorer ces options et le lancement de la macro autoexec en
appuyant sur shift.
Function Paramétrage_Propriétés_Démarrage(Sécurité As Boolean)
'Règle les paramètres de démarrage de l'application pour une utilisation
sécurisée
On Error GoTo Err_Paramétrage_Propriétés_Démarrage
Select Case Sécurité
Case True 'Active la sécurité
Modifier_Propriétés "AppTitle", dbText, "Base de référence"
Modifier_Propriétés "StartupForm", dbText, "(aucune)"
Modifier_Propriétés "AppIcon", dbText, " "
Modifier_Propriétés "StartupShowDBWindow", dbBoolean, False
Modifier_Propriétés "StartupShowStatusBar", dbBoolean, False
Modifier_Propriétés "StartupMenuBar", dbText, "(défaut)"
Modifier_Propriétés "StartupShortcutMenuBar", dbText,
"(défaut)"
Modifier_Propriétés "AllowFullMenus", dbBoolean, False
Modifier_Propriétés "AllowShortcutMenus", dbBoolean, False
Modifier_Propriétés "AllowBuiltinToolbars", dbBoolean, False
Modifier_Propriétés "AllowToolbarChanges", dbBoolean, False
Modifier_Propriétés "AllowBreakIntoCode", dbBoolean, False
Modifier_Propriétés "AllowSpecialKeys", dbBoolean, False
Modifier_Propriétés "AllowBypassKey", dbBoolean, False
Case False 'Désactive la sécurité
Modifier_Propriétés "AppTitle", dbText, "Base de référence"
Modifier_Propriétés "StartupForm", dbText, "(aucune)"
Modifier_Propriétés "AppIcon", dbText, " "
Modifier_Propriétés "StartupShowDBWindow", dbBoolean, True
Modifier_Propriétés "StartupShowStatusBar", dbBoolean, True
Modifier_Propriétés "StartupMenuBar", dbText, "(défaut)"
Modifier_Propriétés "StartupShortcutMenuBar", dbText,
"(défaut)"
Modifier_Propriétés "AllowFullMenus", dbBoolean, True
Modifier_Propriétés "AllowShortcutMenus", dbBoolean, True
Modifier_Propriétés "AllowBuiltinToolbars", dbBoolean, True
Modifier_Propriétés "AllowToolbarChanges", dbBoolean, True
Modifier_Propriétés "AllowBreakIntoCode", dbBoolean, True
Modifier_Propriétés "AllowSpecialKeys", dbBoolean, True
Modifier_Propriétés "AllowBypassKey", dbBoolean, True
End Select
'AppTitle Titre de l'application
'StartupForm Formulaire de démarrage
'AppIcon Icône de l'application
'StartupShowDBWindow Fenêtre de base de données
'StartupShowStatusBar Barre de statut
'StartupMenuBar Barre de menu de démarrage ?
'StartupShortcutMenuBar Barre de menu contextuel
'AllowFullMenus Menus complets
'AllowShortcutMenus Menus contextuels par défaut
'AllowBuiltinToolbars Barres d'outils intégrées
'AllowToolbarChanges Modification des menus
'AllowBreakIntoCode Affichage du code après erreur
'AllowSpecialKeys Touches d'accès spéciales
'AllowBypassKey Empêche utilisation de shift au démarrage
Exit_Paramétrage_Propriétés_Démarrage:
Exit Function
Err_Paramétrage_Propriétés_Démarrage:
MsgBox "Erreur n° " & Err.Number & ": " & Err.Description
Resume Exit_Paramétrage_Propriétés_Démarrage
End Function
'--------------------------------------------------------------------------
Function Modifier_Propriétés(Nom_Propriété As String, Type_Propriété As
Variant, Valeur_Propriété As Variant) As Boolean
On Error GoTo Err_Modifier_Propriétés
Dim Propriete As Property
CurrentDb.Properties(Nom_Propriété) = Valeur_Propriété
Modifier_Propriétés = True
Exit_Modifier_Propriétés:
Exit Function
Err_Modifier_Propriétés:
Select Case Err
Case 3270 'Propriété non trouvée
Set Propriete = CurrentDb.CreateProperty(Nom_Propriété,
Type_Propriété, Valeur_Propriété)
CurrentDb.Properties.Append Propriete
Resume
Case Else
Modifier_Propriétés = False
MsgBox "Erreur n° " & Err.Number & ": " & Err.Description
Resume Exit_Modifier_Propriétés
End Select
End Function
"le méruvien" <Rvdb.roger@free.fr> a écrit dans le message de
news:41f64938$0$18260$626a14ce@news.free.fr...
Est-il possible avec du code VBA de programmer un bouton qui me
permettrai
d'afficher la fenetre "base de donnée", si je l'ai désactivée dans le
menu
"option" ??
Tu peux utiliser ces deux fonctions, qui te permetttent de régler toutes
les
propriétés accessibles dans le menu Options, Démarrage.
Pour valider ou non ces options, j'utilise 2 macros, une pour activer,
l'autre pour désactiver la sécurité.
Attention à ne pas utiliser la dernière à la légère: AllowByPassKey, qui
permet d'ignorer ces options et le lancement de la macro autoexec en
appuyant sur shift.
Function Paramétrage_Propriétés_Démarrage(Sécurité As Boolean)
'Règle les paramètres de démarrage de l'application pour une utilisation
sécurisée
On Error GoTo Err_Paramétrage_Propriétés_Démarrage
Select Case Sécurité
Case True 'Active la sécurité
Modifier_Propriétés "AppTitle", dbText, "Base de référence"
Modifier_Propriétés "StartupForm", dbText, "(aucune)"
Modifier_Propriétés "AppIcon", dbText, " "
Modifier_Propriétés "StartupShowDBWindow", dbBoolean, False
Modifier_Propriétés "StartupShowStatusBar", dbBoolean, False
Modifier_Propriétés "StartupMenuBar", dbText, "(défaut)"
Modifier_Propriétés "StartupShortcutMenuBar", dbText,
"(défaut)"
Modifier_Propriétés "AllowFullMenus", dbBoolean, False
Modifier_Propriétés "AllowShortcutMenus", dbBoolean, False
Modifier_Propriétés "AllowBuiltinToolbars", dbBoolean, False
Modifier_Propriétés "AllowToolbarChanges", dbBoolean, False
Modifier_Propriétés "AllowBreakIntoCode", dbBoolean, False
Modifier_Propriétés "AllowSpecialKeys", dbBoolean, False
Modifier_Propriétés "AllowBypassKey", dbBoolean, False
Case False 'Désactive la sécurité
Modifier_Propriétés "AppTitle", dbText, "Base de référence"
Modifier_Propriétés "StartupForm", dbText, "(aucune)"
Modifier_Propriétés "AppIcon", dbText, " "
Modifier_Propriétés "StartupShowDBWindow", dbBoolean, True
Modifier_Propriétés "StartupShowStatusBar", dbBoolean, True
Modifier_Propriétés "StartupMenuBar", dbText, "(défaut)"
Modifier_Propriétés "StartupShortcutMenuBar", dbText,
"(défaut)"
Modifier_Propriétés "AllowFullMenus", dbBoolean, True
Modifier_Propriétés "AllowShortcutMenus", dbBoolean, True
Modifier_Propriétés "AllowBuiltinToolbars", dbBoolean, True
Modifier_Propriétés "AllowToolbarChanges", dbBoolean, True
Modifier_Propriétés "AllowBreakIntoCode", dbBoolean, True
Modifier_Propriétés "AllowSpecialKeys", dbBoolean, True
Modifier_Propriétés "AllowBypassKey", dbBoolean, True
End Select
'AppTitle Titre de l'application
'StartupForm Formulaire de démarrage
'AppIcon Icône de l'application
'StartupShowDBWindow Fenêtre de base de données
'StartupShowStatusBar Barre de statut
'StartupMenuBar Barre de menu de démarrage ?
'StartupShortcutMenuBar Barre de menu contextuel
'AllowFullMenus Menus complets
'AllowShortcutMenus Menus contextuels par défaut
'AllowBuiltinToolbars Barres d'outils intégrées
'AllowToolbarChanges Modification des menus
'AllowBreakIntoCode Affichage du code après erreur
'AllowSpecialKeys Touches d'accès spéciales
'AllowBypassKey Empêche utilisation de shift au démarrage
Exit_Paramétrage_Propriétés_Démarrage:
Exit Function
Err_Paramétrage_Propriétés_Démarrage:
MsgBox "Erreur n° " & Err.Number & ": " & Err.Description
Resume Exit_Paramétrage_Propriétés_Démarrage
End Function
'--------------------------------------------------------------------------
Function Modifier_Propriétés(Nom_Propriété As String, Type_Propriété As
Variant, Valeur_Propriété As Variant) As Boolean
On Error GoTo Err_Modifier_Propriétés
Dim Propriete As Property
CurrentDb.Properties(Nom_Propriété) = Valeur_Propriété
Modifier_Propriétés = True
Exit_Modifier_Propriétés:
Exit Function
Err_Modifier_Propriétés:
Select Case Err
Case 3270 'Propriété non trouvée
Set Propriete = CurrentDb.CreateProperty(Nom_Propriété,
Type_Propriété, Valeur_Propriété)
CurrentDb.Properties.Append Propriete
Resume
Case Else
Modifier_Propriétés = False
MsgBox "Erreur n° " & Err.Number & ": " & Err.Description
Resume Exit_Modifier_Propriétés
End Select
End Function
"le méruvien" a écrit dans le message de
news:41f64938$0$18260$Est-il possible avec du code VBA de programmer un bouton qui me
permettrai
d'afficher la fenetre "base de donnée", si je l'ai désactivée dans le
menu
"option" ??
