Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Защита ячеек от повторного занесения данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Защита ячеек от повторного занесения данных (Макросы/Sub)
Защита ячеек от повторного занесения данных
avzan79 Дата: Среда, 25.06.2014, 14:11 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Помогите с решением проблемы. Как сделать так, что при внесение данных в таблицу защитить их. Т.е. человек занес данные в ячейку один раз, если он изменяет их, то появляляется примечание, что человек внес изменения в ячейку

Защиту для ячеек сделал, внесением кода в модуль листа:
Цитата

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:DF999999")) Is Nothing Then Exit Sub
Target.Parent.Unprotect "123"
Target.Locked = True
Target.Parent.Protect "123"
End Sub


Но было бы хорошо, чтобы еще появлялось примечание


Сообщение отредактировал avzan79 - Среда, 25.06.2014, 14:12
 
Ответить
СообщениеПомогите с решением проблемы. Как сделать так, что при внесение данных в таблицу защитить их. Т.е. человек занес данные в ячейку один раз, если он изменяет их, то появляляется примечание, что человек внес изменения в ячейку

Защиту для ячеек сделал, внесением кода в модуль листа:
Цитата

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:DF999999")) Is Nothing Then Exit Sub
Target.Parent.Unprotect "123"
Target.Locked = True
Target.Parent.Protect "123"
End Sub


Но было бы хорошо, чтобы еще появлялось примечание
Автор - avzan79
Дата добавления - 25.06.2014 в 14:11
Michael_S Дата: Среда, 25.06.2014, 14:29 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Так все таки нужно: запретить повторный ввод данных в ячейку, или в примечаниях отмечать, когда и что изменили?
 
Ответить
СообщениеТак все таки нужно: запретить повторный ввод данных в ячейку, или в примечаниях отмечать, когда и что изменили?
Автор - Michael_S
Дата добавления - 25.06.2014 в 14:29
avzan79 Дата: Среда, 25.06.2014, 14:34 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Michael_S, запрет нужен, чтобы человек понял, что внисит изменения, а примечание нужно, чтобы знать кто и когда повторно вносил изменения
а вообще появления примечания было бы оптимальнее

P.S. Отслеживание изменений не подходят, так будут фиксироваться все изменения. А нужны только повторные


Сообщение отредактировал avzan79 - Среда, 25.06.2014, 14:48
 
Ответить
СообщениеMichael_S, запрет нужен, чтобы человек понял, что внисит изменения, а примечание нужно, чтобы знать кто и когда повторно вносил изменения
а вообще появления примечания было бы оптимальнее

P.S. Отслеживание изменений не подходят, так будут фиксироваться все изменения. А нужны только повторные
Автор - avzan79
Дата добавления - 25.06.2014 в 14:34
igrtsk Дата: Среда, 25.06.2014, 14:52 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 314
Репутация: 50 ±
Замечаний: 0% ±

Excel 2016
Цитата avzan79, 25.06.2014 в 14:34, в сообщении № 3
запрет нужен, чтобы человек понял, что внисит изменения, а примечание нужно, чтобы знать кто и когда повторно вносил изменения

У вас взаимоисключающие события:
1. если НЕЛЬЗЯ вносить изменения, то о каком примечании может идти речь!? НЕЛЬЗЯ - всегда НЕЛЬЗЯ!
2. Если формируется примечание со сведениями о том
Цитата avzan79, 25.06.2014 в 14:34, в сообщении № 3
кто и когда повторно вносил изменения
То значит запрета нет, вносить изменения можно, но с фиксацией даты и времени изменений.
Вы уж определитесь.

Инструктор по применению лосей в кавалерийских частях РККА
 
Ответить
Сообщение
Цитата avzan79, 25.06.2014 в 14:34, в сообщении № 3
запрет нужен, чтобы человек понял, что внисит изменения, а примечание нужно, чтобы знать кто и когда повторно вносил изменения

У вас взаимоисключающие события:
1. если НЕЛЬЗЯ вносить изменения, то о каком примечании может идти речь!? НЕЛЬЗЯ - всегда НЕЛЬЗЯ!
2. Если формируется примечание со сведениями о том
Цитата avzan79, 25.06.2014 в 14:34, в сообщении № 3
кто и когда повторно вносил изменения
То значит запрета нет, вносить изменения можно, но с фиксацией даты и времени изменений.
Вы уж определитесь.
Автор - igrtsk
Дата добавления - 25.06.2014 в 14:52
Michael_S Дата: Среда, 25.06.2014, 15:24 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Цитата igrtsk, 25.06.2014 в 14:52, в сообщении № 4
У вас взаимоисключающие события:
вот я тоже это хотел сказать...

...ну да ладно, вот они, оба. При желании - можно объединить
К сообщению приложен файл: avzan79.xlsm (19.9 Kb)
 
Ответить
Сообщение
Цитата igrtsk, 25.06.2014 в 14:52, в сообщении № 4
У вас взаимоисключающие события:
вот я тоже это хотел сказать...

...ну да ладно, вот они, оба. При желании - можно объединить
Автор - Michael_S
Дата добавления - 25.06.2014 в 15:24
avzan79 Дата: Среда, 25.06.2014, 16:42 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Michael_S,
спасибо, а не подскажите как прописать какие были внесены изменения?
сделать примечание ввида:

пользователь - дата и время изменения - что было до изменения

как внести имя сам додумал, а вот с изменением проблема:
Цитата
CellComent = CellComent & " " & Application.UserName & ":" & Chr(10) & " " & Format(Now, "dd.mm.yy HH:MM")


Сообщение отредактировал avzan79 - Среда, 25.06.2014, 16:47
 
Ответить
СообщениеMichael_S,
спасибо, а не подскажите как прописать какие были внесены изменения?
сделать примечание ввида:

пользователь - дата и время изменения - что было до изменения

как внести имя сам додумал, а вот с изменением проблема:
Цитата
CellComent = CellComent & " " & Application.UserName & ":" & Chr(10) & " " & Format(Now, "dd.mm.yy HH:MM")
Автор - avzan79
Дата добавления - 25.06.2014 в 16:42
Pelena Дата: Среда, 25.06.2014, 16:47 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
А стандартное Рецензирование с отображением исправлений не вариант?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеА стандартное Рецензирование с отображением исправлений не вариант?
Автор - Pelena
Дата добавления - 25.06.2014 в 16:47
avzan79 Дата: Среда, 25.06.2014, 16:49 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena,
нужно именно когда вносятся изменения в существующие данные
иначе при внесение в таблицу любых новых данных вся таблица будет в примечаниях
 
Ответить
СообщениеPelena,
нужно именно когда вносятся изменения в существующие данные
иначе при внесение в таблицу любых новых данных вся таблица будет в примечаниях
Автор - avzan79
Дата добавления - 25.06.2014 в 16:49
Michael_S Дата: Среда, 25.06.2014, 17:13 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Цитата avzan79, 25.06.2014 в 16:42, в сообщении № 6
спасибо, а не подскажите как прописать какие были внесены изменения?
Вот эта строчка: [vba]
Код
CellComent = CellComent & Now & " " & Tekuthee & Chr(10)
[/vba]дауту изменений и что было изменено. На что - видно в ячейке или в следующей строке примечаний. Добавьте ваше UserName: [vba]
Код
CellComent = CellComent & Application.UserName & " " & Format(Now, "DD.MM.YY h:mm") & " " & Tekuthee & Chr(10)
[/vba]

[p.s.]немного изменил коды макросов[/p.s.]
К сообщению приложен файл: avzan79_1.xlsm (20.4 Kb)


Сообщение отредактировал Michael_S - Среда, 25.06.2014, 17:29
 
Ответить
Сообщение
Цитата avzan79, 25.06.2014 в 16:42, в сообщении № 6
спасибо, а не подскажите как прописать какие были внесены изменения?
Вот эта строчка: [vba]
Код
CellComent = CellComent & Now & " " & Tekuthee & Chr(10)
[/vba]дауту изменений и что было изменено. На что - видно в ячейке или в следующей строке примечаний. Добавьте ваше UserName: [vba]
Код
CellComent = CellComent & Application.UserName & " " & Format(Now, "DD.MM.YY h:mm") & " " & Tekuthee & Chr(10)
[/vba]

[p.s.]немного изменил коды макросов[/p.s.]
Автор - Michael_S
Дата добавления - 25.06.2014 в 17:13
avzan79 Дата: Среда, 25.06.2014, 17:45 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Michael_S, большое спасибо
 
Ответить
СообщениеMichael_S, большое спасибо
Автор - avzan79
Дата добавления - 25.06.2014 в 17:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Защита ячеек от повторного занесения данных (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!