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

Вход

Регистрация

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

 

= Мир MS Excel/Защита от изменения сохраненных данных таблицы - Мир MS Excel

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

Excel 2019
помогите пожалуйста....
достопочтенный Борода как то сделал макрос по защите введенных данных от изменения...просьба помоч доработать.
допустим есть таблица-данные вводятся просто копированием ранее введенных строк с посл. изменением ,либо макросом их дублирования , либо введением посто вручную новых...
требуется защитить уже сохраненные данные от изменений, при условиях- первое,что защита не распостраняется на строки со значением в столбце2 = 2 (во всей таблице в стролбце 2 значения либо 1 либо 2(других значений нет), и второе, должна быть возможность копирования защищенных строк (по одной и несколько сразу) с последующим их изменением (до сохранения).
К сообщению приложен файл: 2316062.xlsb (15.1 Kb)


Сообщение отредактировал Extybr - Пятница, 19.02.2021, 22:41
 
Ответить
Сообщениепомогите пожалуйста....
достопочтенный Борода как то сделал макрос по защите введенных данных от изменения...просьба помоч доработать.
допустим есть таблица-данные вводятся просто копированием ранее введенных строк с посл. изменением ,либо макросом их дублирования , либо введением посто вручную новых...
требуется защитить уже сохраненные данные от изменений, при условиях- первое,что защита не распостраняется на строки со значением в столбце2 = 2 (во всей таблице в стролбце 2 значения либо 1 либо 2(других значений нет), и второе, должна быть возможность копирования защищенных строк (по одной и несколько сразу) с последующим их изменением (до сохранения).

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

Excel 2019
в идеале чтоб защиту можно было снять кнопеой после введения пароля
 
Ответить
Сообщениев идеале чтоб защиту можно было снять кнопеой после введения пароля

Автор - Extybr
Дата добавления - 19.02.2021 в 22:42
Extybr Дата: Воскресенье, 21.02.2021, 16:28 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Никому не интересно?
 
Ответить
СообщениеНикому не интересно?

Автор - Extybr
Дата добавления - 21.02.2021 в 16:28
Extybr Дата: Вторник, 30.03.2021, 19:49 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
кто нибудь отзовитесь пожалуйста
 
Ответить
Сообщениекто нибудь отзовитесь пожалуйста

Автор - Extybr
Дата добавления - 30.03.2021 в 19:49
Serge_007 Дата: Среда, 31.03.2021, 10:16 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Никому не интересно?
Если не отвечают - значит не интересно. Совет: разбейте задачу на подзадачи, маленькие, не очень время/трудозатратные, и выкладывайте их по частям. Так вероятность решение получить станет намного выше


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Никому не интересно?
Если не отвечают - значит не интересно. Совет: разбейте задачу на подзадачи, маленькие, не очень время/трудозатратные, и выкладывайте их по частям. Так вероятность решение получить станет намного выше

Автор - Serge_007
Дата добавления - 31.03.2021 в 10:16
Extybr Дата: Среда, 31.03.2021, 21:53 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Extybr
Дата добавления - 31.03.2021 в 21:53
Extybr Дата: Среда, 07.04.2021, 17:43 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
возможно не корректно поставил задачу...попробую подкорректировать.
имеем таблицу. в столбце 2 все строки отмечены либо 1 либо 2, те что отмечены 1 защищены (от изменения значений ячеек, удаления, перемещения) но что бы была возможность их копировать и вставлять вниз таблицы, до закрытия книги вновь вставленые строки (ячейки) можно корректировать значения, удалять и тд., (после сохранения при закрытии и открытия книги они становятся защищенными если отмечены 1 в столбце2) строки отмеченные 2 не защищены вообще и с ними можно делать что угодно.
так же помимо ручного копирования - вставки строк , что бы осталась возможность копирования и вставки строк макросом (макрос работает так --- выделяются строки и при нажатии кнопки строки дублируются внизу таблицы)
как то так.

привязываться к тому макросу что в книге не обязательно....
в нем не устраивает то , что он защищает все ячейки таблицы и не только...а нужно чтобы только ячейки таблицы! отмеченные 1 в столбце 2. если не напряжно можете предложить свой вариант.
спасибо
 
Ответить
Сообщениевозможно не корректно поставил задачу...попробую подкорректировать.
имеем таблицу. в столбце 2 все строки отмечены либо 1 либо 2, те что отмечены 1 защищены (от изменения значений ячеек, удаления, перемещения) но что бы была возможность их копировать и вставлять вниз таблицы, до закрытия книги вновь вставленые строки (ячейки) можно корректировать значения, удалять и тд., (после сохранения при закрытии и открытия книги они становятся защищенными если отмечены 1 в столбце2) строки отмеченные 2 не защищены вообще и с ними можно делать что угодно.
так же помимо ручного копирования - вставки строк , что бы осталась возможность копирования и вставки строк макросом (макрос работает так --- выделяются строки и при нажатии кнопки строки дублируются внизу таблицы)
как то так.

привязываться к тому макросу что в книге не обязательно....
в нем не устраивает то , что он защищает все ячейки таблицы и не только...а нужно чтобы только ячейки таблицы! отмеченные 1 в столбце 2. если не напряжно можете предложить свой вариант.
спасибо

Автор - Extybr
Дата добавления - 07.04.2021 в 17:43
Extybr Дата: Среда, 07.04.2021, 19:52 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
защита от редактирования...
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Interior.ColorIndex = 2 Then

    Range("A1").Select
End If
End Sub
[/vba]
как написать что бы применялось не к закрашенным ячейкам а к строкам отмеченым 1 в столбце2
 
Ответить
Сообщениезащита от редактирования...
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Interior.ColorIndex = 2 Then

    Range("A1").Select
End If
End Sub
[/vba]
как написать что бы применялось не к закрашенным ячейкам а к строкам отмеченым 1 в столбце2

Автор - Extybr
Дата добавления - 07.04.2021 в 19:52
Pelena Дата: Четверг, 08.04.2021, 00:03 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 19177
Репутация: 4417 ±
Замечаний: ±

Excel 365 & Mac Excel
Вариант в файле. Только вот умные таблицы плохо работают на защищенном листе, отключается автодобавление строк
К сообщению приложен файл: 5039858.xlsb (16.2 Kb)


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

Автор - Pelena
Дата добавления - 08.04.2021 в 00:03
Extybr Дата: Пятница, 09.04.2021, 21:03 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, спасибо.
решил вот этим воспользоваться

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    r = Target.Row
    If Cells(r, 2).Value = 1 Then
    Range("A1").Activate
    Exit Sub
    End If
End Sub
[/vba]


Сообщение отредактировал Extybr - Суббота, 10.04.2021, 11:59
 
Ответить
СообщениеPelena, спасибо.
решил вот этим воспользоваться

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    r = Target.Row
    If Cells(r, 2).Value = 1 Then
    Range("A1").Activate
    Exit Sub
    End If
End Sub
[/vba]

Автор - Extybr
Дата добавления - 09.04.2021 в 21:03
micholap_denis Дата: Четверг, 28.07.2022, 21:26 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Extybr, вечер добрый
Подскажите пожалуйста, макрос сверху если видит во втором столбце 1 то ячейка типа защищена и выкидывает на А1
Формулой в столбце 2 проверяется условие: если дата столбца 1 дальше от сегодняшней более чем на 3мес, то значение 1......
А можно ли в макрос зашить чтоб без этого столбца 2 сравнивал дату сегодняшнюю с той что указана и если более 3 мес срабатывала типа защита....
В строку If Cells(r, 2).Value = 1 Then вставить формулу
 
Ответить
СообщениеExtybr, вечер добрый
Подскажите пожалуйста, макрос сверху если видит во втором столбце 1 то ячейка типа защищена и выкидывает на А1
Формулой в столбце 2 проверяется условие: если дата столбца 1 дальше от сегодняшней более чем на 3мес, то значение 1......
А можно ли в макрос зашить чтоб без этого столбца 2 сравнивал дату сегодняшнюю с той что указана и если более 3 мес срабатывала типа защита....
В строку If Cells(r, 2).Value = 1 Then вставить формулу

Автор - micholap_denis
Дата добавления - 28.07.2022 в 21:26
micholap_denis Дата: Четверг, 28.07.2022, 21:33 | Сообщение № 12
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Pelena, вечер добрый
Подскажите пожалуйста, макрос сверху если видит во втором столбце 1 то ячейка типа защищена и выкидывает на А1
Формулой в столбце 2 проверяется условие: если дата столбца 1 дальше от сегодняшней более чем на 3мес, то значение 1......
А можно ли в макрос зашить чтоб без этого столбца 2 сравнивал дату сегодняшнюю с той что указана и если более 3 мес срабатывала типа защита....
В строку If Cells(r, 2).Value = 1 Then вставить формулу


Сообщение отредактировал micholap_denis - Пятница, 29.07.2022, 15:33
 
Ответить
СообщениеPelena, вечер добрый
Подскажите пожалуйста, макрос сверху если видит во втором столбце 1 то ячейка типа защищена и выкидывает на А1
Формулой в столбце 2 проверяется условие: если дата столбца 1 дальше от сегодняшней более чем на 3мес, то значение 1......
А можно ли в макрос зашить чтоб без этого столбца 2 сравнивал дату сегодняшнюю с той что указана и если более 3 мес срабатывала типа защита....
В строку If Cells(r, 2).Value = 1 Then вставить формулу

Автор - micholap_denis
Дата добавления - 28.07.2022 в 21:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Защита от изменения сохраненных данных таблицы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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