Защита содержимого ячеек от изменении

[roborrr]

ячейки содержат некую информацию как сделать программно так чтоб если изменят некоторые из них то в них сразу вписалось собственные первоначальние значения

[EducatedFool]

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

зачем мудрить с макросами?

[roborrr]

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

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

зачем мудрить с макросами?

Книга содержит много кодов и будет необходимо начать все коды, после открытия листа, командой Activesheet. Unprotect и перед его закрытием заканчивать командой Activesheet. Protect. Так что существование такой программы решил бы мне эту проблему.

[R Dmitry]

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

Книга содержит много кодов и будет необходимо начать все коды, после открытия листа, командой Activesheet. Unprotect и перед его закрытием заканчивать командой Activesheet. Protect. Так что существование такой программы решил бы мне эту проблему.

как то так можно , но грабли могут какие нибудь выплыть
в модуль листа

Dim tmp
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
Target.Value = tmp
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
tmp = Target.Value
End Sub

да прикольно получилось , обычным способом данные невозможно удалить

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

[roborrr]

Сообщение от R Dmitry

как то так можно , но грабли могут какие нибудь выплыть
в модуль листа

Dim tmp
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
Target.Value = tmp
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
tmp = Target.Value
End Sub

спасибоб работаетб я не знал об SelectionChange

[R Dmitry]

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

спасибоб работаетб я не знал об SelectionChange

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