Bảo mật file excel

[giaosucan]

Chào các bác,
e có 1 file excel bất kì e muốn file này chỉ dc mở trên 1 số máy nhất định
Bằng cách file này sẽ lấy địa chỉ MAC của máy nếu địa chỉ MAC trùng với địa chỉ MAC đã có sẵn thì mới cho phép người dùng mở
E tìm trên mạng thì có 1 hàm lấy địa chỉ MAC của máy
Thank các bác ạ

Sub GetMACAddress()
' get a list of enabled adaptor names and MAC addresses
' from msdn.microsoft.com/en-us/library/windows/desktop/aa394217(v=vs.85).aspx

Dim objVMI As Object
Dim vAdptr As Variant
Dim objAdptr As Object

Set objVMI = GetObject("winmgmts:\\" & "." & "\root\cimv2")
Set vAdptr = objVMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")


For Each objAdptr In vAdptr
Debug.Print objAdptr.Caption & " " & objAdptr.MACAddress
Range("A1").Value = objAdptr.Caption & " " & objAdptr.MACAddress

Next objAdptr

 

[giaosucan]

Có lẽ phải dùng code VBA nhiều

 

[ndu96081631]

Có lẽ phải dùng code VBA nhiều

Thôi thì bạn đừng quan tâm đến mấy vụ bảo mật gì đó trên Excel cho cực... Vì dù bạn có làm gì thì chỉ vài động tác nhỏ là người ta đã phá "banh ta long" mấy cái code của bạn thôi
Chẳng ăn thua gì cả

 

[MinhKhai]

Có lẽ phải dùng code VBA nhiều

Code hoành tráng đến đâu mà người dùng DISABLE MACRO thì cũng lộ hết hàng...