วิธีแก้ติดพาสเวิร์ดใน WorkSheet

พฤษภาคม 15, 2009 at 8:24 am ใส่ความเห็น

เคยเจอปัญหานี้ เหมือนผม มั๊ยครับ คือ ได้รับไฟล์ Excel มา 1ไฟล์ และต้องการแก้ไข
แต่ติดพาสเวิร์ดป้องกันการแก้ไขเวิร์คชีค ที่นี่ทำอย่างไร ก็ต้องอาศัยพี่ Google.com คนเก่ง
ค้นหาคำตอบ สุดท้ายก็ได้วิธีการแก้ไข แต่เป็นภาษา Eng  แต่อย่างน้อยก็ดีกว่าไม่มีวิธีใด
เพราะเอกสารนี้สำคัญมากซะด้วย ก็เลยเอา Tip มาฝาก เพื่อจะได้ใช้ให้เป็นประโยชน์
วิธีแก้ไข ตามนี้นะครับ
1. Open your spreadsheet.
(เปิดเอกสาร หรือ เวิร์คชีคที่ติดพาสเวิร์ด ขึ้นมา)
2. Hit ALT+F11 (to open the VBE, Visual Basic Environment)
(กด ปุ่ม Alt + F11) เพื่อเข้าสู่หน้าจอ การเขียนสคริป ภาษาวิชวล เบสิก 
3. On the menubar go to "Insert|Module"
(ที่เมนูบาร์ ข้างบน ให้คลิกเลือก "แทรก | โมดูล")
4. copy and paste the supplied code into the new window that just appeared.
(คัดลอก และ วาง โค้ด ในหน้าจอที่ปรากฏ "โค้ด อยู่ข้างล่าง" )
5. Hit ALT+F11 to return to the spreadsheet.
(กดปุ่ม Alt+F11 เพื่อกลับสู่หน้าจอเวิร์ดชีค)
6. Hit ALT+F8 to get the Macro dialogue box up.
(กดปุ่ม Alt+F8  เพื่อรันมาโครนั้น)
7. double click on the name "PasswordBreaker" in the list box.
(ดับเบิ้ลคลิก ที่ชื่อ "PasswordBreaker" ในช่องลีสต์บ๊อก

The macro will tell you an equivalent password, e.g. “AAAAAAAABBA”, but the main thing is is that the sheet is no longer password protected.

Copy Code Below

 Sub PasswordBreaker()
‘by Bob McCormick on NG: microsoft.public.excel.misc
‘on 22 May 2001.

‘Breaks worksheet password protection.
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
MsgBox “One usable password is ” & Chr(i) & Chr(j) _
& Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) _
& Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Entry filed under: ทิป และ เทคนิค. Tags: .

การศึกษาพาณิชย์บ้าทั้งหลาย วิธีเสียบปลั๊ก Notebook‏ ที่ถูกต้อง

ใส่ความเห็น

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / เปลี่ยนแปลง )

Twitter picture

You are commenting using your Twitter account. Log Out / เปลี่ยนแปลง )

Facebook photo

You are commenting using your Facebook account. Log Out / เปลี่ยนแปลง )

Google+ photo

You are commenting using your Google+ account. Log Out / เปลี่ยนแปลง )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


พฤษภาคม 2009
พฤ อา
« เม.ย.   มิ.ย. »
 123
45678910
11121314151617
18192021222324
25262728293031

%d bloggers like this: