Блокировать диапазон ячеек макросом, в зависимости от текущей даты

@WindWarrior · Регистрация: 08.12.2016

Студворк — интернет-сервис помощи студентам

Доброго времени суток. Есть документ Excel, в нем код на блокировку столбцов, в зависимости от значения в ячейке, вот сам код:

Visual Basic
1
2
    If Not (Intersect(Range("H3"), Target) Is Nothing) And Range("H3") = "Утверждено" Then Columns("H").Locked = True
    If Not (Intersect(Range("H3"), Target) Is Nothing) And Range("H3") = "Не утверждено" Then Columns("H").Locked = False

Пытаюсь сделать подобное, но что бы условие было таким. Текущая дата больше заданной даты, если истина то блокировать столбец. Так же пытался сделать значениями в ячейках excel, при помощи функции "Если", "=Если(Сегодня()>"25.02.2017";"Утвержден о";"Не утверждено"). Тогда по идеи код должен считать значение в ячейке и сработать, но не выходит. Подскажите в чем может быть проблема, или проще код переписать. Заранее спасибо.

@_shark · 10.03.2017, 13:52

проверить разницу по дате можно с помощью стандартной функции DateDiff. Например, так
If DateDiff("d", DateSerial(2017, 3, 8), Date) > 10 then
то есть, если от 8 марта этого года прошло больше 10 дней тогда сделаем то-то и то-то

@pashulka · 11.03.2017, 18:17

Аналогичный результат можно получить с помощью :

Visual Basic
1
If Date - #3/8/2017# > 10 Then MsgBox "Hello, World"

@WindWarrior · 12.03.2017, 17:34 **[ТС]**

pashulka, спасибо, код ваш работает, только вот столбцы не блокируются. Сообщение работает, а блокировка нет. В чем может быть причина?

@pashulka · 12.03.2017, 17:51

WindWarrior, Причина в том, что применение свойства Locked имеет смысл вместе с защитой листа. Пример(ы) без указания пароля, прилагаются.

Visual Basic
1
2
3
4
If Date - #3/8/2017# > 10 Then
   ActiveSheet.Protect , , True, , True
   Cells.Locked = False: Columns("H").Locked = True
End If

Visual Basic
1
2
3
4
5
If Date - #3/8/2017# > 10 Then
   ActiveSheet.Unprotect
   Cells.Locked = False: Columns("H").Locked = True
   ActiveSheet.Protect
End If

@WindWarrior · 12.03.2017, 17:54 **[ТС]**

Разобрался, спасибо.

@Smile_S · 11.02.2018, 15:43

Помогите, пожалуйста. Мне надо в файле, чтобы столбы В и Е были заблокированы от изменений,а столбы C, D работали только в день определенной даты, а если их надо все-таки поменять будет когда-нибудь то только через ввод пароля. Помогите написать макрос. ПЛИЗ!!!

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@_shark 193 / 191 / 31 Регистрация: 11.10.2016 Сообщений: 610
	10.03.2017, 13:52
	проверить разницу по дате можно с помощью стандартной функции DateDiff. Например, так If DateDiff("d", DateSerial(2017, 3, 8), Date) > 10 then то есть, если от 8 марта этого года прошло больше 10 дней тогда сделаем то-то и то-то 1

@WindWarrior 0 / 0 / 0 Регистрация: 08.12.2016 Сообщений: 23
	12.03.2017, 17:34 [ТС]
	pashulka, спасибо, код ваш работает, только вот столбцы не блокируются. Сообщение работает, а блокировка нет. В чем может быть причина? 0

@WindWarrior 0 / 0 / 0 Регистрация: 08.12.2016 Сообщений: 23
	12.03.2017, 17:54 [ТС]
	Разобрался, спасибо. 0