GIÚP EM BỔ SUNG CODE CHO PHÂN QUYỀN KEY EXCEL

[anhle]

Em có file không tải được nhưng đại ý trong file cấp quyền key cho khách wokb như sau :

Option Explicit
Private Sub Workbook_Open()
Dim myLicenseKey As String, myMessage As String

myLicenseKey = ThisWorkbook.Worksheets("Sheet1").Range("B2").Value
If Check_LicenseKey(myLicenseKey) Then
'Nguoi dung da dang ky ban quyen
'Tiep tuc
Else
'Nguoi dung chua dang ky ban quyen / sai ma ban quyen
'Thong bao
myMessage = "Ban chua dang ky ban quyen !" & vbNewLine & vbNewLine & _
"De tiep tuc, vui long chuyen khoan cho chung toi voi noi dung nhu sau : " & _
MsgBox myMessage, vbOKOnly, "Thông báo !"
'Ket thuc chuong trinh
End If
End Sub

EM muốn chỉnh lại code là khi nhập đúng licensekey thì file chạy và ko hỏi nữa, nếu nhập sai tự động đóng thì như thế nào

Các anh chị thông cảm em ko tải file lên được ạ

 

[anhle]

Bạn cần đăng nhập để thấy link

 

[anhle]

Em gửi link down ạ

Bạn cần đăng nhập để thấy link

 

[tuhocvba]

1. Có lý do gì để viết tiêu đề gồm toàn chữ in hoa hay không?
2. Code phải để trong thẻ CODE.
Xin xem mục 4 trong

Bạn cần đăng nhập để thấy link

.

Đầu tiên nói nội dung câu chuyện là cái gì.
Hiện trạng đang làm tới bước nào và gặp khó khăn ở đâu.

Bộp một cái là code, tôi không hiểu bạn đang muốn trình bày cái gì. Mời bạn sang GPE tham gia giúp tôi. Diễn đàn không ai có đủ khả năng đọc bài của bạn.

 

[Deleted member 1392]

@anhle Đầu tiên, bạn nên tham khảo trước cách trình bày bài viết của diễn đàn trước khi viết bài như Admin đã nhắc nhở. Hãy trình tôn trọng người đọc. Lần này, tôi đặc biệt giúp bạn là do trước đây tôi cũng đã từng làm vấn đề này, nên đại khái hiểu ý bạn đang muốn trình bày dù khó hiểu. Nhưng sẽ không có lần sau nếu bạn vẫn còn tiếp tục trình bày như thế này.

Theo tôi hiểu là bạn đang muốn người dùng nhập Key ở ô [B2] là sẽ tự động làm một hành động gì đó, còn nếu nhập sai thì sẽ thoát file.

Nếu là vậy, bạn có thể cho đoạn Code này vào Sheet có chứa dữ liệu nhập Key. Cụ thể trong file của bạn là Sheet1

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngSheet1 As Range
rngSheet1 = ThisWorkbook.Sheets(1).Range("B2")

'//THOAT SU KIEN KHI VUNG THAY DOI KHONG PHAI [B2]
If Target <> rngSheet1 Then Exit Sub

If rngSheet1 = Check_LicenseKey(rngSheet1) Then

    '//HANH DONG KHI NHAP KEY DUNG

Else
   
    '//HANH DONG KHI NHAP KEY SAI
    MsgBox ("Ban da nhap sai Key, Chuong trinh se tu dong thoat"), vbCritical + vbOKOnly, "Thong bao"
    ThisWorkbook.Close False
End If

End Sub

 

[anhle]

Dạ vâng em cảm ơn 2 bác đã giúp em ạ

 

[anhle]

@anhle Đầu tiên, bạn nên tham khảo trước cách trình bày bài viết của diễn đàn trước khi viết bài như Admin đã nhắc nhở. Hãy trình tôn trọng người đọc. Lần này, tôi đặc biệt giúp bạn là do trước đây tôi cũng đã từng làm vấn đề này, nên đại khái hiểu ý bạn đang muốn trình bày dù khó hiểu. Nhưng sẽ không có lần sau nếu bạn vẫn còn tiếp tục trình bày như thế này.

Theo tôi hiểu là bạn đang muốn người dùng nhập Key ở ô [B2] là sẽ tự động làm một hành động gì đó, còn nếu nhập sai thì sẽ thoát file.

Nếu là vậy, bạn có thể cho đoạn Code này vào Sheet có chứa dữ liệu nhập Key. Cụ thể trong file của bạn là Sheet1

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngSheet1 As Range
rngSheet1 = ThisWorkbook.Sheets(1).Range("B2")

'//THOAT SU KIEN KHI VUNG THAY DOI KHONG PHAI [B2]
If Target <> rngSheet1 Then Exit Sub

If rngSheet1 = Check_LicenseKey(rngSheet1) Then

    '//HANH DONG KHI NHAP KEY DUNG

Else
   
    '//HANH DONG KHI NHAP KEY SAI
    MsgBox ("Ban da nhap sai Key, Chuong trinh se tu dong thoat"), vbCritical + vbOKOnly, "Thong bao"
    ThisWorkbook.Close False
End If

End Sub

Cho em hỏi code của bác khi nhập vào thì nó thoát luôn ( do lúc đó chưa có hành động nhập key) thì sửa thế nào ạ

 

[Deleted member 1392]

@anhle Bạn thêm đoạn này, đoạn số 9

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngSheet1 As Range
rngSheet1 = ThisWorkbook.Sheets(1).Range("B2")

'//THOAT SU KIEN KHI VUNG THAY DOI KHONG PHAI [B2]
If Target <> rngSheet1 Then Exit Sub
If Len(rngSheet1.Value) <> 19 then Exit Sub

If rngSheet1 = Check_LicenseKey(rngSheet1) Then

    '//HANH DONG KHI NHAP KEY DUNG

Else
  
    '//HANH DONG KHI NHAP KEY SAI
    MsgBox ("Ban da nhap sai Key, Chuong trinh se tu dong thoat"), vbCritical + vbOKOnly, "Thong bao"
    ThisWorkbook.Close False
End If

End Sub

 

[anhle]

Vẫn bị lỗi bác ạ

 

[Deleted member 1392]

Sao lại lỗi, lỗi gì? Đề nghị bạn nói rõ lỗi gì không trả lời cọc lóc là lỗi.

 

[anhle]

Sao lại lỗi, lỗi gì? Đề nghị bạn nói rõ lỗi gì không trả lời cọc lóc là lỗi.

Dạ lỗi em đây ạ, em ko tải được ảnh lên

Bạn cần đăng nhập để thấy link

 

[Deleted member 1392]

@anhle Nếu không biết Up ảnh, bạn có thể xem ở

Bạn cần đăng nhập để thấy link

Tôi gởi luôn file đã làm cho bạn
File của bạn

Bạn cần đăng nhập để thấy link

 

[anhle]

@anhle Nếu không biết Up ảnh, bạn có thể xem ở

Bạn cần đăng nhập để thấy link

Tôi gởi luôn file đã làm cho bạn
File của bạn

Bạn cần đăng nhập để thấy link

Dạ vâng em cảm ơn bác đã nhiệt tình giúp em ạ!