Comment enregistrer toutes les feuilles de calcul en tant que valeurs uniquement?

Si vous avez un classeur qui contient plusieurs formules, vous devez maintenant distribuer ce fichier à d'autres utilisateurs, vous ne souhaitez pas afficher les formules mais seules les valeurs sont affichées. Normalement, nous pouvons enregistrer rapidement une feuille de calcul en tant que valeurs en copiant et en collant les données en tant que valeurs uniquement. Mais, comment pouvez-vous enregistrer toutes les feuilles de calcul en tant que valeurs uniquement sans les copier et les coller une par une?

Enregistrer toutes les feuilles de calcul en tant que valeurs uniquement avec le code VBA

Enregistrer toutes les feuilles de calcul en tant que valeurs uniquement avec le code VBA

Le code VBA suivant peut vous aider à enregistrer rapidement toutes les feuilles en tant que valeurs (pas de formules) et à conserver toute la mise en forme des cellules. Veuillez faire comme ceci:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: enregistrez toutes les feuilles de calcul sous forme de valeurs uniquement:

Sub Saveasvalue()
'Updateby Extendoffice
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, et l'ensemble du classeur a été enregistré en tant que valeurs uniquement, toutes les formules ont été supprimées à la fois, ne laissant que les valeurs avec la mise en forme de cellule.

Notes: Avant d'appliquer le code, vous pouvez d'abord enregistrer une copie du classeur.