Mã VBA để mở khóa một bảng Excel đã khóa
Mã VBA để mở khóa một bảng Excel đã khóa
Nế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ới
Các tin cũ hơn