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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.09.2016, 12:41   #1
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию Workbook_Open 2003 и 2010(2013)

Здравствуйте, Уважаемые!
Столкнулся с неожиданной проблемкой.
В Excel 2003 написан такой код
Код:
Private Sub Workbook_Open()
 Sheets("Окно").Activate
'... еще разный код
End Sub
все работает давно и корректно.
И вот понадобилось перейти на Excel 2013 и, казалось бы, самая простейшая конструкция не работает.
Не активируется лист Окно при запуске программы.
В инете толкового объяснения так и не смог найти.
Вычитал только, что да, есть проблемы с Workbook_Open в 2010, 2013
Может кто сталкивался с такой заморочкой?
Подскажите, пожалуйста как с этим побороться.
Спасибо.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 25.09.2016, 12:57   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

вставьте этот
Код:
Sub auto_open()
  MsgBox "Hello!"
End Sub
в программный модуль проекта.
сохраните
закройте файл
откройте файл
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 25.09.2016, 13:07   #3
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Sub auto_open() тоже пробовал. Не помогает.
Интересно то, что все процедуры идущие дальше (архивация, обновление формул и т.д.) - выполняются.
А вот лист Окно никак не хочет отображаться.
зы При пошаговом выполнении (F8) все работает четко.
И, повторюсь, в Excel 2003 все это работает давно и без нареканий.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 25.09.2016, 14:46   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Судя по описанию чертовщина какая-то...
без файла - трудно что-то сказать
с файлом - шансов больше, но гарантий нет((
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 25.09.2016, 15:02   #5
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

а так?
Код:
ThisWorkbook.Worksheets("Окно").Activate
EducatedFool вне форума Ответить с цитированием
Старый 25.09.2016, 17:36   #6
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Эта, как Вы говорите "чертовщина" активно обсуждается в инете, существуют какие-то различия Workbook_Open 2003 и Workbook_Open 2010, 2013. Но вот какие - толком нигде ничего не нашел. И дело вовсе не в файле.
Код:
ThisWorkbook.Worksheets("Окно").Activate
тоже пробовал, не работает (
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 25.09.2016, 19:46   #7
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Сделал так:
Перед закрытием книги активирую лист Окно и сохраняю.
При следующем открытии все отображается.
И еще, на листе был элемент "Надпись" он не отображается при запуске, сделал текст в ячейке - все стало видно.
Кстати, в 2013-м при запуске файла не отображается ни один элемент "Автофигуры", "Надпись".
В 2003-м все отображается.
Вот такие различия.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Microsoft Spy++ 2010-2013 beegl Софт 4 19.10.2018 13:45
Внедрённый рисунок в Excel 2010 и 2013 bel62 Microsoft Office Excel 4 01.02.2014 18:47
Office 2003 и 2010 на одном компьютере kovalevskivf Софт 5 15.09.2013 20:28
совместимость макросов 2003 экселя с 2007 / 2010 Bape}l{ka Microsoft Office Excel 8 29.08.2011 15:31