Chào mừng đến với Diễn Đàn Tin Học VN! Hãy chia sẽ những gì bạn biết, và đưa ra thắc mắc của bạn để được giải đáp.

Xem chủ đề cũ hơnGo downXem chủ đề mới hơn
avatar
Thuyanh5499
Tổng số bài gửi : 4
Join date : 04/04/2022

Phá Password Excel không cần phần mềm Empty Re: Phá Password Excel không cần phần mềm

26/04/22, 01:44 pm
Bố mẹ nên làm gì con phải ở nhà học online và sử dụng máy tính nhiều?
Mad: Dịch Covid ngày càng lan rộng, các con không được đến trường đi học mà phải ở nhà học online nhưng liệu bố mẹ có yên tâm ?
Khi học online trên mạng thì không tránh khỏi việc xuất hiện các link quảng cáo các trang web game, web đen gây, các con sẽ dễn bấm vào các link đó dù vô ý hay là hữu ý
Vậy làm thế nào để biết được con làm gì khi học và có biện pháp nào để con không vào được những trang web đó?
✅ Thấu hiểu những nỗi lo trên của các bậc phụ huynh, VTEC Software đã phát triển Phần mềm bảo vệ và giám sát máy tính #VAPU, là người bạn đồng hành của các bậc phụ huynh trong việc quản lý và giám sát con cái.
VAPU có các tính năng ưu việt:
✔ Cài đặt khung giờ con được sử dụng máy tính
✔ Cài đặt khung giờ con được phép vào mạng
✔ Tự động chặn tất cả web đen, game online
✔ Tự động khoá các Game offline cài trên máy tính (New!)
✔ Tuỳ chọn chặn mạng xã hội Facebook, youtube
✔ Theo dõi nhật ký truy cập Internet của con
✔ Tự động chụp ảnh màn hình máy tính gửi về hàng ngày cho bố mẹ
✔ Tự động cập nhật danh sách web đen, game online trên mạng hàng ngày về máy bằng hệ thống AI từ máy chủ.
✔ Và nhiều tính năng khác
Với hơn 10 năm phát triển, VAPU đã tích lũy kho dữ liệu 30.000 web đen và game online bị chặn, trở thành công cụ hữu hiệu được hàng chục ngàn phụ huynh tin dùng. Với VAPU, phụ huynh yên tâm cho con sử dụng máy tính, lướt web lành mạnh, dễ dàng theo dõi và quản lý việc dụng máy tính của con.
Giá sử dụng full tính năng chỉ500K cho 12 tháng - chỉ 42K mỗi tháng.
>> VAPU cam kết:
✔ Dùng thử full chức năng miễn phí !
✔ Cài đặt trực tiếp, hỗ trợ kĩ thuật 24/7 !
✔ Hoàn tiền ngay nếu không hài lòng về sản phẩm !
Hãy Inbox ngay đề có được giải pháp bảo vệ con yêu của bố mẹ!
---------
Phần mềm bảo vệ và giám sát máy tính VAPU
☎Liên hệ :
Mr. Thắng - 0983.815.978
Email: vapu.sales@gmail.com
Website:http://www.vapu.com.vn/
phoenix51706
phoenix51706
Admin
Tổng số bài gửi : 171
Join date : 30/07/2010
https://diendantinhocvn.forumvi.com

Phá Password Excel không cần phần mềm Empty Phá Password Excel không cần phần mềm

19/09/13, 09:31 pm

Cách làm trong Excel 2007/2010 như sau: bấm Alt + F11 để hiện ra bảng Visual Basic Editor rồi sau đó thực hiện theo bước 3 như phía dưới.

Cách làm trong Excel 2003 như sau:



1. Mở file Excel có chứa các Sheet có pass

2 Chọn menu Tools -> Macro -> Visual Basic Editor

3 Nhấp đúp vào Sheet mà bạn muốn phá pass

Nếu bạn chưa thấy các Sheet bên phía trái của màn hình thì bấm:  Ctrl + R để hiện các Sheet.
( Nhiều máy khi bấm Alt + F11 thì không thấy cửa sổ bên trái hiện các Sheet )
4. Copy đoạn mã sau vào và nhấn menu Run -> Run Sub/UserForm 


5. Máy hỏi bạn có muốn CHƠI nó không ? Nếu muốn bấm YES



6. Bạn chờ một lúc máy sẽ phá Pass cho bạn. Có thông báo sau khi phá Pass












Sub PasswordBreaker()
If ActiveSheet.ProtectContents = False Then
    MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
Else
    If MsgBox("Sheet '" & ActiveSheet.Name & "' is protected, do you want to unprotect it?", _
    vbYesNo + vbQuestion, "Unprotect Active Sheet") = vbNo Then Exit Sub
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Dim i4 As Integer, i5 As Integer, i6 As Integer
    On Error Resume Next
    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
        ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
        Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
        Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
End If
End Sub




Xem chủ đề cũ hơnVề Đầu TrangXem chủ đề mới hơn
Permissions in this forum:
Bạn không có quyền trả lời bài viết