LeHang.93
Thành viên chính thức
- Tham gia
- 20/8/20
- Bài viết
- 53
- Được thích
- 9
Các bác giúp em với ạ
Em có sử dụng 2 file của Bác ThasiPV, em nghiên cứu mày mò mãi không được các bác giúp em với ạ
- Hiện tại có 2 file, 1 file Gread CD key là dùng để cấp key, file APP (Khach SH) gửi cho bên thứ 2. Khi bên thứ 2 mở lên thì hiện yêu cầu nhập key => bên họ gửi code cho mình và mình nhập vào bản Gread CD key để tạo mã
Em đang viết tiếp mục đích sau khi nhập key thì bản APP(khách SH) sẽ
TH1: Bản quyền hợp lệ > Tiếp tục công việc
+ TH2: Bản quyền sai > Thông báo người dùng mua bản quyền > Thoát
Các bác giúp em với ạ
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
đây là key của em a
Em có sử dụng 2 file của Bác ThasiPV, em nghiên cứu mày mò mãi không được các bác giúp em với ạ
- Hiện tại có 2 file, 1 file Gread CD key là dùng để cấp key, file APP (Khach SH) gửi cho bên thứ 2. Khi bên thứ 2 mở lên thì hiện yêu cầu nhập key => bên họ gửi code cho mình và mình nhập vào bản Gread CD key để tạo mã
Em đang viết tiếp mục đích sau khi nhập key thì bản APP(khách SH) sẽ
TH1: Bản quyền hợp lệ > Tiếp tục công việc
+ TH2: Bản quyền sai > Thông báo người dùng mua bản quyền > Thoát
Các bác giúp em với ạ
Bài đã được tự động gộp:
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
đây là key của em a
