Подскажите, пожалуйста, возможно ли добиться Автоматической защиты ячейки от редактирования через некоторое время после редактирования и сохранения файла Пользователем? Например, через 24 часа после сохранения файла? Спасибо.
Добрый день,
Подскажите, пожалуйста, возможно ли добиться Автоматической защиты ячейки от редактирования через некоторое время после редактирования и сохранения файла Пользователем? Например, через 24 часа после сохранения файла? Спасибо.vitalife
Сообщение отредактировал vitalife - Среда, 13.04.2016, 11:51
Как вариант прописать в файле в скрытую ячейку дату и время сохранения. И повесить проверку на открытие книги. Но этот способ будет работать только если включены макросы.
Как вариант прописать в файле в скрытую ячейку дату и время сохранения. И повесить проверку на открытие книги. Но этот способ будет работать только если включены макросы.SLAVICK
Иногда все проще чем кажется с первого взгляда.
Сообщение отредактировал SLAVICK - Среда, 13.04.2016, 12:02
Private Sub Workbook_Open() Application.ScreenUpdating = 0 ActiveSheet.Unprotect Password:="1" For Each c In Range("a2:a367") If c < CDate(Date) And c <> "" Then i = c.Row End If Next
Range("A2:E" & i).Locked = True ActiveSheet.Protect Password:="1" Application.ScreenUpdating = 1 End Sub
[/vba]
как-то так, примерно [vba]
Код
Private Sub Workbook_Open() Application.ScreenUpdating = 0 ActiveSheet.Unprotect Password:="1" For Each c In Range("a2:a367") If c < CDate(Date) And c <> "" Then i = c.Row End If Next
Range("A2:E" & i).Locked = True ActiveSheet.Protect Password:="1" Application.ScreenUpdating = 1 End Sub