ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel проблема с защитой листа
5 сообщений из 5, страница 1 из 1
Excel проблема с защитой листа
    #34285245
eda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eda
Гость
Есть защищенный лист, на нем незащищаемые ячейки, в которые редактируются макросом. Значения в эти ячейки вносятся без проблем, а вот при попытке изменить их цвет фона - ошибка. Пробывал указанный на форуме способ:
...
Рейтинг: 0 / 0
26.01.2007, 13:45:03
| Ответить | Цитировать | Написать  
Excel проблема с защитой листа
    #34285283
eda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eda
Гость
Есть защищенный лист, на нем незащищаемые ячейки, в которые редактируются макросом. Значения в эти ячейки вносятся без проблем, а вот при попытке изменить их цвет фона - ошибка. Пробывал указанный на форуме способ:
Код: plaintext
1.
2.
WorkSheet(i).Unprotect
...
WorkSheet(i).Protect
Все работает, только на время обновления обновляемы лист становится активным (макрос запускается по событию на другом листе), что при частом обновлении раздражает.
На основании вышеизложенного вопрос: как изменить цвет фона незащищенных ячеек на защищенном листе без "побочных" эффектов?
...
Рейтинг: 0 / 0
26.01.2007, 13:53:02
| Ответить | Цитировать | Написать  
Excel проблема с защитой листа
    #34285584
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Наверняка в коде используется "select" и "activate"
избавься от них и все будет Ok
например
Код: plaintext
    Sheets("Лист1").Select \'делает активным лист "Лист1"\n    Range("G9").Select \'выделяет ячейку "G9"\n    Selection.Interior.ColorIndex =  6  \'изменяет фон ячейки
вот строка которая делает фон ячейки "G9" на листе "Лист1" - желтым только без мельканий и проблем
Код: plaintext
 Sheets("Лист1").Range("G9").Interior.ColorIndex =  6

а еще вот
Выполнение макроса и диалоговые окна
...
Рейтинг: 0 / 0
26.01.2007, 14:54:29
| Ответить | Цитировать | Написать  
Excel проблема с защитой листа
    #34285979
eda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eda
Гость
В коде не используется ни "select" ни "activate". Делаю аналогично приведенному примеру:
Код: plaintext
1.
2.
3.
4.
5.
Sub InsMin(SheetName As String, MinDocDone As Integer, X As Integer, Color As Integer)
    Application.ThisWorkbook.Worksheets(MainSheetNum).Unprotect Password:="999"
    Application.ThisWorkbook.Worksheets(MainSheetNum).Cells(X,  8 ).Value = MinDocDone
    Application.ThisWorkbook.Worksheets(MainSheetNum).Cells(X,  8 ).Interior.ColorIndex = Color
    Application.ThisWorkbook.Worksheets(MainSheetNum).Protect Password:="999"
End Sub
Если эту процедуру вызывать в цикле - то происходит многочисленное мигание обновляемого листа, если же цикл поместить между Unprotect ... Protect , соответственно, обновляемый лист становится видимым на бОльший промежуток времени, но 1 раз :(

А вот совет с использованием
Код: plaintext
1.
Rem Обновление экрана при работе приложения отключено
Application.ScreenUpdating = False
перед манипуляциями с защитой, и
Код: plaintext
1.
Rem Обновление экрана при работе приложения отключено
Application.ScreenUpdating = True
по завершению - помог избавится от миганий, за что большое спасибо.
...
Рейтинг: 0 / 0
26.01.2007, 16:20:34
| Ответить | Цитировать | Написать  
Excel проблема с защитой листа
    #34286838
ring27
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ring27
Участник
Можно без VBA
...
Рейтинг: 0 / 0
26.01.2007, 21:42:29
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel проблема с защитой листа
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34285245&tid=2183555]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 15ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 235ms
total:  305ms
созд. / загр.: 305ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]