VBA excel: Tự động khóa giá trị (Convert to Values) toàn bộ Sheet trong File

Bạn cần gửi file báo cáo "khủng" với hàng ngàn công thức liên kết (VLOOKUP, SUMIFS, Link từ file khác...). Nếu gửi nguyên file này cho Sếp hoặc đồng nghiệp, rất dễ bị lỗi dữ liệu do máy họ không có file nguồn hoặc họ lỡ tay xóa mất công thức.

Thay vì ngồi bôi đen từng Sheet rồi Paste Special Values thủ công, bạn dùng Sub này để nó tự động "đóng băng" toàn bộ dữ liệu trong tất cả các Sheet thành giá trị tĩnh. Một nhấp chuột là có ngay file báo cáo sạch đẹp, an toàn để gửi đi.

Sub Value_file()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
For Each ws In wb.Sheets
Application.ScreenUpdating = False
ws.UsedRange.Copy
ws.Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Next ws
'Convert

End Sub