Giấu Name động (1 người xem)

[khang2303]

Tôi hay phải tạo form nhập liệu mẫu cho công ty. khổ nỗi các thánh hay tò mò sửa lung tung. ai biết cách giấu name động xin chỉ giùm. xin cảm ơn!

 

[giaiphap]

Bạn sử dụng code này thử xem.

ThisWorkbook.Names("Tên Names muốn ẩn").Visible = False

 

[Kiều Mạnh]

dấu thì nó biết chạy 1 vòng For Each ...xong cho nó = True thì cũng lòi ra hết à

 

[khang2303]

Bạn sử dụng code này thử xem.

ThisWorkbook.Names("Tên Names muốn ẩn").Visible = False

Ctrl F3 vẫn thấy và sửa bình thường bạn ạ. có cách nào khác để ẩn hoặc khóa hẳn không?

 

[Kiều Mạnh]

Ctrl F3 vẫn thấy và sửa bình thường bạn ạ. có cách nào khác để ẩn hoặc khóa hẳn không?

thử chép Code sau chạy xem sao nha ...muốn cho nó hiện lại Sửa False Thành True

Sub HideName()
Dim n As Name
For Each n In ThisWorkbook.Names
    n.Visible = [COLOR=#ff0000][B]False[/B][/COLOR]
Next
End Sub

 

[giaiphap]

Ctrl F3 vẫn thấy và sửa bình thường bạn ạ. có cách nào khác để ẩn hoặc khóa hẳn không?

Bạn đưa file đó lên đây xem thử thế nào, máy mình chạy phát là xong ẩn mất luôn.

 

[khang2303]

Các bạn làm trực tiếp trên file này giúp. File chính nặng quá

 

[giangleloi]

Các bạn làm trực tiếp trên file này giúp. File chính nặng quá

Sửa Code sự kiện của bạn như bên dưới. Rồi chọn ô D2 1 Mã KH nào đó nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nName As Name
 If Target.Address = "$D$2" Then
    Sheet4.[A5:H10000].Clear
    Sheet1.[A1:H5000].AdvancedFilter 2, Sheet4.[D1:D2], Sheet4.[A5]
     For Each nName In ThisWorkbook.Names
      If nName.Visible = True Then nName.Visible = False
     Next
 End If
End Sub