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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.11.2010, 12:18   #1
i777
Пользователь
 
Регистрация: 03.10.2010
Сообщений: 33
По умолчанию Отключение окна предеупреждения

Макрос активирует прописанною мной вэб-ссылку >> каждый раз -извещение системы безопасности microsoft ms: '' обнаружил возможное нарушение безопасности''. Можно ли отключить это.
i777 вне форума Ответить с цитированием
Старый 04.11.2010, 12:28   #2
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Попробуйте так:
Код:
Application.DisplayAlerts = False 
'Здесь должен быть код Вашей программы. 
Application.DisplayAlerts = True
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 04.11.2010, 12:45   #3
i777
Пользователь
 
Регистрация: 03.10.2010
Сообщений: 33
По умолчанию

Цитата:
Сообщение от VictorM Посмотреть сообщение
Попробуйте так:
Код:
Application.DisplayAlerts = False 
'Здесь должен быть код Вашей программы. 
Application.DisplayAlerts = True
Что-то не получается, подскажите как правильно для этого:

Sub NextTime()
Application.OnTime Now + TimeSerial(0, 10, 0), "NextTime"
[R1C3].Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.OnTime Now + TimeSerial(0, 20, 0), "NextTime"
[R2C3].Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
i777 вне форума Ответить с цитированием
Старый 04.11.2010, 13:41   #4
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

ну похоже что так:
Код:
Sub NextTime()
Application.DisplayAlerts = False 
Application.OnTime Now + TimeSerial(0, 10, 0), "NextTime"
[R1C3].Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.OnTime Now + TimeSerial(0, 20, 0), "NextTime"
[R2C3].Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.DisplayAlerts = True
End Sub
Хотя, если это
Цитата:
извещение системы безопасности microsoft ms:
возможно что и не сработает.
Тогда нужно копать в настройках безопасности.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 04.11.2010, 15:02   #5
i777
Пользователь
 
Регистрация: 03.10.2010
Сообщений: 33
По умолчанию

Ни так, ни через начтройки не получается
i777 вне форума Ответить с цитированием
Старый 04.11.2010, 20:57   #6
i777
Пользователь
 
Регистрация: 03.10.2010
Сообщений: 33
По умолчанию

вот в чем причина http://support.microsoft.com/kb/925757
i777 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
не получается отключение CTRL+alt+del? Alt+TAb, часов с панели задач и Крестик окна Reds Общие вопросы Delphi 1 30.09.2008 10:37
Размер окна в зависимости от размера окна Reverent JavaScript, Ajax 1 02.02.2008 15:49
закрыть все дочерни окна, кроме главного окна Worms Общие вопросы Delphi 2 03.12.2007 22:18
Как сделать чтобы дочерние окна в MDI-приложениях были вне главного окна??? dimonchuk Общие вопросы Delphi 1 11.08.2007 12:13