Gỡ mật khẩu Protect Sheet bằng VBA

 Trong thực tế sử dụng bảng tính, người dùng thường đặt mật khẩu worksheet  đảm bảo tính toàn vẹn của dữ liệu, công thức,....nhưng sau đó có thể bị quên mật khẩu. Bài viết này sẽ hướng dẫn cách gỡ Password bảo vệ worksheet bằng VBA như sau:

Bước 1: Mở file Excel có sheet bị quên pass => Nhấn tổ hợp phím Alt+F11 (hoặc Alt+Fn+F11) để vào môi trường VBA  => Vào Insert chọn Module

Bước 2: Copy đoạn code dưới đây và paste vào cửa sổ code của Module

Sub BreakPassword()

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)

If ActiveSheet.ProtectContents = False Then

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

Bước 3: Trở lại môi trường Excel, vào click chuột vào sheet có Password protect sheet => rồi trở lại cửa sổ VBA và bấm vào biểu tượng Run (Màu xanh nhỏ) => Kết quả là sheet đó đã được gỡ mật khẩu. Lại tiếp tục đặt con chuột sang sheet tiêp theo có pass và lại chạy Run....=> Có bao nhiêu sheet có pass thì chạy Run bấy nhiêu lần

Nguồn code tham khảo: Instructable

Liên hệ tư vấn khóa học Excel cho người đi làm hoặc đặt hàng đào tạo tại doanh nghiệp

{Đt+Zalo} - 038 696 1334