Đặt Name Manager trong VBA

[ThaiDieuAnh]

Giả sử em có đặt 1 name manager ABC có công thức mảng là:

=OFFSET(Sheet1!$B$3,0,0,COUNTA(Sheet1!$B:$B)-1)

Tuy nhiên do file nhiều người dùng nên sợ người ta xóa mất name, em muốn đặt tên này trong VBA thì làm thế nào ạ? Mong các anh chị giúp đỡ, em xin cảm ơn!

 

[befaint]

Vậy mình "giấu kín" đi là được.

Sub Hide_Names()
Dim n As Name
For Each n In ThisWorkbook.Names
If n.Visible Then n.Visible = False
Next n
End Sub

 

[AnhThu-1976]

Vậy mình "giấu kín" đi là được.

Sub Hide_Names()
Dim n As Name
For Each n In ThisWorkbook.Names
If n.Visible Then n.Visible = False
Next n
End Sub

Muốn hiện ra lại thì code sửa làm sao? thay False thành True!?

 

[huonglien1901]

Muốn hiện ra lại thì code sửa làm sao? thay False thành True!?

Bạn thử đi, theo suy nghĩ bạn nghĩ

 

[AnhThu-1976]

Bạn thử đi, theo suy nghĩ bạn nghĩ

Sub UHideNames()
Dim N As Name
For Each N In ThisWorkbook.Names
N.Visible = True
Next
End Sub