Запрет редактирования ячейки после определенной даты

Добрый день! Есть таблица, в которую пользователи вводят свои данные. Подскажите как запретить вводить данные в отдельные ячейки после наступления определенной даты (например ячейку А1 можно редактировать с 01.01.21 по 10.02.21).

0

здесь макрос нужен.

0

Vnezapno987, когда-то я обсуждал примерно аналогичную задачу, только там была зависимость не от даты, а от пк, и нужно было также прятать столбцы.
Сделать невидимым выбранный столбец для конкретного пользователя
Тут какие нюансы:
1. Если просто запретить редактирование через vba, то пользователь может например запретить выполнение макросов, и внести любое изменение, поэтому в коде реализовано обязательный запрет доступа перед каждым сохранением, что не очень удобно по быстродействию.
2. пароли достаточно легко взламываются специализированным софтом.
3. Дату на пк также можно поставить абсолютно произвольную, и спокойно открывать ваш файл.
4. Работать будет на версии 2010 и выше.

С учетом вышеизложенных оговорок - можно чуть переделать алгоритм под вашу задачу.
Приложите образец таблицы, укажите, какие ячейки не могут редактироваться и где будет прописано, когда какую ячейку редактировать можно/нельзя.

1

Пользователи заполняют ячейки "По месяцам" (С4-N4). Смысл в том чтобы разрешить пользователю заполнять текущий месяц и месяца наперед (то есть, например, в январе можно заполнять все ячейки по декабрь), но при этом запретить редактировать уже прошедшие месяца(то есть в феврале пользователь не может редактировать январь и т.д.). Дату на пк пользователь менять не сможет, так что это не является проблемой, как, в принципе, и защита паролем.

Вложения

пример.xlsx (10.0 Кб, 30 просмотров)

0

Сделай так

Private Sub Workbook_Open()
Dim nMonth As String
Dim NameMonth As String
Dim n As Byte
Dim a As Variant

nMonth = DatePart("m", Cells(1, 1))
'nMonth = DatePart("m", Now)

NameMonth = MonthName(nMonth)

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Cells.Interior.ColorIndex = 0
Next ws



For n = 1 To 12
If NameMonth = Cells(3, 3) Then
a = Range(Cells(4, n + 2), Cells(7, n + 2)).Address
ActiveSheet.ScrollArea = a
Range(a).Interior.Color = vbGreen
Exit For
ElseIf NameMonth = Cells(3, n + 2) Then
a = Range(Cells(4, n + 1), Cells(7, n + 2)).Address
ActiveSheet.ScrollArea = a
Range(a).Interior.Color = vbGreen
Exit For
End If
Next n

End Sub

Должно работать

Добавлено через 9 минут
Private Sub Workbook_Open()
Dim nMonth As String
Dim NameMonth As String
Dim n As Byte
Dim a As Variant

nMonth = DatePart("m", Cells(1, 1))
'nMonth = DatePart("m", Now)

NameMonth = MonthName(nMonth)

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Cells.Interior.ColorIndex = 0
Next ws



For n = 1 To 12
If NameMonth = Cells(3, n + 2) Then
a = Range(Cells(4, n + 2), Cells(7, 14)).Address
ActiveSheet.ScrollArea = a
Range(a).Interior.Color = vbGreen
Exit For
End If
Next n

End Sub

Не правильно прочитал задачу
Так думаю пойдет

0

Сообщение от Vnezapno987 Смысл в том чтобы разрешить пользователю заполнять текущий месяц и месяца наперед (то есть, например, в январе можно заполнять все ячейки по декабрь)

Vnezapno987, прикладываю вариант файла с оговорками:
1. Таблица должна располагаться на листе "1" с заголовком на том же месте. Если пользователь удалит этот лист и вставит вместо него отредактированную копию листа, то при срабатывании кода будет возникать ошибка, которая будет сигнализировать о несанкционированной замене листа.
2. Закрывается доступ к ячейкам начиная от А4 до последней непустой ячейки ниже (сама графа Название), а также ровно те же строчки по месяцам (то есть последней строчкой таблицы код считает по столбцу "А" - до первой пустой строки)
3. Если при открытии документа пользователь запретит выполнение макросов, то таблица будет полностью залочена, вынуждая пользователя запустить таки макросы.
4. Пароль для ручного снятия защиты с листа - "Frr656JkOp45Zz2" без кавычек.
5. В настоящее время проект VBA не запаролен, любой пользователь может найти пароль на лист по п.4 просто в тексте кода. Пароль на проект VBA ставьте самостоятельно (Alt+f11, контекстное меню по названию проекта в дереве слева, там свойства, в них пароль)
6. Поскольку сейчас январь, в коде указан параметр n (прибавка к текущему месяцу), равный двум, чтобы можно было оттестить работу кода. В нормальном состоянии поставьте n=0
7. Особенно не тестировал, это за вами.
8. Поскольку таблица как я понимаю по факту будет не совсем как в примере, уточняйте и комментируйте, что поменялось.
9. Снять пароли с листа и VBA не великая проблема.

Вложения

Вариант 1.zip (17.5 Кб, 58 просмотров)

1

Большое спасибо за помощь, буду пробовать.

0