Страница 1 из 1
Снять пароль на лист
Добавлено: 14 авг 2007, 09:30
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
Re: Снять пароль на лист
Добавлено: 14 авг 2007, 14:20
Pavel55
Макрос для снятия пароля с листа
http://www.mcgimpsey.com/excel/removepwords.html
P.S. Плиз, когда выкладываете свой код на форуме, берите его в теги [.code] ... ВАШ КОД.... [./code] - только без точек внутри квадратных скобок (они для вас))
Re: Снять пароль на лист
Добавлено: 14 авг 2007, 14:33
kalinka
Спасибо за совет, скачала утилиту для снятия паролей, время работы 3 сек.
Re: Снять пароль на лист
Добавлено: 14 авг 2007, 14:45
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
Re: Снять пароль на лист
Добавлено: 14 авг 2007, 20:41
AleX70
Есть проги в нете, их куча по взлому паролей приложений MSOffice и весят не много. Через поисковик найдешь.
Если свой паролик забыл то можно, а чужой - ай-ай-ай.
Этот форум, вот сила!
Re: Снять пароль на лист
Добавлено: 25 май 2009, 09:10
vadim245
Уважаемые коллеги!
Очень не хочется плодить новую тему по паролям к листу, потому попробую актуализировать эту тему...
На форуме и в нете описана масса способов сломать пароль на лист.
Но не могу найти ни одной программы, которая бы делала это пакетно.
Дело было давно, я сам внедрял простую защиту листов с отчетом удаленных филиалов - индивидуальным паролем из 3 букв (чтоб тетки не нарушили структуру файла). Число филиалов возросло за последние 2 года, причем у каждого по прежнему свой пароль.
Теперь я вынужден перед обработкой макросами искать способ открывать пароль в каждом файле и пересохранять его. Такой способ безусловано есть, как то бесплатный password.xla И все же этот способ требует открыть файл (или прейти к очередному из группы открытых) - надавить в меню на запуск программы, а потом нажимать на Ок в попап окне, и только потом пересохранять.
Платные софтины тоже ориентированы на взлом/подбор пароля особо ценного и интересного файла, и не предусматривают пакетной обработки.
Может я плохо ищу? Или есть таки какие-то еще способы пакетно снять пароли?
Re: Снять пароль на лист
Добавлено: 25 май 2009, 16:29
Aent
Cохраняйте пароль в коллекции Application.Names.
Можно в зашифрованном виде (если тётки продвинутые
)
Переустановить придётся только раз ...
Re: Снять пароль на лист
Добавлено: 25 май 2009, 17:22
Esgalin
А обязательно снимать пароль ?
В общем случае защита листа не мешает перекопировать его содержимое.