Bonjour,
Je voudrais, dans un programme VBA, supprimer les macros contenues dans un
(autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que le
destinataire aie la question "voulez-vous activer les macros" en ouvrant le
document).
Comment faire ?
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
papou
Bonjour Modifier "Toto.xls" avec le nom du classeur : Sub SupprToutCode() Dim Composantvbe As Object With Workbooks("Toto.xls").VBProject For Each Composantvbe In .VBComponents If Composantvbe.Type = 100 Then With Composantvbe.CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Else: .VBComponents.Remove Composantvbe End If Next Composantvbe End With End Sub
Cordialement Pascal "Bernard SC" a écrit dans le message de news:%
Bonjour, Je voudrais, dans un programme VBA, supprimer les macros contenues dans un (autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que le destinataire aie la question "voulez-vous activer les macros" en ouvrant le
document). Comment faire ?
Bernard
Bonjour
Modifier "Toto.xls" avec le nom du classeur :
Sub SupprToutCode()
Dim Composantvbe As Object
With Workbooks("Toto.xls").VBProject
For Each Composantvbe In .VBComponents
If Composantvbe.Type = 100 Then
With Composantvbe.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove Composantvbe
End If
Next Composantvbe
End With
End Sub
Cordialement
Pascal
"Bernard SC" <bsimonchPASDESPAM@wanadoo.fr> a écrit dans le message de
news:%23Wgw3cOwEHA.3716@TK2MSFTNGP15.phx.gbl...
Bonjour,
Je voudrais, dans un programme VBA, supprimer les macros contenues dans un
(autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que le
destinataire aie la question "voulez-vous activer les macros" en ouvrant
le
Bonjour Modifier "Toto.xls" avec le nom du classeur : Sub SupprToutCode() Dim Composantvbe As Object With Workbooks("Toto.xls").VBProject For Each Composantvbe In .VBComponents If Composantvbe.Type = 100 Then With Composantvbe.CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Else: .VBComponents.Remove Composantvbe End If Next Composantvbe End With End Sub
Cordialement Pascal "Bernard SC" a écrit dans le message de news:%
Bonjour, Je voudrais, dans un programme VBA, supprimer les macros contenues dans un (autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que le destinataire aie la question "voulez-vous activer les macros" en ouvrant le
document). Comment faire ?
Bernard
Bernard SC
Merci ! J'ai cependant une erreur 1004 ".... non fiable ...", en voulant lire, par exemple VBProject.name.. Probablement un contrôle de sécurité. Pourtant j'ai passé en Option / Sécurité / Sécurité des macros faible. Je réessaierai demain.
"papou" a écrit dans le message de news: u9da$
Bonjour Modifier "Toto.xls" avec le nom du classeur : Sub SupprToutCode() Dim Composantvbe As Object With Workbooks("Toto.xls").VBProject For Each Composantvbe In .VBComponents If Composantvbe.Type = 100 Then With Composantvbe.CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Else: .VBComponents.Remove Composantvbe End If Next Composantvbe End With End Sub
Cordialement Pascal "Bernard SC" a écrit dans le message de news:%
Bonjour, Je voudrais, dans un programme VBA, supprimer les macros contenues dans un (autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que le destinataire aie la question "voulez-vous activer les macros" en ouvrant le
document). Comment faire ?
Bernard
Merci !
J'ai cependant une erreur 1004 ".... non fiable ...", en voulant lire, par
exemple VBProject.name..
Probablement un contrôle de sécurité. Pourtant j'ai passé en Option /
Sécurité / Sécurité des macros faible.
Je réessaierai demain.
"papou" <pasbonpapou@canonplus44.fr> a écrit dans le message de news:
u9da$3OwEHA.536@TK2MSFTNGP11.phx.gbl...
Bonjour
Modifier "Toto.xls" avec le nom du classeur :
Sub SupprToutCode()
Dim Composantvbe As Object
With Workbooks("Toto.xls").VBProject
For Each Composantvbe In .VBComponents
If Composantvbe.Type = 100 Then
With Composantvbe.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove Composantvbe
End If
Next Composantvbe
End With
End Sub
Cordialement
Pascal
"Bernard SC" <bsimonchPASDESPAM@wanadoo.fr> a écrit dans le message de
news:%23Wgw3cOwEHA.3716@TK2MSFTNGP15.phx.gbl...
Bonjour,
Je voudrais, dans un programme VBA, supprimer les macros contenues dans
un
(autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que le
destinataire aie la question "voulez-vous activer les macros" en ouvrant
le
Merci ! J'ai cependant une erreur 1004 ".... non fiable ...", en voulant lire, par exemple VBProject.name.. Probablement un contrôle de sécurité. Pourtant j'ai passé en Option / Sécurité / Sécurité des macros faible. Je réessaierai demain.
"papou" a écrit dans le message de news: u9da$
Bonjour Modifier "Toto.xls" avec le nom du classeur : Sub SupprToutCode() Dim Composantvbe As Object With Workbooks("Toto.xls").VBProject For Each Composantvbe In .VBComponents If Composantvbe.Type = 100 Then With Composantvbe.CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Else: .VBComponents.Remove Composantvbe End If Next Composantvbe End With End Sub
Cordialement Pascal "Bernard SC" a écrit dans le message de news:%
Bonjour, Je voudrais, dans un programme VBA, supprimer les macros contenues dans un (autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que le destinataire aie la question "voulez-vous activer les macros" en ouvrant le
document). Comment faire ?
Bernard
Clément Marcotte
Bonjour,
Outils - Options - Sécurité - Sécurité des macros - Sources fiables - Cocher "Faire confiance au projet Visual Basic"
"Bernard SC" a écrit dans le message de news:
Merci ! J'ai cependant une erreur 1004 ".... non fiable ...", en voulant lire, par
exemple VBProject.name.. Probablement un contrôle de sécurité. Pourtant j'ai passé en Option /
Sécurité / Sécurité des macros faible. Je réessaierai demain.
"papou" a écrit dans le message de news:
u9da$
Bonjour Modifier "Toto.xls" avec le nom du classeur : Sub SupprToutCode() Dim Composantvbe As Object With Workbooks("Toto.xls").VBProject For Each Composantvbe In .VBComponents If Composantvbe.Type = 100 Then With Composantvbe.CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Else: .VBComponents.Remove Composantvbe End If Next Composantvbe End With End Sub
Cordialement Pascal "Bernard SC" a écrit dans le message de
news:%
Bonjour, Je voudrais, dans un programme VBA, supprimer les macros contenues dans
un (autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que le
destinataire aie la question "voulez-vous activer les macros" en ouvrant
le
document). Comment faire ?
Bernard
Bonjour,
Outils - Options - Sécurité - Sécurité des macros - Sources fiables -
Cocher "Faire confiance au projet Visual Basic"
"Bernard SC" <bsimonchPASDESPAM@wanadoo.fr> a écrit dans le message de
news:eTme3RcwEHA.4028@TK2MSFTNGP15.phx.gbl...
Merci !
J'ai cependant une erreur 1004 ".... non fiable ...", en voulant
lire, par
exemple VBProject.name..
Probablement un contrôle de sécurité. Pourtant j'ai passé en Option
/
Sécurité / Sécurité des macros faible.
Je réessaierai demain.
"papou" <pasbonpapou@canonplus44.fr> a écrit dans le message de
news:
u9da$3OwEHA.536@TK2MSFTNGP11.phx.gbl...
Bonjour
Modifier "Toto.xls" avec le nom du classeur :
Sub SupprToutCode()
Dim Composantvbe As Object
With Workbooks("Toto.xls").VBProject
For Each Composantvbe In .VBComponents
If Composantvbe.Type = 100 Then
With Composantvbe.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove Composantvbe
End If
Next Composantvbe
End With
End Sub
Cordialement
Pascal
"Bernard SC" <bsimonchPASDESPAM@wanadoo.fr> a écrit dans le
message de
news:%23Wgw3cOwEHA.3716@TK2MSFTNGP15.phx.gbl...
Bonjour,
Je voudrais, dans un programme VBA, supprimer les macros
contenues dans
un
(autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que
le
destinataire aie la question "voulez-vous activer les macros" en
ouvrant
Outils - Options - Sécurité - Sécurité des macros - Sources fiables - Cocher "Faire confiance au projet Visual Basic"
"Bernard SC" a écrit dans le message de news:
Merci ! J'ai cependant une erreur 1004 ".... non fiable ...", en voulant lire, par
exemple VBProject.name.. Probablement un contrôle de sécurité. Pourtant j'ai passé en Option /
Sécurité / Sécurité des macros faible. Je réessaierai demain.
"papou" a écrit dans le message de news:
u9da$
Bonjour Modifier "Toto.xls" avec le nom du classeur : Sub SupprToutCode() Dim Composantvbe As Object With Workbooks("Toto.xls").VBProject For Each Composantvbe In .VBComponents If Composantvbe.Type = 100 Then With Composantvbe.CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Else: .VBComponents.Remove Composantvbe End If Next Composantvbe End With End Sub
Cordialement Pascal "Bernard SC" a écrit dans le message de
news:%
Bonjour, Je voudrais, dans un programme VBA, supprimer les macros contenues dans
un (autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que le
destinataire aie la question "voulez-vous activer les macros" en ouvrant
le
document). Comment faire ?
Bernard
Bernard SC
Merci ! Je n'avais pas regardé jusqu'au bout...
"Clément Marcotte" a écrit dans le message de news:
Bonjour,
Outils - Options - Sécurité - Sécurité des macros - Sources fiables - Cocher "Faire confiance au projet Visual Basic"
"Bernard SC" a écrit dans le message de news:
Merci ! J'ai cependant une erreur 1004 ".... non fiable ...", en voulant lire, par
exemple VBProject.name.. Probablement un contrôle de sécurité. Pourtant j'ai passé en Option /
Sécurité / Sécurité des macros faible. Je réessaierai demain.
"papou" a écrit dans le message de news:
u9da$
Bonjour Modifier "Toto.xls" avec le nom du classeur : Sub SupprToutCode() Dim Composantvbe As Object With Workbooks("Toto.xls").VBProject For Each Composantvbe In .VBComponents If Composantvbe.Type = 100 Then With Composantvbe.CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Else: .VBComponents.Remove Composantvbe End If Next Composantvbe End With End Sub
Cordialement Pascal "Bernard SC" a écrit dans le message de
news:%
Bonjour, Je voudrais, dans un programme VBA, supprimer les macros contenues dans
un (autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que le
destinataire aie la question "voulez-vous activer les macros" en ouvrant
le
document). Comment faire ?
Bernard
Merci !
Je n'avais pas regardé jusqu'au bout...
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: el2NNjcwEHA.3276@TK2MSFTNGP15.phx.gbl...
Bonjour,
Outils - Options - Sécurité - Sécurité des macros - Sources fiables -
Cocher "Faire confiance au projet Visual Basic"
"Bernard SC" <bsimonchPASDESPAM@wanadoo.fr> a écrit dans le message de
news:eTme3RcwEHA.4028@TK2MSFTNGP15.phx.gbl...
Merci !
J'ai cependant une erreur 1004 ".... non fiable ...", en voulant
lire, par
exemple VBProject.name..
Probablement un contrôle de sécurité. Pourtant j'ai passé en Option
/
Sécurité / Sécurité des macros faible.
Je réessaierai demain.
"papou" <pasbonpapou@canonplus44.fr> a écrit dans le message de
news:
u9da$3OwEHA.536@TK2MSFTNGP11.phx.gbl...
Bonjour
Modifier "Toto.xls" avec le nom du classeur :
Sub SupprToutCode()
Dim Composantvbe As Object
With Workbooks("Toto.xls").VBProject
For Each Composantvbe In .VBComponents
If Composantvbe.Type = 100 Then
With Composantvbe.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove Composantvbe
End If
Next Composantvbe
End With
End Sub
Cordialement
Pascal
"Bernard SC" <bsimonchPASDESPAM@wanadoo.fr> a écrit dans le
message de
news:%23Wgw3cOwEHA.3716@TK2MSFTNGP15.phx.gbl...
Bonjour,
Je voudrais, dans un programme VBA, supprimer les macros
contenues dans
un
(autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que
le
destinataire aie la question "voulez-vous activer les macros" en
ouvrant
"Clément Marcotte" a écrit dans le message de news:
Bonjour,
Outils - Options - Sécurité - Sécurité des macros - Sources fiables - Cocher "Faire confiance au projet Visual Basic"
"Bernard SC" a écrit dans le message de news:
Merci ! J'ai cependant une erreur 1004 ".... non fiable ...", en voulant lire, par
exemple VBProject.name.. Probablement un contrôle de sécurité. Pourtant j'ai passé en Option /
Sécurité / Sécurité des macros faible. Je réessaierai demain.
"papou" a écrit dans le message de news:
u9da$
Bonjour Modifier "Toto.xls" avec le nom du classeur : Sub SupprToutCode() Dim Composantvbe As Object With Workbooks("Toto.xls").VBProject For Each Composantvbe In .VBComponents If Composantvbe.Type = 100 Then With Composantvbe.CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Else: .VBComponents.Remove Composantvbe End If Next Composantvbe End With End Sub
Cordialement Pascal "Bernard SC" a écrit dans le message de
news:%
Bonjour, Je voudrais, dans un programme VBA, supprimer les macros contenues dans
un (autre) fichier .XLS que j'envoie par e-mail. (je ne veux pas que le
destinataire aie la question "voulez-vous activer les macros" en ouvrant
