- История Красного Бора Татарстан (Новый Пьяный Бор Елабужского уезда) в статьях
- Программа для поиска драйверов на любое устройство
- Как технология OCR снижает нагрузку на офис
- Как настроить локальную сеть через Wi-Fi
- Как операционная система Windows стала такой популярной
- Продвижение товаров на Wildberries с привлечением внешнего трафика
- Простая программа для управления проектами «Планамайзер»
- Жители Красного Бора (Нового Пьяного Бора) до революции
Excel: как запретить изменение данных в файле за прошедшие даты |
При работе с файлами Excel, особенно находящимися в общем доступе и редактируемыми несколькими пользователями, возникает проблема защиты данных от изменения за прошедшие даты. Инструменты Excel не предусматривают такой возможности, как защита ячеек относительно даты. В этом случае поможет макрос. КОД: Dim val, flag, f_val, f_row, f_column As Variant
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Set reg_date = CreateObject("VBScript.RegExp") reg_date.Pattern = "\d\d\.\d\d\.\d\d\d\d" flag = reg_date.Test(f_val)
If (f_val < Str(Date)) And (Cells(f_row, f_column).FormulaLocal <> val) And (flag = True) Then Cells(f_row, f_column).Value = val MsgBox ("Редактирование запрещено.") End If
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
val = ActiveCell.Text f_row = ActiveCell.Row f_column = ActiveCell.Column f_val = Cells(f_row, 1).Text
End Sub
Чтобы воспользоваться макросом, необходимо открыть нужный файл. Затем щелкнуть по названию листа правой кнопки мышки и нажать Посмотреть код (или Исходный текст).
Откроется окно VBA для вставки макроса. Выберите в левом поле Эта книга. Вставьте в белое поле скопированный код.
Затем файл сохраните, нажав на кнопку Сохранить тут же, в окне VBA.
Лучше при сохранении выбрать тип файла С поддержкой макросов.
Теперь проверьте, попытайтесь изменить что-либо в ячейках, относящихся к прошедшей дате. Поделиться:
Оставьте свой комментарий!
|
Комментарии