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

Вход

Регистрация

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

 

= Мир MS Excel/Запрет на редактирование ранее добавленных строк таблицы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запрет на редактирование ранее добавленных строк таблицы (Формулы/Formulas)
Запрет на редактирование ранее добавленных строк таблицы
artmus Дата: Понедельник, 15.12.2014, 11:01 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте! Подскажите пожалуйста как сделать запрет на редактирование ранее внесенных данных на Excel-листе? К примеру, заполняется строка таблицы, а при добавлении новой строки предыдущая становится недоступной для изменения и так далее. Но, естественно, должна быть возможность разблокировки для "админа".
К сообщению приложен файл: DB.xlsx (11.3 Kb)
 
Ответить
СообщениеЗдравствуйте! Подскажите пожалуйста как сделать запрет на редактирование ранее внесенных данных на Excel-листе? К примеру, заполняется строка таблицы, а при добавлении новой строки предыдущая становится недоступной для изменения и так далее. Но, естественно, должна быть возможность разблокировки для "админа".
Автор - artmus
Дата добавления - 15.12.2014 в 11:01
JayBhagavan Дата: Понедельник, 15.12.2014, 11:03 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 27 ±
Замечаний: 0% ±

Excel 2010
artmus, Вам в раздел по макросам/ВБА. Формулами такое не сделать.

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов
 
Ответить
Сообщениеartmus, Вам в раздел по макросам/ВБА. Формулами такое не сделать.
Автор - JayBhagavan
Дата добавления - 15.12.2014 в 11:03
artmus Дата: Понедельник, 15.12.2014, 11:13 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Просьба модератору перенести тему в раздел по макросам/VBA. Заранее спасибо.
 
Ответить
СообщениеПросьба модератору перенести тему в раздел по макросам/VBA. Заранее спасибо.
Автор - artmus
Дата добавления - 15.12.2014 в 11:13
SLAVICK Дата: Понедельник, 15.12.2014, 17:47 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Какие условия?
вся строка должна быть заполнена? Как обозначить момент, когда нужно поставить запрет?
Можно поставить кнопку, после нажатия на которую все заполненные строки заблокируются. Можно по горячему сочетанию клавиш. Можно сразу после заполнения всей строки :D

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеКакие условия?
вся строка должна быть заполнена? Как обозначить момент, когда нужно поставить запрет?
Можно поставить кнопку, после нажатия на которую все заполненные строки заблокируются. Можно по горячему сочетанию клавиш. Можно сразу после заполнения всей строки :D
Автор - SLAVICK
Дата добавления - 15.12.2014 в 17:47
artmus Дата: Вторник, 16.12.2014, 06:58 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Скажем, при нажатии кнопки добавляется новая строка, которую можно редактировать. А остальные блокируются для редактирования - те, что перед и после. Примерно так.
 
Ответить
СообщениеСкажем, при нажатии кнопки добавляется новая строка, которую можно редактировать. А остальные блокируются для редактирования - те, что перед и после. Примерно так.
Автор - artmus
Дата добавления - 16.12.2014 в 06:58
alex77755 Дата: Вторник, 16.12.2014, 09:23 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

Дописывается ниже
[vba]
Код
Private Sub CommandButton1_Click()
     Dim C, VV, R
     Worksheets(1).Unprotect "paskal"
     R = Cells(Rows.Count, 1).End(xlUp).Row + 1
     For C = 1 To 22
         VV = InputBox("В столбец " & C, "Заполнение строки " & R, 100 * Rnd)
         If VV = "" Then GoTo 1
         Cells(R, C) = VV
     Next C
1
     Worksheets(1).Protect "paskal"
End Sub
[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru
 
Ответить
СообщениеДописывается ниже
[vba]
Код
Private Sub CommandButton1_Click()
     Dim C, VV, R
     Worksheets(1).Unprotect "paskal"
     R = Cells(Rows.Count, 1).End(xlUp).Row + 1
     For C = 1 To 22
         VV = InputBox("В столбец " & C, "Заполнение строки " & R, 100 * Rnd)
         If VV = "" Then GoTo 1
         Cells(R, C) = VV
     Next C
1
     Worksheets(1).Protect "paskal"
End Sub
[/vba]
Автор - alex77755
Дата добавления - 16.12.2014 в 09:23
alex77755 Дата: Вторник, 16.12.2014, 09:27 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

Что бы при отмене очищало введённое заменить

[vba]
Код
If VV = "" Then GoTo 1
[/vba]
на
[vba]
Код
If VV = "" Then Rows(R).ClearContents: GoTo 1
[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru

Сообщение отредактировал alex77755 - Вторник, 16.12.2014, 09:28
 
Ответить
СообщениеЧто бы при отмене очищало введённое заменить

[vba]
Код
If VV = "" Then GoTo 1
[/vba]
на
[vba]
Код
If VV = "" Then Rows(R).ClearContents: GoTo 1
[/vba]
Автор - alex77755
Дата добавления - 16.12.2014 в 09:27
artmus Дата: Вторник, 16.12.2014, 12:20 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо! specool
 
Ответить
СообщениеСпасибо! specool
Автор - artmus
Дата добавления - 16.12.2014 в 12:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запрет на редактирование ранее добавленных строк таблицы (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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