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.