Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe alle werkbladen alleen als waarden opslaan?

Als u een werkmap heeft die meerdere formules bevat, moet u dit bestand nu naar andere gebruikers distribueren, u wilt de formules niet weergeven, maar alleen waarden worden weergegeven. Normaal gesproken kunnen we een werkblad snel opslaan als waarden door de gegevens alleen als waarden te kopiëren en te plakken. Maar hoe kunt u alle werkbladen alleen als waarden opslaan zonder ze een voor een te kopiëren en te plakken?

Sla alle werkbladen alleen op als waarden met VBA-code


pijl blauw rechts bel Sla alle werkbladen alleen op als waarden met VBA-code

De volgende VBA-code kan u helpen om snel alle bladen op te slaan als waarden (geen formules) en alle celopmaak te behouden. Doe alstublieft als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: sla alle werkbladen alleen op als waarden:

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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en de hele werkmap is alleen als waarden opgeslagen, alle formules zijn tegelijk verwijderd, laten alleen waarden achter met celopmaak.

Opmerking:: Voordat u de code toepast, kunt u eerst een kopie van de werkmap opslaan.


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    pedro.albuquerque.rocha · 5 months ago
    Hi,
    This is what i'm using (I exit the file automatically so I won't save accidently with values only).

    But I wanted to keep just one sheet saved "normally" because I have a drop down list there that I would not like to lose when sharing the file.


    Can anyone help me do this?

    Thank you!


    Sub Saveasvalue() Dim wsh As Worksheet For Each wsh In ThisWorkbook.Worksheets wsh.Cells.Copy wsh.Cells.PasteSpecial xlPasteValues Next Application.CutCopyMode = False savename = Application.GetSaveAsFilename(fileFilter:="Exel Files (*.xlsx), *.xlsx") ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=51 Application.DisplayAlerts = False 'exit without alerts Application.Quit End Sub

  • To post as a guest, your comment is unpublished.
    Shahery · 9 months ago
    It runs good but i need a VBA of paste as value for a bunch of excels workbooks.




  • To post as a guest, your comment is unpublished.
    Ali · 10 months ago
    Is there any way to undo this if you've forgotten to save down the formula version first?
  • To post as a guest, your comment is unpublished.
    Jim · 11 months ago
    I need to publish Excel based financial statements with groupings. This worked to clear all the formulae and leave just the numbers. Other methods I tried cleared the groupings.
  • To post as a guest, your comment is unpublished.
    Carlos Tellez · 1 years ago
    Good! Excellent! I need this but no any sheets
  • To post as a guest, your comment is unpublished.
    Jasmin · 1 years ago
    Remove all filters/protection in all the sheets. should work perfectly.
  • To post as a guest, your comment is unpublished.
    Eduardo · 2 years ago
    Tengo ese código, si bien es cierto funciona pero quisiera que no considere algunas hojas de mi archivo excel. se puede ?
    Saludos.
  • To post as a guest, your comment is unpublished.
    Alex · 2 years ago
    Funcionou!! Muito Bom!!!
  • To post as a guest, your comment is unpublished.
    mirna · 3 years ago
    when i run that code, i get error "getting Run time Error 1004".
    FYI, in my excel there are merge cells.

    It will be helpful if someone give solution

    Thank you
    • To post as a guest, your comment is unpublished.
      Anh Hien · 2 years ago
      It works well. thanks.

      @mirna: you need to unprotect sheet or cell. VB doesn't like protect mode :)
    • To post as a guest, your comment is unpublished.
      skyyang · 3 years ago
      Hello, mirna,
      The above code works well in my workbook, which excel version do you use?
  • To post as a guest, your comment is unpublished.
    vijaypepsi@gmail.com · 3 years ago
    Sub Saveasvalue()
    'Updateby Extendoffice 20161025
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
    wsh.Cells.Copy
    wsh.Cells.PasteSpecial xlPasteValues - getting Run time Error 1004 - CAN ANYONE HELP ON THIS.
    Next
    Application.CutCopyMode = False
    End Sub
  • To post as a guest, your comment is unpublished.
    vijay · 3 years ago
    Thanks a lot Bro..this is amazing..helped me a lot.
  • To post as a guest, your comment is unpublished.
    akmdcencl@gmail.com · 3 years ago
    Very Good! It has solved many of my problems. Thanks a lot. Regards.
  • To post as a guest, your comment is unpublished.
    Felice · 4 years ago
    Thanks! The VBA code worked wonderfully.
    One thing I noticed though, when I tried to use it on a workbook with Filter on some cells, it won't work.
    Any workaround for this code to work without disabling the Filter?
    • To post as a guest, your comment is unpublished.
      Lilly · 3 years ago
      I have the same problem when using VBA code with filter. Have you had solution for it?
      • To post as a guest, your comment is unpublished.
        Sal · 2 years ago
        Hey were you able to get this fixed? I have the same issue