Запрет заполнения ячеек

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Запрет заполнения ячеек (Формулы/Formulas)

lahtalahta

Дата: Среда, 24.12.2014, 13:10 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 1

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

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

Excel 2010

Здравствуйте! Создал таблицу и необходимо сделать следующее: Если в ячейке №1 есть хоть одна буква, то остальные ячейки по горизонтали закрыты для заполнения. Надеюсь я понятно выразился. Заранее спасибо) таблицу прикрепляю к сообщению

Конкретно в данном примере: если напротив времени, например, в ячейке D4 есть какие-либо пометки - то в ячейках E4, F4, G4 и H4 ничего написать нельзя, т.е. либо блокировка записи там, или вывод сообщения о том, что время занято менеджером.

К сообщению приложен файл: 1806795.xlsx (11.4 Kb)

Сообщение отредактировал lahtalahta - Среда, 24.12.2014, 13:11

Ответить

_Boroda_

Дата: Среда, 24.12.2014, 13:58 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Через Проверку данных (для ручного ввода без копи-паста) - файл_2

Макросом - файл _1
Макросы должны быть включены
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Not Intersect(Target, Range("D4:H38")) Is Nothing Then
          If Target.Count > 1 Then Range("A1").Select
          If WorksheetFunction.CountA(Range("D" & Target.Row).Resize(, 5)) > 0 Then
              If Target = "" Then
                  MsgBox "Занято!"
                  Cells(3, Target.Column).Select
              End If
          End If
      End If
End Sub

[/vba]

К сообщению приложен файл: 1806795_1.xlsm (17.9 Kb) · 1806795_2.xlsm (11.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995