CÁCH GỠ BỎ PASSWORD TRONG SHEET EXCEL

CÁCH GỠ BỎ 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ị

CÁCH GỠ BỎ 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 ko thể modif( chèn thêm nội dung, chèn cột, định dạng ô ) Xin trình bay 1 cách phá bỏ password

Bước 1: Mở file excel, chọn sheet bạn cần gỡ bỏ password

Bước 2: Vao Tool/Macro/Visual Basic Editor

/Ì] File Edit view Insert Format | Tools

P Times New Roman Hi: BÍ 7 Research Alt+Click 9 “gj ;00

S{ = & HOC KY » Error Checking

A B Shared Workspace IJ|Jd | K|ILL|M|LN|IO

Năm 2010-2011 Share Workbook Môn: HO HỌC

Lớp: 9/5

~*~ 4 x

Protection

Online Collaboration Formula Auditing

Customize Record New Macro

2

3

4

5

6

7

8

9 ¥ - Basic Editor 5 ñlt+F11

Bước 3: Nháy dup chuét vao sheet can go bo password, coppy doan ma sau vao cita sé Microsoft Visual Basic

Sub Password Breaker()

If ActiveSheet ProtectContents = False Then

Else

vbYesNo + vbQuestion, Unprotect Active Sheet) = vbNo Then Exit Sub

Dim i As Integer, j As Integer, k As Integer

Dim | 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 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(is5) & 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

Bước 4: vao Run/Run Sub/UserForm

HB) Sheet 15 (VETIN) A

Sheeti6 (HKI)

Sheet17 (HKII}

Sheet18 (CNAM)

Sheet19 (PLLI)

Sheet2 (TOAN}

Sheet20 (PLL2}

Sheet21(D5H5S)

Sheet22 (HDSD}

Sheet3 (LY}

_ ER] sheet4(HOA) ov

a i | > m

Sheet4 Worksheet =|

Alphabetic | Categorized |

DisplayPageBreak False

DisplayRightToLef False

EnableAutoFilter False

EnableCalculation True

EnableOutlining False

EnablePivotTable False

EnableSelection 0 - xlNoRestricti:

HOA

hee de ¬ 4“

Bước $›

Debug

ui 1l

Run Sub/UserForm FS ©

Ctrl+Break

Ln 24, Col 1

Break

Reset

(General)

Else

End End

Integer

Chr(1l] & Chrfraị & Chr(11)} € Chr[{i2) Chr(i4) & Chr(i5] & Chr(i6} & Chr(n}

TẾ Sub

=fS «| | rf 4

E Microsoft Excel - tỉ

ï Times New Roman

A

en ich GVCN (2.3)dakhoa

2010-2011

2

3

4

5

6

ểz

8

9

10

11

12

13

14

15

16

17

16

J|K]LIM|N]O

Lớp: 9⁄5

Sheet 'HO4' is protected, do you want to unprotect it?

No |

Yes