Làm sao để gắn số CPU ID vào code VBA (1 người xem)

[phuocrobe]

Làm sao để có thể gắn số CPU ID vào đoạn code VBA để giới hạn khi nào kiểm tra đúng sô CPU ID đó thì mới chạy code. Số CPU ID của mình là: PCANEA77V1F5EV.
Mình cần gắn số CPU ID vào đoạn code này, nhờ các anh chị giúp đỡ em với ạ.
Em xin cám ơn rất nhiều !!

Sub capnhat() Application.ScreenUpdating = False
Range("B9:H" & Range("B1000").End(3).Row + 1).ClearContents
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\B071.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
Range("B9").CopyFromRecordset cn.Execute("SELECT f2,f5,f7,f8,f15,f22,f30*1 FROM [duieu1$A15:AK1000] where f2 >0 or f2 =0")
Range("B9:B" & Range("B1000").End(3).Row).Value = "=row()-8"
Range("B9:H" & Range("B1000").End(3).Row).Borders.LineStyle = xlContinuous
End Sub

 

[ndu96081631]

Làm sao để có thể gắn số CPU ID vào đoạn code VBA để giới hạn khi nào kiểm tra đúng sô CPU ID đó thì mới chạy code. Số CPU ID của mình là: PCANEA77V1F5EV.
Mình cần gắn số CPU ID vào đoạn code này, nhờ các anh chị giúp đỡ em với ạ.
Em xin cám ơn rất nhiều !!

Thứ nhất: thông số CPU ID: PCANEA77V1F5EV ở đâu bạn có?
Thứ hai: Gắn số CPU ID vào code của bạn là gắn làm sao?

 

[phuocrobe]

Lúc trước em có nhờ anh em trong diễn đàn tạo file lấy số ID CPU giúp.
Em muốn điều kiện trước khi chạy code thì nó sẽ kiểm tra đúng số ID CPU đó thì mới chạy còn nếu không thì sẽ không chạy

Thứ nhất: thông số CPU ID: PCANEA77V1F5EV ở đâu bạn có?
Thứ hai: Gắn số CPU ID vào code của bạn là gắn làm sao?

 

[ndu96081631]

Lúc trước em có nhờ anh em trong diễn đàn tạo file lấy số ID CPU giúp.
Em muốn điều kiện trước khi chạy code thì nó sẽ kiểm tra đúng số ID CPU đó thì mới chạy còn nếu không thì sẽ không chạy

Vậy thì điều đầu tiên là bạn phải có đoạn code lấy thông số CPU ID cái đã.
Chẳng hạn bạn đang có hàm GetCPUID, vậy bạn chỉ cần chèn thêm code thế này:

Sub capnhat()    
  If GetCPUID = PCANEA77V1F5EV then
    ''Code của bạn nằm ở đây
  End If
End Sub

Vậy thôi

 

[Kiều Mạnh]

Làm sao để có thể gắn số CPU ID vào đoạn code VBA để giới hạn khi nào kiểm tra đúng sô CPU ID đó thì mới chạy code. Số CPU ID của mình là: PCANEA77V1F5EV.
Mình cần gắn số CPU ID vào đoạn code này, nhờ các anh chị giúp đỡ em với ạ.
Em xin cám ơn rất nhiều !!

Vô link sau tham khảo

http://www.giaiphapexcel.com/forum/showthread.php?52878-Tạo-form-đăng-nhập-trong-Excel/page3

ưa cái nào thì xài cái đó

 

[phuocrobe]

Đơn giản vậy mà em không nghĩ ra, cám ơn anh rất nhiều nhé

Vậy thì điều đầu tiên là bạn phải có đoạn code lấy thông số CPU ID cái đã.
Chẳng hạn bạn đang có hàm GetCPUID, vậy bạn chỉ cần chèn thêm code thế này:

Sub capnhat()    
  If GetCPUID = PCANEA77V1F5EV then
    ''Code của bạn nằm ở đây
  End If
End Sub

Vậy thôi

 

[phuocrobe]

Cám ơn bạn đã chia sẻ, mình sẽ lưu lại để tham khảo.

Vô link sau tham khảo

http://www.giaiphapexcel.com/forum/showthread.php?52878-Tạo-form-đăng-nhập-trong-Excel/page3

ưa cái nào thì xài cái đó

 

[Gió Đông]

Tại sao bạn sử dụng CPU ID làm gì?, mục đích để:
- chặn code, không cho chạy ở máy khác
- sợ người ăn cắp code

Nếu là mục đích như vậy, thì lời khuyên là từ bỏ ý định đó đi vì:
- bản thân code VBA đã là mở, là lỏng lẻo về security. Người nào muốn mở muốn lấy thì trình đổ ng ta hẳn vượt qua cái lệnh CPU ID thì đó 1 cách đơn giản
- code trên của bạn cũng là nhờ người khác - hãy lan truyền nhân rộng điều tốt chia sẻ của người giúp cho mọi người khác
- hãy dành thời gian để khóa để đóng để học để làm việc khác có ích hơn, vì những lý do trên.

 

[phuocrobe]

Mình rất tôn trọng ý kiến của bạn, cám ơn bạn đã chia sẻ điều đó, mình biết mình cần phải làm gì, chúc bạn luôn thành công và gặp nhiều may mắn trong cuộc sống !

Tại sao bạn sử dụng CPU ID làm gì?, mục đích để:
- chặn code, không cho chạy ở máy khác
- sợ người ăn cắp code

Nếu là mục đích như vậy, thì lời khuyên là từ bỏ ý định đó đi vì:
- bản thân code VBA đã là mở, là lỏng lẻo về security. Người nào muốn mở muốn lấy thì trình đổ ng ta hẳn vượt qua cái lệnh CPU ID thì đó 1 cách đơn giản
- code trên của bạn cũng là nhờ người khác - hãy lan truyền nhân rộng điều tốt chia sẻ của người giúp cho mọi người khác
- hãy dành thời gian để khóa để đóng để học để làm việc khác có ích hơn, vì những lý do trên.