Xin code cho dùng thử file bảng tính(code bảo vệ) (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

saomai6692

Thành viên hoạt động
Tham gia
10/8/12
Bài viết
120
Được thích
20
Em chào các Bác! em muốn xin các bác code trong VBA bảng tính, mục đích là cho người khác sử dụng thử trong giới hạn là 30 ngày hoặc số ngày bất kỳ, hết thời gian trên file bảng tính sẽ xóa hoặc báo lỗi. Trân trọng cảm ơn
 

File đính kèm

Lần chỉnh sửa cuối:
Em chào các Bác! em muốn xin các bác code trong VBA bảng tính, mục đích là cho người khác sử dụng thử trong giới hạn là 30 ngày hoặc số ngày bất kỳ, hết thời gian trên file bảng tính sẽ xóa hoặc báo lỗi. Trân trọng cảm ơn
Tự xóa file là code này:
PHP:
Sub Killed()
 Application.DisplayAlerts=False
 ThisWorkbook.ChangeFileAccess xlReadOnly
 Kill ThisWorkbook.FullName
 ThisWorkbook.Close False
End Sub
Còn việc giới hạn ngày hoặc số lần mở file có nhiều cách lắm, trên GPE đã post rất nhiều lần rồi, bạn tìm đi
----------------------
Nhưng nói chung là tôi chẳng khoái mấy vụ này lắm. Làm xong chỉ tổ cho người ta.. GHÉT
 
Upvote 0
Cái code này khó đây, chỉ có các bác cao thủ mới có thể tạo lập được thôi, bạn chờ chút nhé.
 
Upvote 0
Bác ndu96081631 lại tự ái rồi, nhiều người ghét có nghĩa là họ đang nhớ về Bác đó, trong đó có cả tôi mà, bác hãy cho mọi nghười cùng tham khảo đi. Cảm ơn
 
Upvote 0
Bác ndu96081631 lại tự ái rồi, nhiều người ghét có nghĩa là họ đang nhớ về Bác đó, trong đó có cả tôi mà, bác hãy cho mọi nghười cùng tham khảo đi. Cảm ơn
Ý tôi là dù có làm thì VBA trên Excel cũng rất vô bổ ---> trong vòng 5s, crack cái ra tất tần tật
---------------------------------------------
Tôi nhớ có lần thằng bạn nhờ crack giùm phần mềm kế toán. Nói là "phần mềm" cho oai chứ cũng chỉ là code viết trên Excel thôi
Nhìn sơ qua cái "phần mềm" này cũng bắt mắt lắm: Cũng file .exe đàng hoàng, cũng giao diện hoành tráng, cũng khóa code, cũng giới hạn sử dụng tè lè... nhưng sau khi crack xong, xem code mới thấy rất.. tào lao ---> "Nó" copy tùm lum code các nơi rồi ráp vào, thậm chí tôi còn thấy có vài đoạn code tôi từng post trên GPE trước đây cũng có mặt
Nhủ thầm: Thì ra code của "nó" cũng chẳng có gì hơn mình, có chăng nó hơn mình ở chổ nó CÓ MÁU KINH DOANH ---> Cái quái gì cũng nghĩ ra để bán được
Hic...
---------------------------------------------
Đương nhiên đây chỉ là quan điểm riêng của tôi, còn ai thích gì thì cứ làm ---> Mọi thứ đã có sẵn trên GPE rồi, cứ thế mà.. "ráp" vào thôi. Còn nếu ngay cả "ráp" cũng không xong thì thôi... nghỉ xài đi cho khỏe!
 
Upvote 0
'Lấy đoạn code từ Anh ndu
Tự xóa file là code này:
PHP:
Sub Killed()
 Application.DisplayAlerts=False
 ThisWorkbook.ChangeFileAccess xlReadOnly
 Kill ThisWorkbook.FullName
 ThisWorkbook.Close False
End Sub
người ta.. GHÉT
Thêm cái này nữa là ra kiểu như bạn hỏi này:
PHP:
Private Sub Workbook_Open()
  If Date >= DateSerial(năm bạn muốn, tháng bạn muốn, ngày nữa) Then
    MsgBox "Het han su dung"
    Call Killed '<---Xoa du lieu nhu xoa du lieu truc tiep 
'Application.Quit  <--Xoa file khong cho vao trang tinh
  End If
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Ý tôi là dù có làm thì VBA trên Excel cũng rất vô bổ ---> trong vòng 5s, crack cái ra tất tần tật
---------------------------------------------
Tôi nhớ có lần thằng bạn nhờ crack giùm phần mềm kế toán. Nói là "phần mềm" cho oai chứ cũng chỉ là code viết trên Excel thôi
Nhìn sơ qua cái "phần mềm" này cũng bắt mắt lắm: Cũng file .exe đàng hoàng, cũng giao diện hoành tráng, cũng khóa code, cũng giới hạn sử dụng tè lè... nhưng sau khi crack xong, xem code mới thấy rất.. tào lao ---> "Nó" copy tùm lum code các nơi rồi ráp vào, thậm chí tôi còn thấy có vài đoạn code tôi từng post trên GPE trước đây cũng có mặt
Nhủ thầm: Thì ra code của "nó" cũng chẳng có gì hơn mình, có chăng nó hơn mình ở chổ nó CÓ MÁU KINH DOANH ---> Cái quái gì cũng nghĩ ra để bán được

Bạn NDU mến, trước tiên mình phải thừa nhận bạn là người có kiến thức rất sâu rộng và rất nhiệt tình, nhiều thành viên khác, trong đó có tôi, đã thừa hưởng những kiến thức đó từ bạn, vận dụng và sử dụng vào công việc, mang lại những hiệu quả nhất định.
Vậy nhưng tôi thấy bạn có vẻ hay "thành kiến" với những file khóa code, những gì kiểu như "riêng tư, bí mật"…
Một ngôi nhà nào dù xấu đẹp thì thường nó cũng được "lắp ráp" bởi những việc gạch, viên ngói… những viên gạch ngói ấy có thể người ta phải mua, cũng có thể người ta tự làm, hay người ta "lượm được" của người khác… và dù bằng cách nào, khi ngôi nhà được xây xong nó cũng cần phải có 1 cái khóa. Chưa hẳn người ta khóa nhà để… bán.
Biết rằng việc khóa cũng chỉ khóa người ngay, hay khóa CHO VUI… dù với mụch đích gì thì đó là quyền riêng tư của người ta. Bạn đồng ý với mình điểm này chứ?
Tôi nghĩ bạn nên "quảng đại" 1 chút nữa là OK, chẳng hơi đâu nên ghét 1 người xây nhà có khóa!!!
Vài lời chân tình, mong bạn đừng giận nhé.
 
Upvote 0
Bạn NDU mến, trước tiên mình phải thừa nhận bạn là người có kiến thức rất sâu rộng và rất nhiệt tình, nhiều thành viên khác, trong đó có tôi, đã thừa hưởng những kiến thức đó từ bạn, vận dụng và sử dụng vào công việc, mang lại những hiệu quả nhất định.
Vậy nhưng tôi thấy bạn có vẻ hay "thành kiến" với những file khóa code, những gì kiểu như "riêng tư, bí mật"…
Một ngôi nhà nào dù xấu đẹp thì thường nó cũng được "lắp ráp" bởi những việc gạch, viên ngói… những viên gạch ngói ấy có thể người ta phải mua, cũng có thể người ta tự làm, hay người ta "lượm được" của người khác… và dù bằng cách nào, khi ngôi nhà được xây xong nó cũng cần phải có 1 cái khóa. Chưa hẳn người ta khóa nhà để… bán.
Biết rằng việc khóa cũng chỉ khóa người ngay, hay khóa CHO VUI… dù với mụch đích gì thì đó là quyền riêng tư của người ta. Bạn đồng ý với mình điểm này chứ?
Tôi nghĩ bạn nên "quảng đại" 1 chút nữa là OK, chẳng hơi đâu nên ghét 1 người xây nhà có khóa!!!
Vài lời chân tình, mong bạn đừng giận nhé.
Mỗi người một quan điểm mà. Bạn đâu thể cấm tôi GHÉT cái này mà phải THƯƠNG cái kia
Bạn cũng có quyền THƯƠNG mấy cái NHÀ CÓ KHÓA... Và nếu bạn đã THƯƠNG thì cứ việc vào mà giúp người ta, riêng tôi không có hứng
Vậy thôi!
(Nói thêm: Tôi không ghét NHÀ CÓ KHÓA hay Ổ KHÓA mà tôi chỉ ghét mấy cái NHÀ MỤC NÁT CŨNG BÀY ĐẶT KHÓA... Ẹc... Ẹc...)
 
Upvote 0
Cuối tuần vui 1 tí với bạn nha:

Một ngày đẹp trời nọ, NDU, 1 học giả có cỡ mà cư dân GPE không mấy ai lạ mặt, thường ngày, sau khi hoàng hôn đã tắt nắng, gã hay dạo bước trên những con phố của thành phố Biên Hoà, thành phố sầm uất nhất nhì VN, thả mình trong những cơn gió mà đầu óc thì đang nghĩ đến những đoạn code, những thuật toán, vòng lặp gì gì đó… gã hay ngước nhìn những toà nhà cao tầng hiện đại trên đường phố rực sáng ánh đèn, gã đã quen mắt với những cảnh đó, một hôm gã chợt nhận thấy dưới vệ đường, ngay sát chân những toà nhà nguy nga, 1 căn nhà mục nát tồi tàn nằm sát đất, đã vậy còn của đóng then cài im ỉm như chẳng muốn cho ai nhìn thấy cái gì bên trong, gã lấy làm lạ buột miệng: Ghét thật, nhà mục nát thế, không biết có cái quái gì bên trong mà cũng bày đặt khoá cửa!!!
Bên trong liền có tiếng vọng ra: "Này, ông không khoá để trộm nó vào nó lấy đi cái đôi dép đứt của ông à?"
Gã nghĩ: Cái đôi dép đứt thì có nghĩa lý gì nhỉ?
Nhưng khổ nỗi, với người khác đó lại cả 1 gia tài, hay có thể nó gắn với 1 kỷ niệm gì đó cần phải giữ bằng được...
Nhận xét rút ra: Đừng nên ghét bỏ những người còn nghèo (cả về vật chất và kiến thức), vì họ nghèo họ mới bo bo giữ của, bản thân họ chắc cũng không muốn như vậy, một ngày nào khi thoát khỏi cảnh nghèo khó, được sống trong căn nhà hiện đại tiện nghi và nhìn thấy 1 căn nhà mục nát khoá cửa rất có thể họ cũng nghĩ như bạn bây giờ: Ghét thật, nhà mục nát thế, không biết có cái quái gì bên trongmà cũng bày đặt khoá cửa!!!
Và như vậy thay vì ghét bỏ, chúng ta hãy giúp đỡ để họ thoát khỏi cảnh nghèo khó.
(Chúc cuối tuần vui vẻ)
 
Lần chỉnh sửa cuối:
Upvote 0
Cuối tuần vui 1 tí với bạn nha:

Một ngày đẹp trời nọ, NDU, 1 học giả có cỡ mà cư dân GPE không mấy ai lạ mặt, thường ngày, sau khi hoàng hôn đã tắt nắng, gã hay dạo bước trên những con phố của thành phố Biên Hoà, thành phố sầm uất nhất nhì VN, thả mình trong những cơn gió mà đầu óc thì đang nghĩ đến những đoạn code, những thuật toán, vòng lặp gì gì đó… gã hay ngước nhìn những toà nhà cao tầng hiện đại trên đường phố rực sáng ánh đèn, gã đã quen mắt với những cảnh đó, một hôm gã chợt nhận thấy dưới vệ đường, ngay sát chân những toà nhà nguy nga, 1 căn nhà mục nát tồi tàn nằm sát đất, đã vậy còn của đóng then cài im ỉm như chẳng muốn cho ai nhìn thấy cái gì bên trong, gã lấy làm lạ buột miệng: Ghét thật, nhà mục nát thế, không biết có cái quái gì bên trong mà cũng bày đặt khoá cửa!!!
Bên trong liền có tiếng vọng ra: "Này, ông không khoá để trộm nó vào nó lấy đi cái đôi dép đứt của ông à?"
Gã nghĩ: Cái đôi dép đứt thì có nghĩa lý gì nhỉ?
Nhưng khổ nỗi, với người khác đó lại cả 1 gia tài, hay có thể nó gắn với 1 kỷ niệm gì đó cần phải giữ bằng được...
Nhận xét rút ra: Đừng nên ghét bỏ những người còn nghèo (cả về vật chất và kiến thức), vì họ nghèo họ mới bo bo giữ của, bản thân họ chắc cũng không muốn như vậy, một ngày nào khi thoát khỏi cảnh nghèo khó, được sống trong căn nhà hiện đại tiện nghi và nhìn thấy 1 căn nhà mục nát khoá cửa rất có thể họ cũng nghĩ như bạn bây giờ: Ghét thật, nhà mục nát thế, không biết có cái quái gì bên trongmà cũng bày đặt khoá cửa!!!
Và như vậy thay vì ghét bỏ, chúng ta hãy giúp đỡ để họ thoát khỏi cảnh nghèo khó.
(Chúc cuối tuần vui vẻ)
Ẹc.... Ẹc.... cũng vui!
Nhưng nếu là tôi thì thà rằng tôi đi HỌC CÁCH LÀM GIÀU (hoặc chí ít cũng học cách tự nuôi sống bản thân) hơn là bỏ tiền đi mua ổ khóa để khóa cái nhà mục mà bên trong chỉ có đôi dép đứt
HÃY HỌC NHỮNG THỨ CÓ ÍCH ĐỂ TỰ LÀM GIÀU (TRI THỨC) HƠN LÀ PHẢI CHỊU NGHÈO THIÊN THU
Không biết các bạn có hiểu ý tôi nói không nhỉ? (bao giờ các bạn đủ tiền xây nhà lầu, lúc đó KHÓA VẪN CHƯA MUÔN)
--------------
Nói thêm rằng: GPE này sẵn sàng giúp các bạn làm giàu nhưng tuyệt đối không phải là cách giúp mua ổ khóa đâu! Suy nghĩ lại đi ---> Giúp xây nhà đàng hoàng xong sẽ giúp khóa (mà khi đã giàu có rồi, có lẽ cũng chẳng cần ai giúp, tự ta mua khóa thừa sức)... Lý nào có khóa trước khi có nhà
VÔ LÝ
 
Lần chỉnh sửa cuối:
Upvote 0
Ý tôi là dù có làm thì VBA trên Excel cũng rất vô bổ ---> trong vòng 5s, crack cái ra tất tần tật
---------------------------------------------
Tôi nhớ có lần thằng bạn nhờ crack giùm phần mềm kế toán. Nói là "phần mềm" cho oai chứ cũng chỉ là code viết trên Excel thôi
Nhìn sơ qua cái "phần mềm" này cũng bắt mắt lắm: Cũng file .exe đàng hoàng, cũng giao diện hoành tráng, cũng khóa code, cũng giới hạn sử dụng tè lè... nhưng sau khi crack xong, xem code mới thấy rất.. tào lao ---> "Nó" copy tùm lum code các nơi rồi ráp vào, thậm chí tôi còn thấy có vài đoạn code tôi từng post trên GPE trước đây cũng có mặt
Nhủ thầm: Thì ra code của "nó" cũng chẳng có gì hơn mình, có chăng nó hơn mình ở chổ nó CÓ MÁU KINH DOANH ---> Cái quái gì cũng nghĩ ra để bán được
Hic...
---------------------------------------------
Đương nhiên đây chỉ là quan điểm riêng của tôi, còn ai thích gì thì cứ làm ---> Mọi thứ đã có sẵn trên GPE rồi, cứ thế mà.. "ráp" vào thôi. Còn nếu ngay cả "ráp" cũng không xong thì thôi... nghỉ xài đi cho khỏe!

Vậy file exe được tạo ra từ VB6 cũng mở khóa được (một cách đơn giản) hả bạn?. Vậy mà mình nghỉ làm vậy (dùng VB6) sẽ bảo vệ được cái nhà gỗ mục nát của mình, hic!
Nếu được mình gởi nhà lên, ndu mở giùm cái nhà của mình thử nha?
 
Lần chỉnh sửa cuối:
Upvote 0
Vậy file exe được tạo ra từ VB6 cũng mở khóa được (một cách đơn giản) hả bạn?. Vậy mà mình nghỉ làm vậy sẽ bảo vệ được cái nhà gỗ mục nát của mình, hic!
Nếu được mình gởi nhà lên, ndu mở giùm cái nhà của mình thử nha?
Bạn có hiểu nhầm ý của NDU không? Một bên là VB for application (VBA) - viết trong môi trường Excel - file tạo ra dù là EXE nhưng bản chất vẫn là file Excel chuyển đổi; một bên là VB lập trình ứng dụng sau đó biên dịch thành file EXE.Bạn bảo bẻ khóa nghĩa là quá trình biên dịch ngược. Hai vấn đề này hoàn toàn khác nhau!!!
 
Upvote 0
Vậy file exe được tạo ra từ VB6 cũng mở khóa được (một cách đơn giản) hả bạn?. Vậy mà mình nghỉ làm vậy (dùng VB6) sẽ bảo vệ được cái nhà gỗ mục nát của mình, hic!
Nếu được mình gởi nhà lên, ndu mở giùm cái nhà của mình thử nha?
Hôm trước nghe Nguyễn Duy Tuân phân tích thế này: File .exe khi khởi động, chắc chắn nó sẽ "bung" file xls ra đâu đó trên ổ cứng và từ đây sẽ làm việc trên file xls ấy
Việc của ta là tìm cho bằng được cái file xls, tìm được coi như mọi chuyện đã xong!
Anh cứ gửi file của anh lên xem thử... Em không chắc có thể "phá" được (vì mỗi phần mềm tạo file exe có cách hoạt động khác nhau)... Tuy nhiên, cứ thử ---> Học tập là chính
Ẹc... ẹc...
(còn nếu là 1 file EXE thật sự được tạo ra từ VB6 thì khác à nha... không "phá" được đâu, kể cả tác giả file này)
 
Upvote 0
Hôm trước nghe Nguyễn Duy Tuân phân tích thế này: File .exe khi khởi động, chắc chắn nó sẽ "bung" file xls ra đâu đó trên ổ cứng và từ đây sẽ làm việc trên file xls ấy
Việc của ta là tìm cho bằng được cái file xls, tìm được coi như mọi chuyện đã xong!
Anh cứ gửi file của anh lên xem thử... Em không chắc có thể "phá" được (vì mỗi phần mềm tạo file exe có cách hoạt động khác nhau)... Tuy nhiên, cứ thử ---> Học tập là chính
Ẹc... ẹc...
(còn nếu là 1 file EXE thật sự được tạo ra từ VB6 thì khác à nha... không "phá" được đâu, kể cả tác giả file này)

Vậy thì bó tay rồi, tuy nhiên cứ gởi thử. File đây
 

File đính kèm

Upvote 0
Cho em xen ngang topic một tý.
Em thấy đa số khi chạy các chương trình phá PW. Sau khi phá xong thì có chương trình không thông báo PW, có chương trình trả về PW ở cell A1 là AABBC... hoặc ký tự gì đó không fải PW đúng như ban đầu.
Vì em chưa chạy thử các chương trình khác nên không biết có chương trình nào trả về đúng PW ban đầu không (em nghỉ là có)
Ở đây em chỉ hỏi cho biết. Vì File của em có PW, mục đích để kg cho sửa số liệu (chứ kg fải dấu cthức) Nếu trong cơ quan của em, có người muốn chơi xấu thì họ sẽ chạy chương trình lấy PW, sau đó họ tiến hành sửa số liệu của em (VD: chi 100.000, họ sửa 1.000.000 thì mệt), nếu họ không nhập đúng PW ban đầu thì em biết là có trộm.
Em cảm ơn!
 
Upvote 0
Cho em xen ngang topic một tý.
Em thấy đa số khi chạy các chương trình phá PW. Sau khi phá xong thì có chương trình không thông báo PW, có chương trình trả về PW ở cell A1 là AABBC... hoặc ký tự gì đó không fải PW đúng như ban đầu.
Vì em chưa chạy thử các chương trình khác nên không biết có chương trình nào trả về đúng PW ban đầu không (em nghỉ là có)
Ở đây em chỉ hỏi cho biết. Vì File của em có PW, mục đích để kg cho sửa số liệu (chứ kg fải dấu cthức) Nếu trong cơ quan của em, có người muốn chơi xấu thì họ sẽ chạy chương trình lấy PW, sau đó họ tiến hành sửa số liệu của em (VD: chi 100.000, họ sửa 1.000.000 thì mệt), nếu họ không nhập đúng PW ban đầu thì em biết là có trộm.
Em cảm ơn!

Cái bạn đang nói chắc là Passwork protect sheet, đúng không?
Người ta phát hiện rằng cái pass này luôn có "1 cặp" song hành. Ví dụ:
- Bạn đặt pass là "AAA"
- Chương trình crack pass lại cho bạn kết quả là "BBB"
- Vì "AAA" và "BBB" là 1 cặp nên nếu sau khi crack xong, bạn lại protect sheet nhưng dùng cái pass là bằng kết quả vừa crack, tức "BBB" thì người dùng cũng chẳng hề biết file đã bị đổi pass. Khi đó nếu bạn Unprotect sheet và nhập pass ban đầu "AAA" Excel vẫn chẳng cằn nhằn gì
Tóm lại: Tôi crack pass của bạn xong, thay đổi số liệu rồi protect lại, chắc chắn bạn cũng không hề biết file đã bị trộm đâu (dù cái pass tôi crack được không phải cái ban đầu)
----------------------------------------
Vậy thì bó tay rồi, tuy nhiên cứ gởi thử. File đây
File của anh là VB6 à? Sao mà crack được chứ (kể cả tác giả là anh cũng thua, đúng không?)
Ẹc... Ẹc... dạo này anh nghiên cứu VB6 ha?
(mà cái file của anh em không mở được, báo lỗi Run-Time error '76': Path not found)
 
Upvote 0
----------------------------------------

File của anh là VB6 à? Sao mà crack được chứ (kể cả tác giả là anh cũng thua, đúng không?)
Ẹc... Ẹc... dạo này anh nghiên cứu VB6 ha?
(mà cái file của anh em không mở được, báo lỗi Run-Time error '76': Path not found)

Mình cũng có nghiên cứu chút ít VB cho biết và để học hỏi (biết đâu lại xây được lâu đài, hì hì ...).

Sao mình tải file trên về lại thấy vẫn chạy nhỉ, có lẽ chỉ chạy được trên WindowXP? Bạn nào chạy thử cho mình biết để tìm nguyên nhân với!
 
Upvote 0
Mình cũng có nghiên cứu chút ít VB cho biết và để học hỏi (biết đâu lại xây được lâu đài, hì hì ...).

Sao mình tải file trên về lại thấy vẫn chạy nhỉ, có lẽ chỉ chạy được trên WindowXP? Bạn nào chạy thử cho mình biết để tìm nguyên nhân với!

Máy tính mình xài XP và Office 2003 vẫn bị lỗi
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom