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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Защита от редактирования после автоматического сохранения
taara Дата: Пятница, 18.12.2015, 14:36 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Уважаемые знатоки, прошу дальнейшую вашу помощь.
И так имеется реестр записей, с вашей же помощью теперь отлично редактируется. Однако нужно защитить предыдущие записи от редактирования.
В чем замысел:
Работник имеет возможность вносить данные, часть данных заполняется автоматически после внесения в ключевые поля проставляется дата и порядковые номера.
После заполнения ячеек до сохранения у него есть возможность посмотреть запись и отредактировать (исправить ошибки, переформулировать), после сохранения заполненные ячейки редактировать нельзя, можно дополнять строку и дописывать следующие ячейки или вносить новые записи в следующие строки. Желательно установить время автосохранения допустим 30 минут, чтобы не допустить когда файл специально держат все время открытым и не сохраняют чтобы иметь возможность вносить изменения. Но периоды между сохранениями конечно должны быть чтобы дать возможность откорректировать свежую запись если замечена какая то неточность или ошибка. Естественно хотелось бы чтобы было невозможно вставлять строки между записями и изменять порядковый номер.

Попробовал воспользоваться готовым решением из ветки на форума с сайта, но увы лыжи кривые пока у меня ( и напильником пока только учусь работать.

Огромное спасибо.
К сообщению приложен файл: _1_2003-1.xls (49.5 Kb)
 
Ответить
СообщениеУважаемые знатоки, прошу дальнейшую вашу помощь.
И так имеется реестр записей, с вашей же помощью теперь отлично редактируется. Однако нужно защитить предыдущие записи от редактирования.
В чем замысел:
Работник имеет возможность вносить данные, часть данных заполняется автоматически после внесения в ключевые поля проставляется дата и порядковые номера.
После заполнения ячеек до сохранения у него есть возможность посмотреть запись и отредактировать (исправить ошибки, переформулировать), после сохранения заполненные ячейки редактировать нельзя, можно дополнять строку и дописывать следующие ячейки или вносить новые записи в следующие строки. Желательно установить время автосохранения допустим 30 минут, чтобы не допустить когда файл специально держат все время открытым и не сохраняют чтобы иметь возможность вносить изменения. Но периоды между сохранениями конечно должны быть чтобы дать возможность откорректировать свежую запись если замечена какая то неточность или ошибка. Естественно хотелось бы чтобы было невозможно вставлять строки между записями и изменять порядковый номер.

Попробовал воспользоваться готовым решением из ветки на форума с сайта, но увы лыжи кривые пока у меня ( и напильником пока только учусь работать.

Огромное спасибо.

Автор - taara
Дата добавления - 18.12.2015 в 14:36
_Boroda_ Дата: Пятница, 18.12.2015, 15:02 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16715
Репутация: 6504 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Вот такой макрос можно повесить на различные события листа и книги. Например, на активацию
[vba]
Код
Sub tt()
    r_ = Range("A" & Rows.Count).End(xlUp).Row + 1
    Me.ScrollArea = "A" & r_ & ":IV65536"
End Sub
[/vba]
К сообщению приложен файл: _1_2003-1_1.xls (61.0 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВот такой макрос можно повесить на различные события листа и книги. Например, на активацию
[vba]
Код
Sub tt()
    r_ = Range("A" & Rows.Count).End(xlUp).Row + 1
    Me.ScrollArea = "A" & r_ & ":IV65536"
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 18.12.2015 в 15:02
taara Дата: Пятница, 18.12.2015, 15:26 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, спасибо,
но хотелось бы иметь возможность вписывать недостающую информацию в пустые ячейки в не полностью заполненных строках. при этом внесенную инфу уже нельзя менять.

Но все равно восторг)
 
Ответить
Сообщение_Boroda_, спасибо,
но хотелось бы иметь возможность вписывать недостающую информацию в пустые ячейки в не полностью заполненных строках. при этом внесенную инфу уже нельзя менять.

Но все равно восторг)

Автор - taara
Дата добавления - 18.12.2015 в 15:26
Alex_ST Дата: Пятница, 18.12.2015, 22:03 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация: 609 ±
Замечаний: 0% ±

2003
лыжи кривые пока у меня
Лучшим средством для выправления лыж не слишком опытных VBA-лыжников является использование Option Explicit
Ошибки намного проще искать будет.
Ну и меня, конечно, приколола процедура [vba]
Код
Private Sub Workbook_Open()
    If Sh.Name = Лист1.Name Then Application.MoveAfterReturnDirection = xlToRight
End Sub
[/vba]размещённая В МОДУЛЕ ЛИСТА - shock



С уважением,
Алексей
MS Excel 2003 - the best!!!


Сообщение отредактировал Alex_ST - Пятница, 18.12.2015, 22:06
 
Ответить
Сообщение
лыжи кривые пока у меня
Лучшим средством для выправления лыж не слишком опытных VBA-лыжников является использование Option Explicit
Ошибки намного проще искать будет.
Ну и меня, конечно, приколола процедура [vba]
Код
Private Sub Workbook_Open()
    If Sh.Name = Лист1.Name Then Application.MoveAfterReturnDirection = xlToRight
End Sub
[/vba]размещённая В МОДУЛЕ ЛИСТА - shock

Автор - Alex_ST
Дата добавления - 18.12.2015 в 22:03
taara Дата: Понедельник, 21.12.2015, 09:44 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Alex_ST,
Лучше бы помогли Алекс а не прикалывались.
Удобненько людям, нажал кнопочку, а каретка влево уехала а не вниз и дальше продолжил заполнять.
 
Ответить
СообщениеAlex_ST,
Лучше бы помогли Алекс а не прикалывались.
Удобненько людям, нажал кнопочку, а каретка влево уехала а не вниз и дальше продолжил заполнять.

Автор - taara
Дата добавления - 21.12.2015 в 09:44
Extybr Дата: Пятница, 29.01.2021, 23:08 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
_Boroda_, подскажите пожалуйста по этой давней теме...
скачал пример и че то ничего не пашет....есть решение?
 
Ответить
Сообщение_Boroda_, подскажите пожалуйста по этой давней теме...
скачал пример и че то ничего не пашет....есть решение?

Автор - Extybr
Дата добавления - 29.01.2021 в 23:08
Extybr Дата: Пятница, 05.02.2021, 20:36 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
извиняюсь, когда проверял был открыт файл с макросом с таким же именем tt, поэтому и не работало.
а так работает...подскажите пожалуйста а можно сделать так что бы можно было старые сохраненные строки (не изменять) а выделять, копировать, дублировать макросом и в новых
уже редактировать....
 
Ответить
Сообщениеизвиняюсь, когда проверял был открыт файл с макросом с таким же именем tt, поэтому и не работало.
а так работает...подскажите пожалуйста а можно сделать так что бы можно было старые сохраненные строки (не изменять) а выделять, копировать, дублировать макросом и в новых
уже редактировать....

Автор - Extybr
Дата добавления - 05.02.2021 в 20:36
Extybr Дата: Суббота, 06.02.2021, 22:24 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
и все молчат....
 
Ответить
Сообщениеи все молчат....

Автор - Extybr
Дата добавления - 06.02.2021 в 22:24
Pelena Дата: Суббота, 06.02.2021, 22:52 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Ваш вопрос выходит за рамки данной темы. Создайте свою, опишите задачу и приложите файл с примером в соответствии с Правилами форума.
Эта тема закрыта


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВаш вопрос выходит за рамки данной темы. Создайте свою, опишите задачу и приложите файл с примером в соответствии с Правилами форума.
Эта тема закрыта

Автор - Pelena
Дата добавления - 06.02.2021 в 22:52
  • Страница 1 из 1
  • 1
Поиск:

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