Tự cập nhật giá trị cell sau khi enable macro

[hoangduy_90]

Chào các bác,

Em có một vấn đề nhỏ mong các bác chỉ giúp: tại sheet 1, A1 rỗng. Em muốn sau khi chọn macro security ở mức low thì A1 sẽ có dữ liệu (12A1 chẳng hạn). Nhưng nếu macro security không ở mức low thì A1 trở về rỗng. Do đó, bắt buộc phải enable macro thì ô A1 mới có giá trị. Các bác chỉ em cách làm nhé. Cảm ơn nhiều nhiều.

 

[ptm0412]

1. Nếu chỉ có một vài cells cần thực hiện:

Sub Workbook_Open()
    Sheet1.[A1] = "12A1"
End Sub

Sub Workbook_BeforeClose()
    Sheet1.[A1].ClearContents
End Sub

2. Nếu nhiều cells hoặc cả sheet: Tạo 1 sheet temp và để ẩn (xlsheetVeryhidden) chứa các giá trị.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheet1.Cells.ClearContents
    Sheet1.[A1] = Sheets("Temp").[A1]
End Sub

Private Sub Workbook_Open()
    Sheet1.[A1].ClearContents
    Sheets("Temp").Visible = -1
    Sheets("Temp").Range("A3:E16").Copy Sheet1.Range("A3:E16")
    Sheets("Temp").Visible = 2
End Sub

Với Sheets("Temp").[A1] = "Bạn phải enable Macro hoặc set Security Low mới sử dụng được file này."

Đặc điểm sheet ẩn xlsheetVeryhidden là không dùng lệnh trên Menu để unhide được.