Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 28.05.2008, 01:29   #121
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
А как два подряд?
Сначала один, потом пауза, MsgBox, а затем только второй, модули то разные.
чёт мы на разных языках говорим...
Цитата:
Давай попробуем мой алгоритм, сотворить!
Извините, не вижу необходимости, проверил неоднократно то что есть - все нормально работает. Да и некогда.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 29.05.2008, 15:46   #122
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Возможно, причина в следующем:
При защите листа, Вы применяете UserInterfaceOnly:=True. Это позволяет макросу вносить изменения в защищенные ячейки листа, в то время как пользователь такой возможности не имеет. Все правильно. Но у этого метода есть одна тонкость: эта возможность не сохраняется, т.е. UserInterfaceOnly:=True необходимо повторять при каждом открытии файла.
А мона это автоматизировать?
Если делаю так, в книге прописываю

Private Sub Workbook_Open()
ActiveSheet.Unprotect 'Снять защиту
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'Установить защиту
End Sub

Не помогает, если то же самое в ручную, все ОК!

А вот так, помогло!

Private Sub Workbook_Open()
Run "UnProtectAllSheets"
Run "ProtectAllSheets"
End Sub

Последний раз редактировалось valerij; 29.05.2008 в 16:16.
valerij вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Управление громкостью Jupiter Общие вопросы Delphi 2 29.06.2008 15:43
Управление голосом prizrak1390 Общие вопросы Delphi 2 24.06.2008 21:04
управление CD ROMom Cricket2007 Помощь студентам 4 16.06.2008 16:01
Управление приложениями voron29 Общие вопросы Delphi 1 14.03.2008 12:38
вопрос - проблема с форматированием prickly Microsoft Office Excel 2 14.11.2006 10:14