Mở khóa file excel vba
Bổ sung 2 là còn cách nữa, đơn giản hơn, với file xls, xlsm bị khóa vba only: Code:
On 13:48 By Võ Trần Thi 1. Sửa tên file Excel thành .zip 2. Giải nén ra thư mục và tìm đến file xl\vbaProject.bin, mở bằng Notepad++ 3. Tìm Chuối DPB thay bằng DPx và lưu lại. 4. đóng gói lại thành file excel và mở lên, bỏ qua các cảnh báo. 5. Nhấn Alt + F11 vào Editor và Tool -> VBA Project Properties chọn Tab Protect bỏ tick. 6. Lưu lại và xong. Chưa đến 30 giây. Like This Post? Please share!
You May Also Like...0 blogger:Đăng nhận xétBài đăng Mới hơn Bài đăng Cũ hơn Trang chủ Mã VBA để mở khóa một bảng Excel đã khóaNếu bạn đã từng quên mật khẩu cho một trong những bảng tính excel của mình, bạn sẽ biết nó có thể gây khó chịu đến mức nào. Mã được sử dụng trong hướng dẫn này là một trong những mã đơn giản nhất tôi đã tìm thấy. Nó sẽ tạo ra một mã có thể sử dụng sẽ mở khóa trang tính được bảo vệ của bạn. Tôi không thể lấy tín dụng cho mã vì tôi chỉ tìm thấy nó trong một thời điểm cần thiết (và tôi không thể tìm thấy trang web ở đâu nữa) ... vì vậy tôi sẽ không giúp đỡ nhiều nếu nó không hoạt động cho bạn nhưng tôi Tôi đã thành công với nó và nghĩ rằng tôi muốn chia sẻ. Bước 1: Mở VBA Mở bảng tính bạn quên mật khẩu của bạn. Sử dụng Alt + F11 để vào trình chỉnh sửa macro. Khi vào VBA, nhấp đúp vào trang tính bạn cần mở khóa từ danh sách menu bên trái. Điều này sẽ mở trang khai báo chung cho trang tính. Bước 2: Cắt và dán Bộ ngắt mã Chèn mã dưới đây vào trang khai báo chung mà bạn đã mở. Bạn không cần phải thay đổi bất cứ điều gì, tên tờ, v.v ... Chỉ cần cắt và dán. _______________ Sub PasswordBreaker () 'Phá vỡ bảo vệ mật khẩu bảng tính. 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 Tiếp tục tiếp theo For i = 65 đến 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 đến 66: Với i4 = 65 đến 66 Đối với i5 = 65 đến 66: Đối với i6 = 65 đến 66: Với n = 32 đến 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) Nếu ActiveSheet.ProtectContents = false thì MsgBox "Một mật khẩu có thể sử dụng là" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Thoát Sub End If Next: Next: Next: Tiếp theo: Tiếp theo: Tiếp theo Tiếp theo: Tiếp theo: Tiếp theo: Tiếp theo: Tiếp theo: Kết thúc tiếp theo Sub _______________ Bước 3: Chạy Macro Khi mã được thêm vào, chạy Macro bằng cách chọn Chạy từ thanh tab menu ở đầu màn hình trình soạn thảo VBA hoặc nhấn F5 đơn giản Bước 4: Sử dụng Mã đã tạo Macro sẽ đưa bạn trở lại bảng tính mà bạn muốn bỏ bảo vệ. Một hộp kiểu cảnh báo sẽ xuất hiện với một mã có thể sử dụng. Trong tab Xem lại, nhấp vào bảng Unprotect. Nhập mã được tạo như mật khẩu và thực hiện của bạn. Tờ của bạn nên được mở khóa! Bạn nên sử dụng sức mạnh này một cách khôn ngoan và có trách nhiệm chỉ để mở khóa bảng tính của riêng bạn. Chúc bạn thành công ! Các bài viết mớiCác tin cũ hơn |