Копирование с защищеного листа

[stas77]

Всем привет!
Вопрос такой:есть форма бюджета в экселе, по ней я сейчас составляю один в один такой же документ в котором будет факт выполнения!
В общем бюджет запоролен, кода нет и не скажут в головном офисе!
Как мне скопировать лист с сохранением всех даных (всплывающий список, размеры ячеек и тд) в другой документ?
И еще как увидеть формулы в запороленном документе?
Еще такой вопрос где можно найти список команд с расшифровкой (что они означают) вот мне сейчас интересна команда ВПР.
И еще есть справочник цен в одном из листов документа, к нему будут образщаться другой лист за ценой скажем лампочки, но вот лампочек у меня несколько видов,и я хочу сделать так чтобы как только я буду вбивать слово лампочка, он предлагал мне список этих лампочек! Цены на них просто разные и мне нужно такое удобство!
Заранее спасибо!

[analyst]

Sub Password_Cracker() 
  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 
Kennwort = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) 
 ActiveSheet.Unprotect Kennwort
 If ActiveSheet.ProtectContents = False Then
     MsgBox "Done" & vbcr & "enjoy it )" 
       Exit Sub 
  End If 
  Next: Next: Next: Next: Next: Next 
  Next: Next: Next: Next: Next: Next 
End Sub

Копируете в модуль книги запускаете и снимаете с пароль с листа! Потом делаете с ним что хотите. На остальные ваши вопросы отвечает хелп экселя!

[stas77]

Сообщение от analyst

Sub Password_Cracker() 
  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 
Kennwort = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) 
 ActiveSheet.Unprotect Kennwort
 If ActiveSheet.ProtectContents = False Then
     MsgBox "Done" & vbcr & "enjoy it )" 
       Exit Sub 
  End If 
  Next: Next: Next: Next: Next: Next 
  Next: Next: Next: Next: Next: Next 
End Sub

Копируете в модуль книги запускаете и снимаете с пароль с листа! Потом делаете с ним что хотите. На остальные ваши вопросы отвечает хелп экселя!

А можно поподробней,
1)копирую ваш макрос
2)открываю документ
3)нажимаю ctrl+f11
4)вставляю ваш макрос
5) ctrl+r
6)enter
и у меня ниче не получилось
где ошибка выполнения?

[stas77]

Ну помогите мне разблокировать с помощью вышеуказанного макроса, документик мой!
Прикрепить не имею права, он большой и инфа вся бюджетовская! (Поймите правильно) с него ничего отдельно не выташишь!

[Screame]

Office Password Recovery Мастер Вам поможет, открывает пароль на листы и макросы.

[stas77]

Не могли бы Вы ответить на такой вопрос на наглядном примере в прикрепленном файле, задача такая -есть лист под названием БПР, так вот,в нем раскладка выдачи ТМЦ на каждую площадку в разрезе 31 дня.. а площадок семь, распологать их все вертикально горизантально неудобно, плодить семь листов БПР тоже не очень хочется, вопрос в том можно ли лист под названием БПР раздробить на семь подлистов и дать им названия?

[Screame]

Сообщение от stas77

Не могли бы Вы ответить на такой вопрос на наглядном примере в прикрепленном файле, задача такая -есть лист под названием БПР, так вот,в нем раскладка выдачи ТМЦ на каждую площадку в разрезе 31 дня.. а площадок семь, распологать их все вертикально горизантально неудобно, плодить семь листов БПР тоже не очень хочется, вопрос в том можно ли лист под названием БПР раздробить на семь подлистов и дать им названия?

Извините, но из вашего описания лично я непонял ничего, куда дробить, что дробить, сделайте небольшой пример, где будет указан нужный конечный результат, тогда уже можно будет о чем то говорить.

[stas77]

Я сам лично не видел таких "наворотов"
Но суть моего вопроса такова: есть лист БПР в документе, на одном листе распологать семь площадок не удобно, хотелось бы вот что: открыть лист под названием БПР, и каким то волшебным образом он должен предоставить мне возможность увидеть семь подлистов со своими названиями!
Если короче-раздробить один лист экселя на семь листов!

[stas77]

Сообщение от Screame

Извините, но из вашего описания лично я непонял ничего, куда дробить, что дробить, сделайте небольшой пример, где будет указан нужный конечный результат, тогда уже можно будет о чем то говорить.

Нарисовал по простому, что хочеться видеть!

[Screame]

Если я все правильно понял из Вашего примера, тогда наверное так: