Giúp code cấp key bản quyền cho file excel

kcphuong · 20/2/14

kisper

tai sao khong tao key duoc nhi

siwtom · 21/2/14

kcphuong đã viết:
mình thanl mọi người nhiều nha.mấy bữa nay công việc bận quá không lên được h lên thấy mọi người quan tâm vấn đề của mình we mình cón một vấn đề muốn hỏi nữa không biết mọi người có cách nào giúp được hem?
Là khi mà mở file check key lên nếu như chế độ macro không bậc thì tự động xoá luôn code không biết có lầm được không, nếu được mong mọi người giúp đỡ nha.

Thế theo bạn thì "ai, cái gì" sẽ làm 2 việc: "kiểm tra xem có disable macro không, và xóa code?
Theo tôi thì phải có đoạn code nào đó làm 2 việc trên. Nhưng nếu disable macro thì đoạn code đó đâu có cơ hội để "biểu diễn"?
Tôi chịu không tưởng được cái gì khác code mà có thể làm 2 việc trên.

siwtom · 21/2/14

chuot0106 đã viết:
Mong thầy Siwtom viết đoạn code để em cùng các thành học hỏi với ạ!!!

Code gì vậy bạn? Code kiểm tra thời gian thì bạn phucbugis đã viết rồi mà. Cơ bản là như thế.

kcphuong · 21/2/14

híc

thank. có còn cái cách mà cập nhập ngày theo internet thì làm sao nhỉ

siwtom · 21/2/14

kcphuong đã viết:
híc thank. có còn cái cách mà cập nhập ngày theo internet thì làm sao nhỉ

Ví dụ chủ đề này

http://www.giaiphapexcel.com/forum/showthread.php?76471-Update-ngày-giờ-của-hệ-thống-qua-Internet

siwtom · 21/2/14

chuot0106 đã viết:
Anh Phucbugis có thể bổ sung thêm đoạn code theo ý tưởng của thầy siwtom để tránh một số người ăn gian ngày tháng không ạ.

Thì ở bài $14 tôi đã chỉ ra cách dùng "muôn đời" (dùng bởi "láu cá cao thủ"), và cả cách chống "láu cá gà mờ" - có đề nghị code sửa.

Nhưng đề nghị tác giả phucbugis hãy sửa lại trong tập tin và test xem có đúng không. Vì code viết trong notepad, sau khi dán từ tập tin Excel vào notepad thì tôi chỉ viết thêm đk thôi, chưa test.

Hãy sửa cho những người sau này bạn nhé. Còn nếu bạn thấy không cần sửa thì nói một câu cho mọi người biết để khỏi nài nỉ.

phucbugis · 21/2/14

siwtom đã viết:
Thì ở bài $14 tôi đã chỉ ra cách dùng "muôn đời" (dùng bởi "láu cá cao thủ"), và cả cách chống "láu cá gà mờ" - có đề nghị code sửa.

Nhưng đề nghị tác giả phucbugis hãy sửa lại trong tập tin và test xem có đúng không. Vì code viết trong notepad, sau khi dán từ tập tin Excel vào notepad thì tôi chỉ viết thêm đk thôi, chưa test.

Hãy sửa cho những người sau này bạn nhé. Còn nếu bạn thấy không cần sửa thì nói một câu cho mọi người biết để khỏi nài nỉ.

ok, do hôm nay e bận quá, đáng lẽ là xong khi chiều mà đến h mới xong (do test đk của bác gặp 1 tí sự cố), + thêm đang nghiên cứu cái cách kết nối Internet. --=0

bác xem file e mới thêm ở #8 ---> thế có ổn hơn ko :-=

thetrungkien · 21/2/14

kcphuong đã viết:
ok đúng rồi bạn.nhưng có cách nào để khi khóa macro thì code tự động bị delete hết không bạn, nếu có xin chỉ giáo nha.
File dính kiemf bên dưới :
http://www.mediafire.com/download/1916ew1rh2mkns8/thukf.rar

Mình có làm 1 chương trình phục vụ công việc rất hay và cũng thực hiện kiểm tra bản quyền như sau:
khi mở file excel lên nó sẽ kiểm tra 1 file gì đó VD

Private Sub Workbook_Open()
If Dir("C:\Windows\XXXX.dll") = "" Then
MsgBox "Ban chua dang ky su dung phan mem nay!"
UnprotectVBProj "xxxxxxxx"
DeleteAllCode
ActiveWorkbook.Close SaveChanges:=True
End If
Sheets("Main").Activate
ActiveSheet.ScrollArea = "A1:L39"
End Sub

Sub DeleteAllCode()

Dim x As Integer
Dim Proceed As VbMsgBoxResult
Dim Prompt As String
Dim Title As String

Prompt = "Are you certain that you want to delete all the VBA Code from " & _
ActiveWorkbook.Name & "?"
Title = "Verify Procedure"

Proceed = MsgBox(Prompt, vbYesNo + vbQuestion, Title)
If Proceed = vbNo Then
MsgBox "Procedure Canceled", vbInformation, "Procedure Aborted"
Exit Sub
End If

On Error Resume Next
With ActiveWorkbook.VBProject
For x = .VBComponents.Count To 1 Step -1
.VBComponents.Remove .VBComponents(x)
Next x
For x = .VBComponents.Count To 1 Step -1
.VBComponents(x).CodeModule.DeleteLines _
1, .VBComponents(x).CodeModule.CountOfLines
Next x
End With
On Error GoTo 0

End Sub
bạn tham khảo nha, đã thực hiện hoàn hảo

chuot0106 · 21/2/14

thetrungkien đã viết:
Mình có làm 1 chương trình phục vụ công việc rất hay và cũng thực hiện kiểm tra bản quyền như sau:
khi mở file excel lên nó sẽ kiểm tra 1 file gì đó VD

Private Sub Workbook_Open()
If Dir("C:\Windows\XXXX.dll") = "" Then
MsgBox "Ban chua dang ky su dung phan mem nay!"
UnprotectVBProj "xxxxxxxx"
DeleteAllCode
ActiveWorkbook.Close SaveChanges:=True
End If
Sheets("Main").Activate
ActiveSheet.ScrollArea = "A1:L39"
End Sub

Sub DeleteAllCode()

Dim x As Integer
Dim Proceed As VbMsgBoxResult
Dim Prompt As String
Dim Title As String

Prompt = "Are you certain that you want to delete all the VBA Code from " & _
ActiveWorkbook.Name & "?"
Title = "Verify Procedure"

Proceed = MsgBox(Prompt, vbYesNo + vbQuestion, Title)
If Proceed = vbNo Then
MsgBox "Procedure Canceled", vbInformation, "Procedure Aborted"
Exit Sub
End If

On Error Resume Next
With ActiveWorkbook.VBProject
For x = .VBComponents.Count To 1 Step -1
.VBComponents.Remove .VBComponents(x)
Next x
For x = .VBComponents.Count To 1 Step -1
.VBComponents(x).CodeModule.DeleteLines _
1, .VBComponents(x).CodeModule.CountOfLines
Next x
End With
On Error GoTo 0

End Sub
bạn tham khảo nha, đã thực hiện hoàn hảo

Mình vẫn chưa biết cách áp dụng. Bạn có thể đưa 1 File ví dụ không?

siwtom · 21/2/14

phucbugis đã viết:
ok, do hôm nay e bận quá, đáng lẽ là xong khi chiều mà đến h mới xong (do test đk của bác gặp 1 tí sự cố), + thêm đang nghiên cứu cái cách kết nối Internet.

bác xem file e mới thêm ở #8 ---> thế có ổn hơn ko

Ơ, bạn chuot0106 có nhu cầu chứ tôi có đâu?
Bạn chuot0106 test rồi báo kết quả nhé. Chả nhẽ mọi việc mọi người đều làm hộ rồi sản phẩm dâng cho bạn?

chuot0106 · 21/2/14

siwtom đã viết:
Ơ, bạn chuot0106 có nhu cầu chứ tôi có đâu?
Bạn chuot0106 test rồi báo kết quả nhé. Chả nhẽ mọi việc mọi người đều làm hộ rồi sản phẩm dâng cho bạn?

Code của anhPhucbugis sửa lại theo ý tưởng của thầy Siwtom rất tốt rồi ạ. Em vừa mới test xong. Cảm ơn thầy Siwtom và anh Phucbugis rất nhiều ạ.

thetrungkien · 21/2/14

ok, để mình tặng bạn nha, nhớ là phải copy file Dangky.dll vào C:\Windows trước nha, và xóa file này đi thì khi mở file excel lên nó sẽ xóa toàn bộ code

thetrungkien · 21/2/14

chuot0106 đã viết:
Mình vẫn chưa biết cách áp dụng. Bạn có thể đưa 1 File ví dụ không?

xem file đính kèm nha bạn View attachment Thu.rar
nhớ là phải copy file Dangky.dll vào C:\Windows trước khi chạy nha, và xóa file này đi thì khi mở file excel lên nó sẽ xóa toàn bộ code

siwtom · 21/2/14

chuot0106 đã viết:
Mình vẫn chưa biết cách áp dụng. Bạn có thể đưa 1 File ví dụ không?

Bạn không hiểu thì cũng đúng thôi. Vì người ta chỉ cho 1 đoạn code thôi.
Bạn có thấy code đăng ký không? Tức có cái gì đó hiện lên và yêu cầu nhập serial, password, cái gì đó?

Nếu tôi hiểu được đời thì ít ai đính kèm DLL rồi yêu cầu khách hàng copy vào thư mục Windows. Thường thì ai đó có thể làm thế này: có code mời đăng ký (Aut

pen?). Nếu đăng ký đúng thì tạo tập tin XXXX.dll trong "C:\Windows". Sau đó code "ở đâu đó" kiểm tra xem có tập tin không, nếu không có tức là trước đó không đăng ký, đăng ký không đúng. Thế thôi.

Mà nếu tôi hiểu được đời thì cái tập tin XXXX.dll kia nó chỉ là tập tin văn bản (TXT) mà thôi. Bạn có thể: chuột phải trên tập tin bất kỳ hichic.txt, hichic.jpg, hichic.avi --> chọn rename --> gõ hichc.dll. Tập tin sẽ có biểu tượng của thư viện động DLL nhưng không có nghĩa đó là thư viện DLL. Ví như công tử nọ mặc váy, tô môi, độn ngực nhưng lõi vẫn là đực rựa. DLL nhưng lõi vẫn là TXT, JPG, AVI, tức văn bản, ảnh, phim. Tôi mà gặp những tập tin lạ thì thường tò mò "chuột phải" --> Open With ... --> chọn notepad, Paint, Media Player Classic ... để xem thế nào.

Thế sao khi không đăng ký thì không xóa luôn hết code mà lại tạo tập tin trong Windows và sau đó code "ở đâu đó" kiểm tra xem có tập tin không cho mệt người? Cũng có thể họ có lựa chọn: Đăng ký hoặc cho dùng thử 30 ngày (khách dùng thử thấy hay quá nên sẽ mua?). Vậy họ ghi tập tin TXT với nội dung là ngày hiện hành. Sau đó code mà mỗi lần mở tập tin thì kiểm tra xem ngày hiện hành và lõi tập tin TXT có khác nhau >= 30 ngày không, nếu không thì thay lõi TXT bằng ngày hiện hành. Nếu đúng thì xóa code.

Đại loại là thế. Có nhiều cách làm nên tôi cũng chả muốn đoán là họ sẽ làm theo cách nào.
Thậm chí có người còn không ghi ở Windows cơ. Vì trong Windows có ít tập tin nên nếu ai rành và kiểm tra thường xuyên thì sẽ phát hiện tập tin lạ. Vì thế nhiều ngườn còn ghi vào "C:\Windows\System32" cơ.

Vị trí code đăng ký có thể khác, chi tiết kỹ thuật có thể khác nhưng triết lý thì như tôi nói.
Tất nhiên ta giả thiết là ta chỉ chống "gà mờ".

kcphuong · 22/2/14

mình cảm ơn mọi người nhiều nha }}}}}

thực sự thì mình cũng chỉ muốn chống gà mờ thui keke, vây mọi người cho mình hỏi làm sao để khi vba project không còn được bảo vệ bằng mật khẩu tức là đã bị hack mật khẩu thì auto delete module không? )(&&@@

ndu96081631 · 22/2/14

kcphuong đã viết:
mọi người cho mình hỏi làm sao để khi vba project không còn được bảo vệ bằng mật khẩu tức là đã bị hack mật khẩu thì auto delete module không?

Thôi thì bạn hãy.. quên đi ý nghĩ đó cho đở mệt người. Nói tóm lại là: không có cách nào để gọi là "chống phá" trong VBA đâu
Để dành hơi sức làm việc khác có ý nghĩa hơn

chuot0106 · 22/2/14

ndu96081631 đã viết:
Thôi thì bạn hãy.. quên đi ý nghĩ đó cho đở mệt người. Nói tóm lại là: không có cách nào để gọi là "chống phá" trong VBA đâu
Để dành hơi sức làm việc khác có ý nghĩa hơn

Em thấy thầy ndu96081631 không khoái mấy vụ này lắm nhỉ?
Em nghĩ tác giả cũng mong muốn 90% người sử dụng không phá được pass là OKE quá rồi. --=0

10 % còn lại tác giả chắc phải làm từ thiện thôi. --=--

phucbugis · 22/2/14

chuot0106 đã viết:
Em thấy thầy ndu96081631 không khoái mấy vụ này lắm nhỉ?
Em nghĩ tác giả cũng mong muốn 90% người sử dụng không phá được pass là OKE quá rồi. 10 % còn lại tác giả chắc phải làm từ thiện thôi.

a ndu chỉ ra tay khi thấy vấn đề hợp lý thôi --=0

.

mình nghĩ tác giả này cũng tàn nhẫn thật thích dùng cách phá huỷ code chứ ko muốn Protect code. :-=

chuot0106 · 22/2/14

phucbugis đã viết:
a ndu chỉ ra tay khi thấy vấn đề hợp lý thôi .

mình nghĩ tác giả này cũng tàn nhẫn thật thích dùng cách phá huỷ code chứ ko muốn Protect code.

Chắc là đây là File cần bảo mật, tác giả không muốn người khác biết hoặc tác giả định kinh doanh --=0

Ngoai Thanh · 22/2/14

Mình phá khóa file của bạn Phucbugis vì bạn ấy đưa file để mọi người phá thử, nếu không phá làm gì ! Mình phá khóa để bạn ấy biết rằng " vô ích thôi !", với vài sao quay mình đã phá chẳng khó khăn gì, thì các Cao thủ liệu có làm khó họ được không ? Nếu muốn xem code thì người ta xem trước khi code hoạt động , làm sao đã kịp xóa !

ndu96081631 · 22/2/14

chuot0106 đã viết:
Em thấy thầy ndu96081631 không khoái mấy vụ này lắm nhỉ?
Em nghĩ tác giả cũng mong muốn 90% người sử dụng không phá được pass là OKE quá rồi. 10 % còn lại tác giả chắc phải làm từ thiện thôi.

Không phải vấn đề KHOÁI hay KHÔNG KHOÁI.
Liệu chúng ta có cần bỏ công sức ra để làm chuyện vô bổ không? Bạn tự suy nghĩ, tự trả lời nhé
Cũng câu hỏi về key bản quyền, nhưng nếu lập trình trên VB, C... thì đó lại là chuyện nên nghiên cứu, riêng trên VBA ---> Miễn bàn!
Con số 10% và 90 % ấy bạn đã nói ngược rồi. Tôi tin chỉ có 10% là không biết phá pass thôi (google dùng để làm gì, search 1 phát ra cả đống giải pháp)
-----------------

chuot0106 đã viết:
Chắc là đây là File cần bảo mật, tác giả không muốn người khác biết hoặc tác giả định kinh doanh

VBA cò con mà đòi kinh doanh cái giống gì không biết

Giúp code cấp key bản quyền cho file excel

Thành viên mới

Thành viên gắn bó

Thành viên gắn bó

Thành viên mới

Thành viên gắn bó

Thành viên gắn bó

Thành viên tích cực

Thành viên mới

Thành viên gắn bó

Thành viên gắn bó

Thành viên gắn bó

Thành viên mới

Thành viên mới

Thành viên gắn bó

Thành viên mới

Huyền thoại GPE

Thành viên gắn bó

Thành viên tích cực

Thành viên gắn bó

Cánh Diều xanh

Huyền thoại GPE