Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Ramon
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 22:47:02
Цитата
yozhik написал: ... Ramon код 16 скопировал, а не набирал в сообщение вручную
Прошу прощения писал глядя на смартфон, допустил ошибку....конечно же ThisWorkbook

вот скопировал
Код
1 Sub НасосНеРаботал()
2 Application.ScreenUpdating = False
3 ThisWorkbook.Sheets("Лист2").Unprotect Password:="321"
4 Worksheets("Лист2").Range("B10:G10").ClearContents
5 Worksheets("Лист2").Range("B10:G10").Interior.Color = RGB(219, 238, 243) 
6 Worksheets("Лист2").Range("B10:G10").Locked = True
7 ThisWorkbook.Sheets("Лист2").Protect Password:="321", UserInterfaceOnly:=True
8 MsgBox ("Установлена наработка насоса 00:00 часов")
9 Application.ScreenUpdating = True
10 End Sub
А то я "Смотрю в книгу - вижу фигу", сперва не понял об чем раздрай, дико извиняюсь  :oops:
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 22:30:27
RAN, в самой проге на первом листе у меня меню выбора режима работы восьми насосов. На каждый насос 3 переключателя. На другом листе ячейки для заполнения данных, в них при помощи этих макросов регулируется доступ для заполнения и кнопка с макросом для переноса данных в таблицу на третьем листе. А уже из этой таблицы формируются отчеты по каждому насосу в отдельности и объединенный по всем. Вот как-то так, но на рабочем компе. А здесь только тест макроса на разблокировать-очистить-покрасить-заблокировать. Здесь обкатал, на работе попробую. ;)
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 22:10:50
Попробую на рабочем компе, на нем не знаю. По крайней мере на тестовом не ругается. :D
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 22:07:52
Юрий М, а должен ругаться?
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 22:05:31
RAN, по переключателям нажимай, все красит - блокирует - разблокирует
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 21:48:45
RAN, с радостью показал бы сам файл, но он на рабочем компе. Там нет доступа к usb, а на домашнем только эти 2 листа :( для обкатки макросов
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 21:17:01
RAN, по крупицам собрал  :D
и как по другому я не знаю. Но работает просто ЧУДО!
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 21:05:38
На "Лист2" в ячейке H10 в зависимости от положения переключателя прописываются: если 1 то 00:00ч, если 2 то 24:00ч, если 3 то формулами расчитывается время работы, количество пусков и количество остановок.
Вам СПАСИБО, очень помогли.
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 20:57:37
Да, и соответственно на Переключатель №3 написал такой макрос:
Код
1 Sub РассчетНаработкиНасоса ()
2 Application.ScreenUpdating = False
3 ThisWorksheets("Лист2").Unprotect Password:="321"
4 Worksheets("Лист2").Range("B10:G10").Interior.Color = vbWhite
5 Worksheets("Лист2").Range("B10:G10").Locked = False
6 ThisWorksheets("Лист2").Protect Password:="321", UserInterfaceOnly:=True
7 MsgBox ("Наработка насоса будет подсчитана по пускам и остановкам")
8 Application.ScreenUpdating = True
9 End sub
Изменено: Ramon - 29.03.2017 20:58:49
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 19:13:13
vikttur, Просьба поменять на тему: "Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек"
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 19:05:43
vikttur, прошу меня извинить, признаю, полностью моя вина. Я не знаю как поменять тему. И за подсказку спасибо <...>. Впредь обещаю исправиться.!
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 18:11:22
Большое спасибо, друзья!!!
Все прекрасно работает, спасибо!!!
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
29.03.2017 17:58:44
Друзья, я все таки на переключатель  №1 написал такой макрос:
Код
Sub Насос_1_НеРаботал ()
ThisWorksheets("Лист2").Unprotect Password:="321"
Worksheets("Лис2").Range("B10:G10").ClearContents
Worksheets("Лис2").Range("B10:G10").Interior.Color = RGB(219,238,243)
Worksheets("Лис2").Range("B10:G10").Locked = True
ThisWorksheets("Лист2").Protect Password:="321", UserInterfaceOnly:=True
MsgBox ("Наработка насоса установлена 00:00 часов")
End sub

Когда макрос срабатывает на секунду виден Лист2, скажите почему?
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
28.03.2017 21:05:37
Constantinich,   прошу прощения еще, там написано для Office 2013, а для 2007?
Код
Sub Зачистить_И_Заблокировать()
Worksheets("Лист2").Range("B10:G10").ClearContents
Worksheets("Лист2").Unprotect Password:="321"
Range("B10:G10").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
Worksheets("Лист").Protect Password:="321", UserInterfaceOnly:=True
End Sub

Что же не так-то? Выходит ошибка.
Плиззз...
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
28.03.2017 20:34:30
Constantinich, БОЛЬШОЕ СПАСИБО!!!
 
Перейти    
Снятие защиты, заливка цветом и блокировка от ввода данных диапазона ячеек
 
#
28.03.2017 20:15:39
Приветствую всех!
Помогите пожалуйста, только начал изучать VBA. Со всем мало-помалу разбираюсь, но остановился на вот таком пункте:
На "Лист1" установлены 3 переключателя: 1 - Не работал, 2 - Работал круглосуточно, 3 - Рассчитать, для подсчета времени работы насоса, количества пусков и остановок за сутки. На переключатели 1 и 2 прописал код:
Код
sub
Worksheet ("Лист2").Range("B10:G10").Clearcontents
end sub

На "Лист2" в этих ячейках прописываются время пусков и остановок. Код их зачищает что-бы при сохранении вторым кодом не переносились из них данные в таблицу. Но при переходе на Лист2 в ячейках можно вносить данные.
Подскажите что добавить в код, что-бы после зачистки их защитить от ввода данных, а третий переключатель защиту эту снимал?
Заранее СПАСИБО!!
 
Перейти    
Страницы: 1
Наверх