Code ẩn công thức toàn bộ cell có công thức của workbook và khóa workbook

[LuuAnh980]

Em có bắt chước viết đoạn code này:

Sub LockWorkbookAndHideFormulas()
    Dim ws As Worksheet
    Dim cell As Range
    
    Set ws = ActiveSheet
    
  
    ThisWorkbook.Protect
    
    For Each cell In ws.UsedRange.SpecialCells(xlCellTypeFormulas)
        cell.FormulaHidden = True
    Next cell
    
    MsgBox "Workbook da khoa va an cong thuc.", vbInformation
End Sub

Mà code không chạy ạ, mong các anh xem giúp.

 

[LuuAnh980]

Em xài Application.ScreenUpdating thì được rồi anh @HeSanbi ơi.
Cám ơn anh @BuiQuangThuan nhiều.

Bài đã được tự động gộp: 10/1/24