Bonjour,
Je recherche un moyen pour emp=EAcher la=20
fonction "enregistrer sous..." uniquement sur certains=20
fichiers Excel.
J'ai d=E9j=E0 supprimer toutes les barres d'outils et de menu=20
dans une macro au d=E9marrage , mais la touche F12 (ouvre=20
boite enregistrer sous)reste op=E9rationnelle.
Par avance merci =E0 celui ou celle qui saura me trouver le=20
code magique.
Isabelle
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonsoir Isabelle,
Directement inspiré d'une réponse de Garnote à Jacky, à propos d'Echap :
Sub Enregpasou() 'MPFE 03/10/2003 'annule l'effet de F12 Application.OnKey "{F12}", "" End Sub
Sub enregbiensou() 'MPFE 03/10/2003 'rétabli l'effet de F12 Application.OnKey "{F12}" End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Isabelle Lagier" a écrit dans le message de news:1f18f01c389b7$4e162340$ Bonjour, Je recherche un moyen pour empêcher la fonction "enregistrer sous..." uniquement sur certains fichiers Excel. J'ai déjà supprimer toutes les barres d'outils et de menu dans une macro au démarrage , mais la touche F12 (ouvre boite enregistrer sous)reste opérationnelle.
Par avance merci à celui ou celle qui saura me trouver le code magique. Isabelle
Bonsoir Isabelle,
Directement inspiré d'une réponse de Garnote à Jacky, à propos d'Echap :
Sub Enregpasou()
'MPFE 03/10/2003
'annule l'effet de F12
Application.OnKey "{F12}", ""
End Sub
Sub enregbiensou()
'MPFE 03/10/2003
'rétabli l'effet de F12
Application.OnKey "{F12}"
End Sub
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Isabelle Lagier" <isabelle.lagier@beaufour-ipsen.com> a écrit dans le message de
news:1f18f01c389b7$4e162340$a601280a@phx.gbl...
Bonjour,
Je recherche un moyen pour empêcher la
fonction "enregistrer sous..." uniquement sur certains
fichiers Excel.
J'ai déjà supprimer toutes les barres d'outils et de menu
dans une macro au démarrage , mais la touche F12 (ouvre
boite enregistrer sous)reste opérationnelle.
Par avance merci à celui ou celle qui saura me trouver le
code magique.
Isabelle
Directement inspiré d'une réponse de Garnote à Jacky, à propos d'Echap :
Sub Enregpasou() 'MPFE 03/10/2003 'annule l'effet de F12 Application.OnKey "{F12}", "" End Sub
Sub enregbiensou() 'MPFE 03/10/2003 'rétabli l'effet de F12 Application.OnKey "{F12}" End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Isabelle Lagier" a écrit dans le message de news:1f18f01c389b7$4e162340$ Bonjour, Je recherche un moyen pour empêcher la fonction "enregistrer sous..." uniquement sur certains fichiers Excel. J'ai déjà supprimer toutes les barres d'outils et de menu dans une macro au démarrage , mais la touche F12 (ouvre boite enregistrer sous)reste opérationnelle.
Par avance merci à celui ou celle qui saura me trouver le code magique. Isabelle
isabelle
Merci beaucoup C'est la première fois que je venais sur ce news group, je suis emballée
-----Message d'origine----- Bonsoir Isabelle,
Directement inspiré d'une réponse de Garnote à Jacky, à propos d'Echap :
Sub Enregpasou() 'MPFE 03/10/2003 'annule l'effet de F12 Application.OnKey "{F12}", "" End Sub
Sub enregbiensou() 'MPFE 03/10/2003 'rétabli l'effet de F12 Application.OnKey "{F12}" End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Isabelle Lagier" a écrit dans le message de
news:1f18f01c389b7$4e162340$ Bonjour, Je recherche un moyen pour empêcher la fonction "enregistrer sous..." uniquement sur certains fichiers Excel. J'ai déjà supprimer toutes les barres d'outils et de menu dans une macro au démarrage , mais la touche F12 (ouvre boite enregistrer sous)reste opérationnelle.
Par avance merci à celui ou celle qui saura me trouver le code magique. Isabelle
.
Merci beaucoup
C'est la première fois que je venais sur ce news group, je
suis emballée
-----Message d'origine-----
Bonsoir Isabelle,
Directement inspiré d'une réponse de Garnote à Jacky, à
propos d'Echap :
Sub Enregpasou()
'MPFE 03/10/2003
'annule l'effet de F12
Application.OnKey "{F12}", ""
End Sub
Sub enregbiensou()
'MPFE 03/10/2003
'rétabli l'effet de F12
Application.OnKey "{F12}"
End Sub
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Isabelle Lagier" <isabelle.lagier@beaufour-ipsen.com> a
écrit dans le message de
news:1f18f01c389b7$4e162340$a601280a@phx.gbl...
Bonjour,
Je recherche un moyen pour empêcher la
fonction "enregistrer sous..." uniquement sur certains
fichiers Excel.
J'ai déjà supprimer toutes les barres d'outils et de menu
dans une macro au démarrage , mais la touche F12 (ouvre
boite enregistrer sous)reste opérationnelle.
Par avance merci à celui ou celle qui saura me trouver le
code magique.
Isabelle
Merci beaucoup C'est la première fois que je venais sur ce news group, je suis emballée
-----Message d'origine----- Bonsoir Isabelle,
Directement inspiré d'une réponse de Garnote à Jacky, à propos d'Echap :
Sub Enregpasou() 'MPFE 03/10/2003 'annule l'effet de F12 Application.OnKey "{F12}", "" End Sub
Sub enregbiensou() 'MPFE 03/10/2003 'rétabli l'effet de F12 Application.OnKey "{F12}" End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Isabelle Lagier" a écrit dans le message de
news:1f18f01c389b7$4e162340$ Bonjour, Je recherche un moyen pour empêcher la fonction "enregistrer sous..." uniquement sur certains fichiers Excel. J'ai déjà supprimer toutes les barres d'outils et de menu dans une macro au démarrage , mais la touche F12 (ouvre boite enregistrer sous)reste opérationnelle.
Par avance merci à celui ou celle qui saura me trouver le code magique. Isabelle
.
Philippe.R
Bonsoir Isabelle, c'était avec plaisir ! Reste en ligne, Monique ne devrait pas tarder à t'envoyer le Message de Bienvenue de rigueur. -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"isabelle" a écrit dans le message de news:170001c38cbe$70a9ffd0$ Merci beaucoup C'est la première fois que je venais sur ce news group, je suis emballée
-----Message d'origine----- Bonsoir Isabelle,
Directement inspiré d'une réponse de Garnote à Jacky, à propos d'Echap :
Sub Enregpasou() 'MPFE 03/10/2003 'annule l'effet de F12 Application.OnKey "{F12}", "" End Sub
Sub enregbiensou() 'MPFE 03/10/2003 'rétabli l'effet de F12 Application.OnKey "{F12}" End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Isabelle Lagier" a écrit dans le message de
news:1f18f01c389b7$4e162340$ Bonjour, Je recherche un moyen pour empêcher la fonction "enregistrer sous..." uniquement sur certains fichiers Excel. J'ai déjà supprimer toutes les barres d'outils et de menu dans une macro au démarrage , mais la touche F12 (ouvre boite enregistrer sous)reste opérationnelle.
Par avance merci à celui ou celle qui saura me trouver le code magique. Isabelle
.
Bonsoir Isabelle, c'était avec plaisir !
Reste en ligne, Monique ne devrait pas tarder à t'envoyer le Message de Bienvenue de rigueur.
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"isabelle" <isabelle.lagier@beaufour-ipsen.com> a écrit dans le message de
news:170001c38cbe$70a9ffd0$7d02280a@phx.gbl...
Merci beaucoup
C'est la première fois que je venais sur ce news group, je
suis emballée
-----Message d'origine-----
Bonsoir Isabelle,
Directement inspiré d'une réponse de Garnote à Jacky, à
propos d'Echap :
Sub Enregpasou()
'MPFE 03/10/2003
'annule l'effet de F12
Application.OnKey "{F12}", ""
End Sub
Sub enregbiensou()
'MPFE 03/10/2003
'rétabli l'effet de F12
Application.OnKey "{F12}"
End Sub
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Isabelle Lagier" <isabelle.lagier@beaufour-ipsen.com> a
écrit dans le message de
news:1f18f01c389b7$4e162340$a601280a@phx.gbl...
Bonjour,
Je recherche un moyen pour empêcher la
fonction "enregistrer sous..." uniquement sur certains
fichiers Excel.
J'ai déjà supprimer toutes les barres d'outils et de menu
dans une macro au démarrage , mais la touche F12 (ouvre
boite enregistrer sous)reste opérationnelle.
Par avance merci à celui ou celle qui saura me trouver le
code magique.
Isabelle
Bonsoir Isabelle, c'était avec plaisir ! Reste en ligne, Monique ne devrait pas tarder à t'envoyer le Message de Bienvenue de rigueur. -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"isabelle" a écrit dans le message de news:170001c38cbe$70a9ffd0$ Merci beaucoup C'est la première fois que je venais sur ce news group, je suis emballée
-----Message d'origine----- Bonsoir Isabelle,
Directement inspiré d'une réponse de Garnote à Jacky, à propos d'Echap :
Sub Enregpasou() 'MPFE 03/10/2003 'annule l'effet de F12 Application.OnKey "{F12}", "" End Sub
Sub enregbiensou() 'MPFE 03/10/2003 'rétabli l'effet de F12 Application.OnKey "{F12}" End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Isabelle Lagier" a écrit dans le message de
news:1f18f01c389b7$4e162340$ Bonjour, Je recherche un moyen pour empêcher la fonction "enregistrer sous..." uniquement sur certains fichiers Excel. J'ai déjà supprimer toutes les barres d'outils et de menu dans une macro au démarrage , mais la touche F12 (ouvre boite enregistrer sous)reste opérationnelle.
Par avance merci à celui ou celle qui saura me trouver le code magique. Isabelle
.
Croquignol
Bonsoir Isabelle,
Je recherche un moyen pour empêcher la fonction "enregistrer sous..." uniquement sur certains fichiers Excel. J'ai déjà supprimer toutes les barres d'outils et de menu dans une macro au démarrage , mais la touche F12 (ouvre boite enregistrer sous)reste opérationnelle.
Dans le module ThisWorkbook de chaque classeur concerné :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = SaveAsUI End Sub
Bonne chance,
Croquignol
Bonsoir Isabelle,
Je recherche un moyen pour empêcher la
fonction "enregistrer sous..." uniquement sur certains
fichiers Excel.
J'ai déjà supprimer toutes les barres d'outils et de menu
dans une macro au démarrage , mais la touche F12 (ouvre
boite enregistrer sous)reste opérationnelle.
Dans le module ThisWorkbook de chaque classeur concerné :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Cancel = SaveAsUI
End Sub
Je recherche un moyen pour empêcher la fonction "enregistrer sous..." uniquement sur certains fichiers Excel. J'ai déjà supprimer toutes les barres d'outils et de menu dans une macro au démarrage , mais la touche F12 (ouvre boite enregistrer sous)reste opérationnelle.
Dans le module ThisWorkbook de chaque classeur concerné :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = SaveAsUI End Sub
