CACH GO BO PASSWORD TRONG SHEET EXCEL Có lúc bạn tìm được một file excel rất hay, nhưng file này đã bị đặt password sheet Menu Tool/ Option/ Protection/ Protect sheet Khi 1 sheet đã bị
Trang 1CACH GO BO PASSWORD TRONG SHEET EXCEL
Có lúc bạn tìm được một file excel rất hay, nhưng file này đã bị đặt password sheet ( Menu Tool/ Option/ Protection/ Protect sheet)
Khi 1 sheet đã bị khóa, bạn không thể modify (chén thêm nội dung, chèn cột, định dạng ô ) Xin trình bày 1 cách phá bỏ password
Bước 1: Mớở file excel, chon sheet bạn cần gỡ bỏ password
Bước 2: Vao Tool/Macro/Visual Basic Editor
/MÌ] File Edit View Insert Format | Tools
x12 +]
® Hoc ky| ®
? Times New Roman
2
3
4
5
6
?
8
9
Bước 3: Nháy đúp chuột vào sheet cần gỡ bỏ password, coppy doan ma sau vao cia s6 Microsoft Visual Basic
Su
ĐI
A
Nam
B 2010-2011
Error Checking
Shared Workspace
Share Workbook
Protection
Online Collaboration Formula Auditing
Macro Customize
Options
Š
9 *.0 00 | = =
»
8
„00 +.0
J|K Mén: HOAHOC Lớp: 9/5
Record New Macro
Security
Microsoft Script Editor Alt+Shift+F11
b 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 I As Integer, m As Integer, n As Integer
Dim il 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 il = 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(il) & 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
Trang 2End Sub
Bước 4: vao Run/Run Sub/UserForm
Ha) Sheet 15 (VETIN) A
Sheeti6 (HKI) _
Sheet17 (HKIT}
Sheeti8 (CNAM)
Sheet19 (PLLI)
Sheet2 (TOAN)
Sheet20 (PLL2)
Sheet21 (DSHS)
Sheet22 (HDSD)
: Sheet3 (LY}
BB) Sheet4 (HOA) ov
a ii | >
Properties - Sheet4 xí
Sheet4 Worksheet =]
Alphabetic | Categorized |
DisplayPageBreak False
DisplayRightToLef False
EnableAutoFilter False
EnableCalculation True
EnableOutlining False
EnablePivotTable False
EnableSelection 0 - xlNoRestricti
Scroll4rea
Bước 5: Chon Yes
Ed Microsoft Excel - tien
: Times New Roman
2010-2011
2
3
4
5
6
ểz
8
9
10
11
12
13
14
15
16
17
16
Debug
=
1
Break Ctrl+Break
Reset
(General)
Else
End End
MsgBox "Sheet '" ¢€ ActiveSheet.Name & "' is unprotected!", vb Information |
If MsgBox ("Sheet '" € ActiveSheet.Name € "' is protected, do you want to vwhYesNo + vhOuestion, "Unprotect Active Sheet") = vhNo Then Exit Sub Dim i As Integer, j As Integer, k As Integer
Dim 1 Aas Integer, m As Integer, n As Integer Dim 11 As Integer, i2 As Integer, i3 as Integer Dim 14 As Integer, i5 As Integer, i6 Aas Integer
On Error Resume Next For i = 65 To 66: For 1 = 65 To 66:
For 1 = 65 To 66: For m = 65 To 66:
For i2 = 65 To 66: For i3 = 65 To 66:
For i15 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chrfi) & Chr(1] & Chr[K] € _
Chr(l) € Chr(m) € Chrf(il) € Chr(i2) & Chr(i3) € _ Chr(14] & Chr(15] € Chr{i6) & Chr (n}
Next: Next: Next: Next: Next: Next Wext: Next: Next: Next: Next: Next
If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" € ActiveShee
If Sub
For k = 65 To 66 For ii = 65 To 66 For i4 = 65 To 66
ich GVCN (2.3)dakhoa
J|K]LIM|N]O
Sheet 'HOA' is nratected, da you want to unprotect it?