Добрый день, вечер, а ля кого то ночи. Люди добрые помогите малька......Ситуация вот какая: есть книга эксель в ней есть VBA проект-защищеный паролем, есть защита листа, есть защита структуры книги........ Вроде все уже нашел обрыл, кучу софта поставил но так до правды и не добрался........ Сорвал пароль на VBA проект, сорвал пароль на защиту листа (Спасибо Вашему форуму, код макроса нашел тут), Но вот осталась одна задача в книге есть скрытые листы, но отобразить их не возможно так как стоит пароль на защиту структуры книги..... ХЕЛП плиз снять ее как нить.....

Вод найденный макрос в другой теме но он снимает защиту с листа......Может можно как нить и с со структуры снять.......Прочитал шифрование вроде одинаковое....

Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.experts-exchange.com

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

Проги типа Office password Recovery Мастер, (оня снимает пароль на VBA проекты коректно, на защиту книги тоже пароль пишет но он не подходит)

нашел также прогу: Advanced Office Password Recovery Но коректного кряка нету....Как она работает не знаю... Зарание Спасибо.

Спасибо помогло....

Люди подскажите Чайнику в этих вопросах....

В VBA Проекте вижу листы причем лист 4 и лист 5 имеют одинаковые названия......Снял пароль на изменения структуры книги .......Но скрытых листов не оказалось....... Еще на том листе который второй есть код такого содержания:

Private Sub Worksheet_ Selection Change (ByVal Target As Range)

End Sub

Что бы это значило???? Так как ссылки в коде программы есть на 5 лист:

Private Sub ControlReg()
Dim unp As Long
Dim dopind As String, orgname As String
Dim count As Integer
Ðåã = Sheets(5).Range("G20").Value
count = Sheets(5).Range("H20").Value
Application.ScreenUpdating = False
If Ðåã = False Then
If count >= 0 And count < 3 Then
With Sheets(5)
.Unprotect
unp = .Range("F16").Value
' dopind = .Range("F17").Value
orgname = .Range("F18").Value
count = count + 1
.Range("H20").Value = count
.Protect
End With
With Sheets(1)
.Range("óíïÎðã").Value = unp
' .Range("dopind").Value = dopind
.Range("íàèìÎðãÑ").Value = orgname
End With
Exit Sub
ElseIf count > 2 Then
Ïðåäóïðåäèòü
cliiin
' HiddenCommandBarControls
Exit Sub
Else
With Sheets(5)
.Unprotect
.Range("H20").Value = 0
.Protect
End With
End If
End If
workregim
Application.ScreenUpdating = True
End Sub

Private Sub Ñ÷åò0()
With Sheets(5)
.Unprotect
.Range("H20").Value = 0
.Protect
End With
End Sub

Private Sub RegSet()
Dim unp As Long
Dim dopind As String, orgname As String
Call unclinnn
With Sheets(1)
unp = .Range("óíïÎðã").Value
' dopind = .Range("dopind").Value
orgname = .Range("íàèìÎðãÑ").Value
End With
With Sheets(5)
.Unprotect
.Range("F16").Value = unp
' .Range("F17").Value = dopind
.Range("F18").Value = orgname
.Range("H20").Value = 0
Ðåã = .Range("G20").Value
.Protect
End With
Sheets(1).Select
Range("A1").Select
End Sub

Вопрос в том что какие условия должны быть выполнить по коду (см.Выше) Чтобы оно нормально работало??? Заранее спасибо...

Выдает ошибку в этой строке:

sh.Visible = xlSheetVisible

Все работает спасибо огромное......Скажите может можно что почитать про синтаксис программирования в экселе??