Khi Workbook open thì ẩn công thức.

[LuuAnh980]

Chào các anh!!!!
Em có file thử nghiệm, khi mở file thì ẩn công thức, nhưng sao code không chạy ạ.
Mong các anh giúp đỡ ạ.

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

Code đây ạ:

Private Sub Workbook_Open()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Cells.FormulaHidden = True
    Next ws
End Sub

 

[giaiphap]

Chào các anh!!!!
Em có file thử nghiệm, khi mở file thì ẩn công thức, nhưng sao code không chạy ạ.
Mong các anh giúp đỡ ạ.

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

Code đây ạ:

Private Sub Workbook_Open()
    Dim ws As Worksheet
   
    For Each ws In ThisWorkbook.Worksheets
        ws.Cells.FormulaHidden = True
    Next ws
End Sub

Muốn ẩn công thức phải khóa sheet mới có tác dụng chứ, thử thêm lệnh này trước Next ws và bẩy lỗi nửa xem sao.

ws.Protect

 

[LuuAnh980]

Được rồi anh ơi.
Cám ơn anh @giaiphap nhiều ạ.