---

За юуны өмнө Пассвордтой Exel файлаа нээгээд alt+f11 товчлуурыг зэрэг дарна. Ингэснээр дараах цонх нээгдэнэ.

Цонх нээгдсэний дараа VBAProject(Book.xlsx)
                        Sheet1
                        Sheet2 гэсэн хэсгээс
Sheet1 гэсэн дээр 2 товшиж цагаан цонх гарч ирэх ба дараах кодыг

Sub PasswordBreaker()
 
  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)
   ActiveWorkbook.Sheets(1).Select
   Range("a1").FormulaR1C1 = 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

хуулж бичээд Exel рүүгээ ороод View цэс рүү ороод Macro-View Macro сонголтыг хийхэд жижиг цонх нээгдэх ба эхний мөрөнд
 Sheet1.PasswordBreaker гэсэн үг харагдах ба тэр цонхноос RUN гэсэн товчлуур дээр дарна. Ингэсний дараа Exel дээрх файл чинь
хэсэг унших ба пассвордыг харуулна.Ингээд OK товчлуурыг дарснаар бүх зүйл хэвийн болох болно.За амжилт !!!

---