можно ли блокировать работу документа EXCEL по дате

[Kizim]

Можно ли сделать так, чтоб определённого числа месяца автоматически блокировался код Visual Basic в EXEL и ввод данных на листы. Тоесть чтоб документ был доступен только для чтения и ничего больше; и чтоб выдавалось сообщение при попытке открыть форму ввода "Ввод данных запрещён" или "Наступил Новый год - документ закрыт"?

[ViktorR]

Да, можно.
Например, если у вас форма ввода на некотором листе, то для этого листа можно написать макрос, который будет блокировать ввод данных начиная с даты Х. При этом лист будет просматриваться.
Больше того, можно на этой форме задать области, для которых изменение данных будет запрещено начиная с некоторой даты X, а для других областей - с даты Y.
PS: Понимаю так, что вам нужен сам макрос. С этим помочь пока не могу.
Предлагаю поискать в сетях и почитать ...
Что-то вроде такого ...

Sheets("Prilogenie").Unprotect 
Sheets("Titul").Protect UserInterfaceOnly:=True 
Sheets("Prilogenie").Protect UserInterfaceOnly:=True

[Kizim]

Сообщение от ViktorR

Да, можно.
Например, если у вас форма ввода на некотором листе, то для этого листа можно написать макрос, который будет блокировать ввод данных начиная с даты Х. При этом лист будет просматриваться.
Больше того, можно на этой форме задать области, для которых изменение данных будет запрещено начиная с некоторой даты X, а для других областей - с даты Y.
PS: Понимаю так, что вам нужен сам макрос. С этим помочь пока не могу.
Предлагаю поискать в сетях и почитать ...
Что-то вроде такого ...

Sheets("Prilogenie").Unprotect 
Sheets("Titul").Protect UserInterfaceOnly:=True 
Sheets("Prilogenie").Protect UserInterfaceOnly:=True

Сообщение от ViktorR

Да, можно.
Например, если у вас форма ввода на некотором листе, то для этого листа можно написать макрос, который будет блокировать ввод данных начиная с даты Х. При этом лист будет просматриваться.
Больше того, можно на этой форме задать области, для которых изменение данных будет запрещено начиная с некоторой даты X, а для других областей - с даты Y.
PS: Понимаю так, что вам нужен сам макрос. С этим помочь пока не могу.
Предлагаю поискать в сетях и почитать ...
Что-то вроде такого ...

Sheets("Prilogenie").Unprotect 
Sheets("Titul").Protect UserInterfaceOnly:=True 
Sheets("Prilogenie").Protect UserInterfaceOnly:=True

Переискал всё но то, что мне нужно не нашёл. А можете помочь таким макросом: При нажатии на "Ввод данных " открывается Форма_1 а 31.12. в 00:00 открывается форма_2. Я понимаю, что это можно как-то через оператор IF/ например если на компьютере меньше 31.12. 00:00 то форма_1 а если больше то форма_2.

[Serge_Bliznykov]

Сообщение от Kizim

и чтоб выдавалось сообщение при попытке открыть форму ввода "Ввод данных запрещён" или "Наступил Новый год - документ закрыт"?

простите, а что-то помешает пользователю переустановить дату на прошлый год, изменить документ, вернуть дату ?

p.s. я знаю, что смену даты на компьютере можно запретить политиками безопасности.
но я не знаю, что помешает скопировать файл туда, где этих политик безопасности нет, там изменить дату, изменить документ и вернуть документ.

[Kizim]

Сообщение от Serge_Bliznykov

простите, а что-то помешает пользователю переустановить дату на прошлый год, изменить документ, вернуть дату ?

p.s. я знаю, что смену даты на компьютере можно запретить политиками безопасности.
но я не знаю, что помешает скопировать файл туда, где этих политик безопасности нет, там изменить дату, изменить документ и вернуть документ.

Это уже другой вопрос. Да и кто будет знать, что код написан именно так. Можно выдать форму с надписью "Доступ запрещён - вирус . обратитесь к разработчику" . И кто будет знать, что код написан по дате. Меня интересует сам макрос, чтоб именно так работал. А дальше посмотрим. Вы можете помочь?

[Serge_Bliznykov]

Сообщение от Kizim

А дальше посмотрим. Вы можете помочь?

до 1 июля 2017 года можно вводить, потом - сообщение о новом годе

Sub ДобавитьЗапись()
    If Date < DateSerial(2017, 7, 1) Then
      UserForm1.Show
    Else
      UserForm2.Show
    End If
End Sub

Сообщение от Kizim

И кто будет знать, что код написан по дате.

во-первых, нельзя недооценивать пользователя.
во-вторых, дата на компьютере (особенно если нет ЛВС и домена) может быть сбита
в-третьих, пользователь может открыть исходный код макроса и посмотреть там
(впрочем, это как раз можно закрыть с помощью пароля на проект).

[Kizim]

Спасибо - Решено

[Kizim]

Сообщение от Serge_Bliznykov

до 1 июля 2017 года можно вводить, потом - сообщение о новом годе

Sub ДобавитьЗапись()
    If Date < DateSerial(2017, 7, 1) Then
      UserForm1.Show
    Else
      UserForm2.Show
    End If
End Sub

во-первых, нельзя недооценивать пользователя.
во-вторых, дата на компьютере (особенно если нет ЛВС и домена) может быть сбита
в-третьих, пользователь может открыть исходный код макроса и посмотреть там
(впрочем, это как раз можно закрыть с помощью пароля на проект).

Спасибо вам большое за код. Всё гениальное просто. И вы правы пользователя нельзя недооценивать. Тогда встречный вопрос: Как сделать, чтоб программа работала только например 100 дней?

[Serge_Bliznykov]

Сообщение от Kizim

Тогда встречный вопрос: Как сделать, чтоб программа работала только например 100 дней?

Надёжно?
Понятия не имею.

Если можно - привязывайте выполнение программы к наличию доступа в Интернет и берите СУЩЕСТВЕННЫЕ данные для работы из интернета. Нет данных - не работает программа. но, разумеется, не будет интернета, не будет работать программа.
Тогда на сервере достаточно надёжно можно блокировать работу хоть по дате, хоть по количеству дней.

Ещё есть привязка к электронным ключам защиты. Но, боюсь, что в связке с Excel это будет не очень удобно и надёжно. Впрочем, это ДОРОГОЕ решение.

ну и последнее.

Почитайте/вспомните анекдот про неуловимого Джо и подумайте, не переоцениваете ли Вы вашу программу.

[Aleksandr H.]

Может оценивается не программа, а удобства работы? Например, автор автоматизировал бОльшую часть рутины и не хочет чтобы сменщику была жизнь-малина.