BigAp.ru — интернет-магазин электроники и бытовой техники

Автор Тема: [Решено] Сброс пароля защиты Excel Листов  (Прочитано 4135 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн sysadmin

  • Administrator
  • сисадми́н
  • *****
  • Сообщений: 8528
  • Karma: +114/-0
  • Пол: Мужской
    • Share Post
    • сайт для сис. админов и не только...
[Решено] Сброс пароля защиты Excel Листов
« : Декабрь 01, 2009, 05:09:49 pm »
Снять защиту / сбросить пароль с листа или ячейки эксель можно различными способами, например при помощи макроса, создаем макрос (панель Разработчика - Макросы - Создать), вставляем код между Sub и End Sub:
Sub Password_Cracker()
Dim t!
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Long
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
Dim kennwort As String
t = Timer
On Error GoTo err_
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
kennwort = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6)
For n = 32 To 126
ActiveSheet.Unprotect kennwort & Chr(n)
MsgBox "Done in " & Format(Timer - t, "0.0 sec")
Exit Sub
nxt_: Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Exit Sub
err_: Resume nxt_
End Sub
Сохраняем, запускаем, вуаля.. пароля нет )

Есть еще очень простое решение:
  • Переименовываем расширение xlsx в zip
  • Открываем архиватором архив
  • Переходим в папку - /xl/worksheets/
  • Открываем sheet1.xml
  • Ищем тег - sheetProtection
  • Удаляем его
  • Сохраняем архив, zip переименовываем на xlsx
« Последнее редактирование: Март 31, 2016, 10:08:08 am от sysadmin »
дорогу осилит идущий...
......................
MCP, MCTS, RHCSA
......................
also aka xck...

 


thumbup
Сброс пароля SA SQL 2005

Автор sysadmin

0 Ответов
6176 Просмотров
Последний ответ Апрель 27, 2011, 04:15:36 pm
от sysadmin
xx
Сброс пароля на Windows

Автор sysadmin

0 Ответов
1432 Просмотров
Последний ответ Ноябрь 26, 2013, 02:56:23 pm
от sysadmin
xx
Сброс пароля root CentOS 7

Автор sysadmin

5 Ответов
5733 Просмотров
Последний ответ Сентябрь 07, 2016, 12:12:47 pm
от HorekRediskovich
xx
Linux сброс пароля MySQL

Автор sysadmin

2 Ответов
551 Просмотров
Последний ответ Февраль 20, 2016, 04:18:00 pm
от sysadmin