Macro pour enregistrer le classeur sans macros, Excel VBA

Lorsque vous ouvrez un classeur Excel qui contient des macros, un message s’affiche pour vous informer que les macros sont stockées dans le classeur qui peuvent contenir des virus de macro. Vous pouvez ignorer ce message en cliquant sur le bouton ACTIVER LES MACROS. Si vous n’êtes pas sûr de l’origine du classeur, cliquez sur le bouton DÉSACTIVER LES MACROS. Si vous envoyez vous-même des classeurs, déterminez si vous devez vraiment inclure les macros. Pour créer une copie d’un classeur sans macros, enregistrez le classeur actuel sous un autre nom et basculez avec la combinaison de touches | Art | + | F11 | dans l’environnement de développement. Vous pouvez maintenant supprimer les modules individuels. Vous pouvez également effectuer cette tâche avec élégance avec une macro.

Sub EnregistrerClasseursansmacros()
Dim Original As String
Dim lacopie As String
Dim i As Integer
Original = ActiveWorkbook.Name
lacopie = ActiveWorkbook.Name & "_copie.xls"

Workbooks.Add
ActiveWorkbook.SaveAs _
Filename:="C:\propres fichiers\" & copie
Workbooks(Original).Activate
For i = 1 To Sheets.Count
Sheets(i).Copy _
After:=Workbooks(copie).Sheets(i)
Next i
End Sub

Commentaires

Dans la première étape, enregistrez le nom du classeur actif et le nom de la copie dans les variables Original et Copier. En tant que nom de la copie sans macros, vous pouvez utiliser le nom de l’original, par exemple, auquel vous ajoutez la fin _Copy. À l’étape suivante, insérez un nouveau classeur à l’aide de la méthode Add et enregistrez-le immédiatement dans le répertoire C: \ propres fichiers. Utilisez ensuite la méthode Activate pour basculer vers le dossier d’origine. Configurez une boucle For Next qui copie toutes les feuilles de tableau du classeur dans le classeur cible.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x