защита ячеек или листа

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

защита ячеек или листа (Формулы/Formulas)

Nasya

Дата: Четверг, 20.03.2014, 03:22 | Сообщение № 1

Группа: Гости

Прошу помощи, есть файл xls на нем стоит не полная защита страниц и ячеек, после редактирования и сохранение ячеек где нет защиты, файл сохранился в формате xlm и не дает редактировать те ячейки которые не были защищены, требует снять защиту , при нажатие снять защиту просит пароль, ну мы ее не знаем, вернее ее не ставили на те ячейки. Что делать????
Может кто сталкивался с такой проблемкой
[moder]Тема закрыта. Причина: нарушение п. 5с Правил форума[/moder]

Ответить

AVP

Дата: Четверг, 20.03.2014, 03:56 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация: 12 ±

Замечаний: 20% ±

Excel 2007

Взломайте пароль макросом.

правой кнопкой по листу - исходный текст, создаете модуль (пр. кнопкой по листу в VBAproject в меню выбираем insert - module)
и вставляйте этот код:
[vba]

Код

Sub Unlock_Excel_Worksheet()
t = Timer
If UnlockSheet(ActiveSheet) Then
MsgBox "Защита снята. Потребовалось времени: " & Format(Timer - t, "0.0 сек.")
Else
MsgBox "Не удалось снять защиту листа", vbCritical
End If
End Sub
Function UnlockSheet(ByRef sh As Worksheet) As Boolean
Dim i%, j%, k%, l%, m%, n As Long, i1%, i2%, i3%, i4%, i5%, i6%, txt$
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
txt$ = 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
sh.Unprotect txt$ & Chr(n)
If Err Then
Err.Clear
Else
Debug.Print "Пароль: " & txt$ & Chr(n)
UnlockSheet = True
Exit Function
End If
Next
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next
End Function

[/vba]