Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Désactiver les macros d'un fichier

Désactiver les macros d'un fichier

4 réponses
Avatar
G. L
Bonjour à tous,
Est-il possible de désactiver les macros d'un fichier dès lors qu'il a
changé de nom.?
Je m'explique le fichier travail.xls est enregistré et zippé par macro sous
travail_date.xls
A l'ouverture de travail_date.xls je souhaite ne plus avoir de macro
activable.
J'ai fais une recherche en vain.
Merci d'avance
Gérard
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
isabelle
bonjour Gérard,

le plus facile est de faire une copie de toutes les feuilles du classeur
"travail.xls" dans un nouveau classeur.
ce nouveau classeur sera enregistrer sous "travail_date.xls"

ActiveWorkbook.Sheets.Copy
ActiveWorkbook.SaveAs Filename:= _
"C:Mes documentstravail_date.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
eadOnlyRecommended:úlse, CreateBackup:úlse

isabelle


Bonjour à tous,
Est-il possible de désactiver les macros d'un fichier dès lors qu'il a
changé de nom.?
Je m'explique le fichier travail.xls est enregistré et zippé par macro sous
travail_date.xls
A l'ouverture de travail_date.xls je souhaite ne plus avoir de macro
activable.
J'ai fais une recherche en vain.
Merci d'avance
Gérard


Avatar
G. L
Bonsoir Isabelle,

Oui suis-je bête c'est la solution. Pourquoi faire compliqué ?

Néanmoins pour évoluer un peu, je pensais :

A l'ouverture du fichier travail_date.xls tester le nom du fichier et si le
nom était différent de l'original pouvoir désactiver les macros.

Merci pour cette réponse rapide

Gérard





"isabelle" a écrit dans le message de
news:
bonjour Gérard,

le plus facile est de faire une copie de toutes les feuilles du classeur
"travail.xls" dans un nouveau classeur.
ce nouveau classeur sera enregistrer sous "travail_date.xls"

ActiveWorkbook.Sheets.Copy
ActiveWorkbook.SaveAs Filename:= _
"C:Mes documentstravail_date.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
eadOnlyRecommended:úlse, CreateBackup:úlse

isabelle


Bonjour à tous,
Est-il possible de désactiver les macros d'un fichier dès lors qu'il a
changé de nom.?
Je m'explique le fichier travail.xls est enregistré et zippé par macro
sous


travail_date.xls
A l'ouverture de travail_date.xls je souhaite ne plus avoir de macro
activable.
J'ai fais une recherche en vain.
Merci d'avance
Gérard




Avatar
isabelle
bonjour Gérard,

oui, c'est une solution, il faudrait ajouter cette ligne de code au
début de tout les macros du classeur.

If ActiveWorkbook.Name <> "travail" Then Exit Sub

isabelle


Bonsoir Isabelle,

Oui suis-je bête c'est la solution. Pourquoi faire compliqué ?

Néanmoins pour évoluer un peu, je pensais :

A l'ouverture du fichier travail_date.xls tester le nom du fichier et si le
nom était différent de l'original pouvoir désactiver les macros.

Merci pour cette réponse rapide

Gérard

"isabelle" a écrit dans le message de
news:
bonjour Gérard,

le plus facile est de faire une copie de toutes les feuilles du classeur
"travail.xls" dans un nouveau classeur.
ce nouveau classeur sera enregistrer sous "travail_date.xls"

ActiveWorkbook.Sheets.Copy
ActiveWorkbook.SaveAs Filename:= _
"C:Mes documentstravail_date.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
eadOnlyRecommended:úlse, CreateBackup:úlse

isabelle


Bonjour à tous,
Est-il possible de désactiver les macros d'un fichier dès lors qu'il a
changé de nom.?
Je m'explique le fichier travail.xls est enregistré et zippé par macro
sous


travail_date.xls
A l'ouverture de travail_date.xls je souhaite ne plus avoir de macro
activable.
J'ai fais une recherche en vain.
Merci d'avance
Gérard






Avatar
G. L
Bonjour Isabelle,

Génial ! c'est parfait, merci beaucoup.

Gérard


"isabelle" a écrit dans le message de
news:
bonjour Gérard,

oui, c'est une solution, il faudrait ajouter cette ligne de code au
début de tout les macros du classeur.

If ActiveWorkbook.Name <> "travail" Then Exit Sub

isabelle


Bonsoir Isabelle,

Oui suis-je bête c'est la solution. Pourquoi faire compliqué ?

Néanmoins pour évoluer un peu, je pensais :

A l'ouverture du fichier travail_date.xls tester le nom du fichier et si
le


nom était différent de l'original pouvoir désactiver les macros.

Merci pour cette réponse rapide

Gérard

"isabelle" a écrit dans le message de
news:
bonjour Gérard,

le plus facile est de faire une copie de toutes les feuilles du
classeur



"travail.xls" dans un nouveau classeur.
ce nouveau classeur sera enregistrer sous "travail_date.xls"

ActiveWorkbook.Sheets.Copy
ActiveWorkbook.SaveAs Filename:= _
"C:Mes documentstravail_date.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
eadOnlyRecommended:úlse, CreateBackup:úlse

isabelle


Bonjour à tous,
Est-il possible de désactiver les macros d'un fichier dès lors qu'il
a




changé de nom.?
Je m'explique le fichier travail.xls est enregistré et zippé par
macro




sous
travail_date.xls
A l'ouverture de travail_date.xls je souhaite ne plus avoir de macro
activable.
J'ai fais une recherche en vain.
Merci d'avance
Gérard