Проверка Защиты листа

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

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

Проверка Защиты листа (Макросы Sub)

Катя

Дата: Понедельник, 10.02.2014, 09:14 | Сообщение № 1

Группа: Гости

Подскажите пожалуйста как проверить установлена защита на листе или нет?
Sheets(1).Protect Password:="1234"
.......
If Sheets(1).???? then
Защита есть
Else
Защиты нет
end if

Ответить

igrtsk

Дата: Понедельник, 10.02.2014, 10:02 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 314

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

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

Excel 2016

Попытаться внести изменения в защищенную ячейку

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

Катя

Дата: Понедельник, 10.02.2014, 10:07 | Сообщение № 3

Группа: Гости

Ну как вариант, да. Т.е. можно попробовать внести изменения при возникновении ошибки - обработать ее и присвоить флаг, который потом проверить.
А нет ли более элегантного способа? Например в VBA есть уже что-то готовое?

Ответить

AndreTM

Дата: Понедельник, 10.02.2014, 10:32 | Сообщение № 4

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

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

Сообщений: 1762

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

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

2003 & 2010

Свойства листа, начинающиеся на Protect* (типа .ProtectContents), не подходят?

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

Катя

Дата: Понедельник, 10.02.2014, 10:45 | Сообщение № 5

Группа: Гости

Наверное подойдут... Раз одного общего, типа Protected - нет... Спасибо!

Ответить

Wasilich

Дата: Понедельник, 10.02.2014, 11:16 | Сообщение № 6

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

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

Сообщений: 1232

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

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

2003

Типа так:
[vba]

Код

Sub Проверка_на_защиту()
      If Worksheets(1).ProtectContents Then
          MsgBox "Защита включена"
      Else
          MsgBox "Защита не включена"
      End If
End Sub

[/vba]