Снять пароль на лист

[kalinka]

Нужно снять пароль с листа Август, книга Свод07, знаю что пароль 4 цифры. Создала в другой книге список паролей, книга-"Книга паролей", длист -"Пароли", попыталась подставить через макрос, но видимо использовала не те функции, посмотрите пожалуйста, может кто-нибудь сможет помочь.

Sub Макрос4()
'
ChDir "c:\Свод07"
Workbooks("Свод07.xls").Activate

For i = 1 To 15000
If Sheets("Август").Unprotect i Then
Workbooks("Книга паролей.xls").Activate
Sheets("Пароли").Select
Range("b1") = i
cancel = True
Else Next i
End If

End Sub

[Pavel55]

Макрос для снятия пароля с листа
http://www.mcgimpsey.com/excel/removepwords.html

P.S. Плиз, когда выкладываете свой код на форуме, берите его в теги [.code] ... ВАШ КОД.... [./code] - только без точек внутри квадратных скобок (они для вас))

[kalinka]

Спасибо за совет, скачала утилиту для снятия паролей, время работы 3 сек.

[Pavel55]

)))))) не за что )

Ну, а ваш код я бы сделал бы так

Код: Выделить всё

Sub TryToCrackPassword()
Dim pass$, i&
Dim ClosedWB As Worksheet
Dim PassWB As Worksheet
    pass = "123"
    Set ClosedWB = Workbooks("Свод07.xls").Sheets("Август") 'указание на книгу и лист, который защищён
    Set PassWB = Workbooks("Книга паролей.xls").Sheets("Пароли") 'указание на книгу и лист с паролями
    For i = 1 To 15000
        pass = PassWB.Cells(i, 1)
        On Error Resume Next
        ClosedWB.Unprotect pass
        If Err.Number = 0 Then
            On Error GoTo 0
            MsgBox "Пароль найден: " & pass, 64, ""
            Exit Sub
        End If
    Next i
    On Error GoTo 0
    MsgBox "Sorry, пароль не найден!", 64, ""
End Sub

[AleX70]

Есть проги в нете, их куча по взлому паролей приложений MSOffice и весят не много. Через поисковик найдешь.
Если свой паролик забыл то можно, а чужой - ай-ай-ай.
Этот форум, вот сила!

[vadim245]

Уважаемые коллеги!
Очень не хочется плодить новую тему по паролям к листу, потому попробую актуализировать эту тему...

На форуме и в нете описана масса способов сломать пароль на лист.
Но не могу найти ни одной программы, которая бы делала это пакетно.

Дело было давно, я сам внедрял простую защиту листов с отчетом удаленных филиалов - индивидуальным паролем из 3 букв (чтоб тетки не нарушили структуру файла). Число филиалов возросло за последние 2 года, причем у каждого по прежнему свой пароль.

Теперь я вынужден перед обработкой макросами искать способ открывать пароль в каждом файле и пересохранять его. Такой способ безусловано есть, как то бесплатный password.xla И все же этот способ требует открыть файл (или прейти к очередному из группы открытых) - надавить в меню на запуск программы, а потом нажимать на Ок в попап окне, и только потом пересохранять.

Платные софтины тоже ориентированы на взлом/подбор пароля особо ценного и интересного файла, и не предусматривают пакетной обработки.

Может я плохо ищу? Или есть таки какие-то еще способы пакетно снять пароли?

[Aent]

Cохраняйте пароль в коллекции Application.Names.
Можно в зашифрованном виде (если тётки продвинутые )
Переустановить придётся только раз ...

[Esgalin]

А обязательно снимать пароль ?
В общем случае защита листа не мешает перекопировать его содержимое.