Кое что защитить после снятия защиты с листа - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Кое что защитить после снятия защиты с листа (Формулы)

Кое что защитить после снятия защиты с листа

Wasilich

Дата: Четверг, 16.01.2014, 17:56 | Сообщение № 21

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Замените всё что он не понимает на латинский и вставьте в модуль. Назначьте кнопку, должно работать.
[vba]

Код

Sub Кнопка1_защита()
    If Range("C9:H13").Locked = True Then
       PAROL = "456"
       DialogSheets("DIAPA").DrawingObjects(1).Text = ""
       DialogSheets("DIAPA").Show
       TPR = DialogSheets("DIAPA").DrawingObjects(1).Text
       If DialogSheets("DIAPA").DrawingObjects(1).Text <> PAROL Then
          MsgBox "ЗДЕСЬ  ХОРОШО,  НО  ВАМ  СЮДА  НЕ  НАДО !"
          Exit Sub
       End If
       ActiveSheet.Unprotect Password:="123"
       Range("C9:H13").Locked = False
       ActiveSheet.DrawingObjects("Button 1").Characters.Text = "Защитить"
    Else
       ActiveSheet.Unprotect Password:="123"
       ActiveSheet.DrawingObjects("Button 1").Characters.Text = "Снять защиту"
       Range("C9:H13").Locked = True
    End If
    ActiveSheet.Protect Password:="123"
End Sub

[/vba]

Ответить

Betsy

Дата: Пятница, 17.01.2014, 12:37 | Сообщение № 22

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Wasilic, очень хорошее решение. Спасибо!
PS насколько я поняла DrawingObjects и DialogSheets это чисто 2003я фича. Потому что у меня такого и нет даже в арсенале, но все работает.

Сообщение отредактировал Betsy - Пятница, 17.01.2014, 12:43