| Вопрос: Невозможно Удалить Вставить Переместиь/копировать | Добавлено: 12.08.09 16:32 |
Автор вопроса:  Геннадий
|
|
Недоступно меню Удалить Вставить Переместиь/копировать
Ранее было как обычно: на ярлычке листа нажимаем правую кнопку мышки и Добавить или Удалить Программно (VBA) это возможно: Sheets.Add или Sheets("Лист3").Select ActiveWindow.SelectedSheets.Delete При нажатии ярлычка вид как при защите книги. Сервис/Зашита/ пишет: Защитить книгу, т.е книга не защищена Пробывал програмно разблокировать: ActiveWorkbook.Unprotect Результата нет Тоже если из меню Вставка/Лист (недоступен) Переустановлен весь Office 2003 |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 13.08.09 09:28 |
|
Геннадий,
уточните, есть ли пункт в меню Сервис - Защита - Снять защиту книги... Если есть, то запрашивается ли пароль на снятие защиты книги? Не проверял как там с защитой книг в офисе 2003, но защита листа паролем там явно хромает, как было проверено и доказано на этом форуме - помается перебором ключей типа Integer при включенном On Error Resume Next. Я даже кнопочку в тулбар себе специально сделал, чтобы отключать запароленную защиту от всяких умников  Возможно, что и ваша защита книги снимается так же по-детски непринужденно)))
Если не получится написать переборщик, обращайтесь mc-black@yandex.ru, помогу. |
||
|
Номер ответа: 2 Автор ответа: AngryBadger Вопросов: 33 Ответов: 245 |
Профиль | | #2 | Добавлено: 13.08.09 12:08 |
|
Вот давно руки чесались поделиться со всеми:
Option Explicit
Private Sub Auto_Open() ‘Код надстройки (сохранить в .xla и подключить к Excel) On Error GoTo End_Sub Dim MyBar As CommandBar Dim MyCtrl As CommandBarButton Set MyBar = Application.CommandBars.Add("MyFirstBar", msoBarTop, , True) With MyBar .Visible = True .RowIndex = msoBarRowLast End With Set MyCtrl = MyBar.Controls.Add(msoControlButton, , , 1, True) With MyCtrl .Caption = "Абракадабра" .Style = msoButtonIcon .FaceId = 277 .OnAction = "CrackTheBook" End With End_Sub: Application.CommandBars("MyFirstBar"  .Visible = True
End Sub Private Sub CrackTheBook() Dim Result As Integer Dim ResultOfWork As String If ActiveWorkbook.ProtectStructure = False And ActiveWorkbook.ProtectWindows = False Then MsgBox "Данная книга не защищена", vbCritical Exit Sub Else Result = MsgBox("Внимание! Данная операция займет около минуты", vbOKCancel) Select Case Result Case vbYes '............ Case vbCancel Exit Sub End Select End If Dim a As Integer: Dim b As Integer: Dim c As Integer: Dim d As Integer: Dim e As Integer: Dim f As Integer: Dim g As Integer: Dim h As Integer: Dim i As Integer: Dim j As Integer: Dim k As Integer: Dim l As Integer: For l = 32 To 126: For k = 65 To 66: For j = 65 To 66 For i = 65 To 66: For h = 65 To 66: For g = 65 To 66 For f = 65 To 66: For e = 65 To 66: For d = 65 To 66 For c = 65 To 66: For b = 65 To 66: For a = 65 To 66 On Error Resume Next ActiveWorkbook.Unprotect Chr  & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) _
& Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l) If ActiveWorkbook.ProtectStructure = False And ActiveWorkbook.ProtectWindows = False Then ResultOfWork = Chr + Chr(b) + Chr(c) + Chr(d) + Chr(e) + Chr(f) + Chr(g) + Chr(h) + Chr(i) + Chr(j) + Chr(k) + Chr(l)
MsgBox "Pass для книги:" & vbCrLf & ResultOfWork, vbOKOnly Exit Sub End If Next a: Next b: Next c: Next d: Next e: Next f Next g: Next h: Next i: Next j: Next k: Next l End Sub |
||
|
Номер ответа: 3 Автор ответа: AngryBadgerВопросов: 33 Ответов: 245 |
Профиль | | #3 | Добавлено: 13.08.09 12:11 |
|
да, и в надсторйке:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next Application.CommandBars("MyFirstBar" .Delete
End Sub |
||
|
Номер ответа: 4 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #4 | Добавлено: 13.08.09 17:09 |
For l = 32 To 126: For k = 65 To 66: For j = 65 To 66
For i = 65 To 66: For h = 65 To 66: For g = 65 To 66 For f = 65 To 66: For e = 65 To 66: For d = 65 To 66 For c = 65 To 66: For b = 65 To 66: For a = 65 To 66 Аааааааааааааааааа! Я ослеп! |
||
|
Номер ответа: 5 Автор ответа: Геннадий Вопросов: 2 Ответов: 5 |
Профиль | | #5 | Добавлено: 13.08.09 17:41 |
|
Ответы:
1) Mc-Black <mc-black[собака]yandex[точка]ru> В.Если есть, то запрашивается ли пароль на снятие защиты книги? О. Не запрашивается Все доступы мне открыты 2) Михаил a . k . a . AngryBadger M.Barsukov@otpbank.ru О.Спасибо, см.ответ внизу В итоге я переставил Windows проблема решена Спасибо! |
||
|
Номер ответа: 6 Автор ответа: AngryBadgerВопросов: 33 Ответов: 245 |
Профиль | | #6 | Добавлено: 13.08.09 18:15 |
| Я бы очень попросил Администрацию форума убрать мое мыло из предыдущего поста. | ||
|
Номер ответа: 7 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #7 | Добавлено: 13.08.09 19:11 |
|
Геннадий может удалить свой пост.
Все желающие уже срисовали мыло 
|
||
|
Номер ответа: 8 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #8 | Добавлено: 15.08.09 11:05 |
| Все, держись, горы спама тебя накроют с головой! Кстати я не боюсь выкладываю свой ящик, т.к. у Яндекса приличная хорошая антиспамовая фильтрация и от этого спама не становится ни больше, ни меньше, а как-то в среднем 1 спам-письмо мимо фильтра против 10-50 писем в неделю сразу в спамовую папку. | ||
Страница: 1 |