Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Защита части ячеек при снятии защиты листа.
 
#1
26.05.2013 23:33:25
Добрый вечер.
Помогите, пожалуйста.

Есть лист. Доступ к его изменению возможен только при введении пароля макросом.
Worksheets("Реестр") .Unprotect Password:="111" 'снимается защита листа

Как сделать, что при данном виде снятия защиты, часть ячеек (диапазон R8:R63) все-таки оставалась для пользователя не доступна для изменения.

Не могу ничего придумать.
 
 
 
#2
26.05.2013 23:47:08
В модуль листа:
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("R8:R63"), Target) Is Nothing Then
    .........
End Sub
 
 
 
#3
26.05.2013 23:56:21
Выделить диапазон R8:R63
Данные - проверка - Тип данных - Другой
Формула: =""  нажать OK
 
 
 
#4
27.05.2013 00:15:16
Kuzmich, не работает.

Может я сам виноват. Не полностью описал ситуацию.
В этот диапазон - R8:R63, ставится дата изменения ячеек макросом (взял из "приемов").
Надо, чтобы пользователь не мог очистить ячейку или изменить данные в ней.

vikttur, насколько я понял этот код надо вставлять в "Исходный текст" листа?
"......." - здесь что должно быть?
 
 
 
#5
27.05.2013 00:25:53
Так не снимайте защиту с этих ячеек.
 
 
 
#6
27.05.2013 00:32:57
Цитата
"......." - здесь что должно быть?
Например, переход на другую, разрешенную ячейку и грозное "А нечего туда соваться!" :)
 
 
 
#7
27.05.2013 01:01:37
Юрий М - "Так не снимайте защиту с этих ячеек." - вполне логично))
Но как это сделать?
 
 
 
#8
27.05.2013 01:10:03
Не понял вопрос - защитите эти ячейки и не снимайте с них защиту. А макросу разрешите по этим ячейкам работать. Как это сделать - можно почитать здесь
 
 
 
Страницы: 1
Читают тему
Наверх