Автозапуск формы в excel

3 / 3 / 0

Регистрация: 12.10.2012

Сообщений: 101

1

25.09.2013, 20:49. Показов 4357. Ответов 12


Студворк — интернет-сервис помощи студентам

Подскажите как сделать так что бы при открытии файла excel сразу же вылазила форма (и не давала работать пока ее не закроешь)



0



Igor_Tr

4377 / 661 / 36

Регистрация: 17.01.2010

Сообщений: 2,134

25.09.2013, 22:37

2

В модуль «Эта книга»

Visual Basic
1
2
3
Private Sub Workbook_Open()
   UserForm1.Show vbModal
End Sub

Если для всех — тогда в «Эта книга» шаблона.
Только интересно, зачем такие сложности?



0



Sasha_Smirnov

25.09.2013, 22:50

Не по теме:

Цитата
Сообщение от Igor_Tr
Посмотреть сообщение

Только интересно, зачем такие сложности?

Чтобы, вероятно, быть покруче многих в своей группе!



1



3 / 3 / 0

Регистрация: 12.10.2012

Сообщений: 101

26.09.2013, 05:44

 [ТС]

4

не открывается автозапуском



0



Апострофф

Заблокирован

26.09.2013, 07:51

5

Цитата
Сообщение от ega005
Посмотреть сообщение

не открывается автозапуском

Значит, что то сделали не так или макросы отключены в настройках безопасности?



1



5561 / 1367 / 150

Регистрация: 08.02.2009

Сообщений: 4,107

Записей в блоге: 30

26.09.2013, 11:31

6

Или Экссель суперсовременный. У меня вот на работе офис вообще без VBA! Пишу из дома:

Миниатюры

Автозапуск userforms (пользовательской формы)
 



1



4377 / 661 / 36

Регистрация: 17.01.2010

Сообщений: 2,134

26.09.2013, 11:38

7

Да….. Проблемка….. Видно, ТС, не будете в группе самым-самым.



0



1261 / 147 / 32

Регистрация: 11.02.2011

Сообщений: 418

26.09.2013, 12:30

8

Sasha_Smirnov, без вба? Так бывает? Это же как версия называется?



0



3 / 3 / 0

Регистрация: 12.10.2012

Сообщений: 101

26.09.2013, 13:40

 [ТС]

9

Все спасибо большое работает так как надо!



0



4377 / 661 / 36

Регистрация: 17.01.2010

Сообщений: 2,134

26.09.2013, 14:07

10

Ну Слава Богу! Значит, все-таки самый-самый…
И раз уже зашел, а Sasha_Smirnov молчит, тогда to korvindeson. OFFICE не обязательно должен быть от Microsoft.



0



5561 / 1367 / 150

Регистрация: 08.02.2009

Сообщений: 4,107

Записей в блоге: 30

26.09.2013, 15:39

11

Цитата
Сообщение от korvindeson
Посмотреть сообщение

Это же как версия называется?

Это в любой версии можно просто не активировать. В частности, в 2005-м на Macintosh’ах видел.

А называется (одна из программ) солидно: Word Expert!!! Так типа крут, что доделки-переделки не нужны.



2



4377 / 661 / 36

Регистрация: 17.01.2010

Сообщений: 2,134

26.09.2013, 15:51

12

Не попадалось. Если правильно понимаю — лучше обойти стороной?



0



5561 / 1367 / 150

Регистрация: 08.02.2009

Сообщений: 4,107

Записей в блоге: 30

10.10.2013, 18:07

13

Глюканул; на самом деле — Word Press!

Так что 2 спасиба отношу на счёт юмора.



2



 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#1

24.02.2022 23:38:32

Здравствуйте.
Подскажите, пож-та, как сделать так, что-бы при открытии нужного файла Exel *****.xlsm происходил запуск формы с последующим скрытием данной книги. Для дальнейшей работы должна остаться видимой только форма.
Автозапуск формы получается, но следующая строка скрывает все остальные открытые книги Excel, а нужно чтобы скрывалась только эта книга.

Код
Private Sub Workbook_Open()
   UserForm1.Show
   Application.Visible = False
End Sub

Запись ThisWorkbook.Windows(1).Visible = False оставляет пустое окно Excel.  Exel остается видимым, а нужно действие такое же как при исполнении кода Application.Visible = False, только для данного файла. т.е. для простого пользователя при двойном клике должна открыться только форма. Если на момент запуска открыты другие файлы Excel, они не должны быть затронуты.. Если данный файл запускается первым, то тоже должна быть видна только форма, без пустого Excel.

Изменено: asesja25.02.2022 22:21:18

 

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#2

25.02.2022 09:45:17

Цитата
asesja написал:
ThisWorkbook.Windows(1).Visible = False после закрытия меняет файл

так Вы при закрытии формы возвращайте видимость окна и все будет ОК.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

Александр Моторин

Пользователь

Сообщений: 958
Регистрация: 31.12.2012

#3

25.02.2022 09:45:56

может так?

Код
Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show
    Application.Visible =true
End Sub
 

Ігор Гончаренко

Пользователь

Сообщений: 13746
Регистрация: 01.01.1970

#4

25.02.2022 10:15:41

1. исправьте:

Код
Private Sub Workbook_Open()
   UserForm1.Show
End Sub

2. Скройте книгу,
3. закройте Excel, на вопрос сохранить — сохраните
4. открывайте, наслаждайтесь

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#5

25.02.2022 11:52:53

Цитата
Дмитрий(The_Prist) Щербаков  написал:
при закрытии формы возвращайте видимость окна и все будет ОК.

Подскажите, как? При каком событии формы? Если файл будет открываться первым, то пустой Excel остается видимым, а нужна только форма. Дописал уточнение.

Изменено: asesja25.02.2022 11:59:53

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#6

25.02.2022 11:53:57

Цитата
Александр Моторин написал:
может так?

Ничего не меняется.

Изменено: asesja25.02.2022 12:00:57

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#7

25.02.2022 11:58:19

Цитата
Ігор Гончаренко написал:
1. исправьте:Код ? 123Private Sub Workbook_Open()   UserForm1.ShowEnd Sub2. Скройте книгу, 3. закройте Excel, на вопрос сохранить — сохраните4. открывайте, наслаждайтесь

Спасибо. Думал что уже получилось то что хотел, но если файл запускать первым, то на фоне все равно фигурирует пустое окно Excel, а нужно чтобы была видна только форма. Дописал уточнение.

Изменено: asesja25.02.2022 12:01:33

 

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#8

25.02.2022 12:02:23

Цитата
asesja написал:
Если файл будет открываться первым, то пустой Excel остается видимым

так а как Вы хотели-то? Если открыта только одна книга, а Вы и ту скрываете. Да, будет пустое приложение. Определитесь для начала, что при каких условиях должно быть видимым и тогда можно будет решение найти.

Цитата
asesja написал:
а нужно чтобы была видна только форма

а если мы эту книгу открыли не первой? Тогда что?

Цитата
asesja написал:
При каком событии формы?

событие закрытия формы. Есть там такое QueryClose

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#9

25.02.2022 12:46:54

Цитата
написал:
Определитесь для начала, что при каких условиях должно быть видимым и тогда можно будет решение найти.

Дмитрий, дописал уточнение в первом сообщении.
Нужно, чтобы всегда была видна только форма при запуске данного файла (форма из этого файла). Если файл открывается первым, то excel не должен быть виден, только форма. Если открытие файла происходит когда уже открыты несколько других файлов, то при открытии тоже должна запускаться только форма, изменение видимости ранее открытых файлов не должно меняться. Т.е. в какой бы момент пользователь не запустил данный файл всегда должна запускаться (быть видна) только форма.
Не знаю как еще объяснить по другому.

 

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#10

25.02.2022 12:51:29

Цитата
asesja: Т.е. в какой бы момент пользователь не запустил данный файл всегда должна запускаться (быть видна) только форма

засуньте форму в нвдстройку и подключите к Excel — теперь форма всегда будет доступна, никакие дополнительные книги не будут открываться и это очень легко и правильно

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#11

25.02.2022 13:11:20

Цитата
написал:
засуньте форму в нвдстройку и подключите к Excel — теперь форма всегда будет доступна, никакие дополнительные книги не будут открываться и это очень легко и правильно

В надстройку не нужно. Нужный мне макрос должен находится в фале и форма должна появляться при его запуске (как будто запускаешь exe в котором при запуске выводится форма)
Если даже поместить в надстройку, то все равно эту форму можно вывести только при открытом excel, а нужно именно при открытии данного файла.
Мне нужно именно как я описал. Может я непонятно объясняю просто?  

 

Ігор Гончаренко

Пользователь

Сообщений: 13746
Регистрация: 01.01.1970

#12

25.02.2022 13:17:41

код в сообщении 4 замените на такой:

Код
Private Sub Workbook_Open()
  Application.Visible = Not (Workbooks.Count = 1 Or _
  (Workbooks.Count = 2 And Workbooks(1).Name = "PERSONAL.XLSB"))
  UserForm1.Show
  Application.Visible = True
  ThisWorkbook.Close False
End Sub

Изменено: Ігор Гончаренко25.02.2022 13:22:34

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

 

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#13

25.02.2022 13:27:06

Цитата
asesja написал:
Т.е. в какой бы момент пользователь не запустил данный файл всегда должна запускаться (быть видна) только форма

это никак не вяжется с этим

Цитата
asesja написал:
изменение видимости ранее открытых файлов не должно меняться

Но тем не менее, сделать можно так:

Код
Sub ShowForm()
        Dim lcnt&
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            If wb.Windows(1).Visible Then
                lcnt = lcnt + 1
            End If
        End If
    Next
    If lcnt Then 'какие-то книги уже открыты
        ThisWorkbook.Windows(1).Visible = False
        UserForm1.Show
        ThisWorkbook.Windows(1).Visible = True
    Else
        Application.Visible = False
        UserForm1.Show
        Application.Visible = True
    End If
End Sub

осталось понять, что именно делать при закрытии формы — закрывать так же файл или нет.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#14

25.02.2022 13:35:30

Цитата
написал:
код в сообщении 4 замените на такой:

Не работает. Если имеются открытые файлы excel, то при запуске просто моргает окно и закрывается. Если открывать файл первым, то запускается пустой Excel без формы.
На всякий случай уточню, что у меня нет Личной книги макросов, но имеются подключенные надстройки. На разных ПК данная ситуация может отличаться, поэтому нужный макрос будет записан в этом открываемом файле Excel ****.xlsm.

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#15

25.02.2022 13:37:36

Цитата
написал:
осталось понять, что именно делать при закрытии формы — закрывать так же файл или нет.

Дмитрий, да закрывать. Правильно спросили.

 

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

#16

25.02.2022 13:47:16

Код
Private Sub Workbook_Open()
    If Workbooks.Count = 1 Then
        Application.Visible = False
    Else
        Me.Windows(1).Visible = False
    End If
    UserForm1.Show
End Sub
 

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#17

25.02.2022 13:50:52

Цитата
asesja написал:
да закрывать

Т.е. сами по образцу это сделать не сможете, что ли? :)

Код
Sub ShowForm()
    Dim lcnt&
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            If wb.Windows(1).Visible Then
                lcnt = lcnt + 1
            End If
        End If
    Next
    
    If lcnt Then 'какие-то книги уже открыты
        ThisWorkbook.Windows(1).Visible = False
        UserForm1.Show
        ThisWorkbook.Windows(1).Visible = True
        ThisWorkbook.Close False 'если надо закрывать без сохранения
    Else
        Application.Visible = False
        UserForm1.Show
        ThisWorkbook.Close False 'если надо закрывать без сохранения
        Application.Quit
    End If
End Sub

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#18

25.02.2022 13:51:46

Цитата
написал:
Но тем не менее, сделать можно так:

Дмитрий, не работает. Форма открывается вместе с книгой.

 

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#19

25.02.2022 13:54:07

Цитата
asesja написал:
Форма открывается вместе с книгой

с какой именно? Куда и на какое событие вставляли код? Чего от кода ожидаете?
Я лично все проверил — если есть хоть одна открытая книга — то книга с кодом скрывается, остальные остаются видимыми, поверх появляется форма. Если открывается только книга с кодом и нет других видимых книг — то появляется только форма, а Excel полностью скрывается.
А если по сути вопроса — да, форма всегда будет открываться вместе с книгой, т.к. форма внедрена в книгу, она её часть и без книги открываться просто не может по определению.

Изменено: Дмитрий(The_Prist) Щербаков25.02.2022 13:55:30

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#20

25.02.2022 14:01:10

Цитата
написал:
RAN

Ран, почти то, что нужно, но если открыть первым файл с макросом, то затем любой следующий открытый файл Excel делает видимым Excel у которого форма.
И как задал вопрос Дмитрий Щербаков, хорошо бы при закрытии формы закрывать и саму книгу.

 

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#21

25.02.2022 14:03:34

Цитата
asesja написал:
если открыть первым файл с макросом, то затем любой следующий открытый файл Excel делает видимым Excel у которого форма

так в условии не было ни слова о том, что надо отслеживать еще и последующие открываемые файлы! Вы сами понимаете, что одним кодом это действие не отследить? Надо писать обработку класса на отслеживание событий приложения, чтобы проверять — если форма открыта, то одно, если нет, то другое…
Плюс вопрос — а как же люди при открытой форме у Вас файлы-то открывают? У меня почему-то не получается. Вопрос на засыпку — форма в модальном режиме открывается или ShowModal = False? Если режим модальный — то даже если файл будет открыт, то показан он будет исключительно после закрытия формы.
В общем — принцип основной вроде бы показан и далеко не в единственном варианте, а под все остальные свои условия постарайтесь написать хоть что-то сами. А когда все условия будут обдуманы, проверены и испытаны, но решение так и не будет найдено — милости просим. А то что-то получается, что мы тут должны угадывать что Вы там еще делаете внутри формы, до запуска, во время работы с формой и после и какие еще условия сопутствуют всему этому(не говорю уже про то, что никто не понимает конечной цели этой все задумки).

Изменено: Дмитрий(The_Prist) Щербаков25.02.2022 14:12:57

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

От вам не лень, ей богу  :D

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#23

25.02.2022 14:13:56

Цитата
написал:
Т.е. сами по образцу это сделать не сможете, что ли?

Дмитрий, извините, но просто моргает и закрывается.

Наверное буду решать вопрос как-то по другому, если нельзя сделать так, как я спросил.
Спасибо.

Изменено: asesja25.02.2022 14:16:53

 

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#24

25.02.2022 14:19:01

Цитата
asesja написал:
просто моргает и закрывается

не знаю, что у Вас там происходит. Информации мало — нужно точно знать, установлено ли свойство формы ShowModal в true. Если нет — то  так и будет моргать и закрываться, т.к. в этом случае форма запускается и не происходит ожидания её закрытия и код идет дальше — следовательно книга просто закрывается.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#25

25.02.2022 14:19:55

Цитата
написал:
форма в модальном режиме открывается или ShowModal = False?

Дмитрий, ShowModal = False. Если true, то работа с другими файлами не возможна, как вы и написали.

Изменено: asesja25.02.2022 14:24:45

 

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#26

25.02.2022 14:21:09

Цитата
asesja написал:
ShowModal = False?

это вопрос о чем? Краткость не всегда сестра таланта. Я вроде выше все расписал.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

пора автору дать возможность помедитировать, подумать над задачей….
глядишь — и сформулирует что-то внятное
как говорится, вечно можно смотреть на 3 вещи:
— как горит огонь
— как течет вода
— и как завсегдатаи форума пытаются угадать, что нужно автору вопроса

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#28

25.02.2022 14:25:24

Цитата
написал:
это вопрос о чем?

Дмитрий, исправил.

 

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#29

25.02.2022 14:31:18

Цитата
asesja написал:
Дмитрий, исправил

ну так это у Вас проблемы с базовым пониманием принципов работы с формами. Я уже выше пояснил — если работаете с формой в немодальном режиме — то вот эти строки:

Цитата
Дмитрий(The_Prist) Щербаков написал:
ThisWorkbook.Windows(1).Visible = False
UserForm1.Show
ThisWorkbook.Windows(1).Visible = True
ThisWorkbook.Close False ‘если надо закрывать без сохранения

выполняются сразу без остановок.
Следовательно, читаем тему выше, где я писал какое событие формы надо использовать для обработки закрытия формы

Цитата
Дмитрий(The_Prist) Щербаков написал:
событие закрытия формы. Есть там такое QueryClose

и продумывать логику действий исходя из всех условий(открытие файлов в процессе работы с формой и поведение приложения и формы в этих случаях).

Изменено: Дмитрий(The_Prist) Щербаков25.02.2022 14:32:06

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

asesja

Пользователь

Сообщений: 320
Регистрация: 21.10.2019

#30

25.02.2022 14:47:19

Спасибо, всем, кто отозвался. Все правы, что задача сформулирована не полностью.
Так получается, когда одно цепляется за другое по мере прохождения определенного этапа и апробации предложенных вариантов. Изначально не всегда думаешь, что при выполнении какого либо действия, возымевшего положительный, или частично положительный, результат, вытекает другие обстоятельства, о которых до этого не думал, т.к. вообще не о чем было подумать (ничего не получалось и результата не было).

Формулировка после получения и апробации предложенных вариантов:
При запуске имеющегося файла с формой(макросом) ***.xlsm необходимо, чтобы запускалась (была видна) только форма UserForm1, независимо первым данный файл будет запущен или уже после того, когда имеются открытые книги. Если запускается первым, то открытие других файлов Excel не должно делать видимым эту книгу (в которой форма).  Форама не модальная. На ней будут размещены различные элементы управления для своих задач.
При закрытии формы её книга тоже должна закрываться.
Дополнительно: на моем ПК имеются подключенные надстройки и отсутствует Личная книга макросов, но эти данные не должны влиять, на ход выполнения задачи, т.к. на различных ПК могут отличаться.

Изменено: asesja25.02.2022 22:33:11

Прежде чем начать, убедитесь, что на ленте доступна вкладка Разработчик. Дополнительные сведения см. в статье Отображение вкладки «Разработчик».

Чтобы использовать пример ниже, откройте новую книгу.

Важно: Код VBA нельзя отменить, поэтому проверьте код в пустой книге или копии существующей книги. Если код не работает, вы можете закрыть книгу без сохранения изменений.

  1. Откройте вкладку Разработчик и щелкните элемент Visual Basic.

    Группа "Код" на вкладке "Разработчик"

  2. В обозревателе VBA Project слева разверните папку VBA Project книги, а затем дважды щелкните модуль ThisWorkbook. Если вы не видите обозреватель Project, перейдите в > Project проводникаили нажмите CTRL+R.

    Модуль ThisWorkbook в редакторе Visual Basic (VBE)

  3. В окне модуля, которое открывается справа, вставьте следующий код:

    Private Sub Workbook_Open()
    
    ' Put your code here
    
    End Sub

  4. В конце и подмножите записи в процедуру Sub.

    Закройте редактор Visual Basic (вам не нужно ничего сохранять).

  5. Сохраните книгу как книгу Excel Macro-Enabled (XLSM)и закроем ее.

При следующем запуске книги код, добавленный в Workbook_Open, будет работать автоматически.

Прежде чем начать, убедитесь, что на ленте доступна вкладка Разработчик. Для этого:

  1. В меню выберите пункт Параметры Excel >… >ленты & панели инструментов.

  2. В категории Настройка ленты в списке Основные вкладки выберите вариант Разработчик.

  3. Нажмите кнопку Сохранить.

Чтобы использовать пример ниже, откройте новую книгу.

Важно: Код VBA нельзя отменить, поэтому проверьте код в пустой книге или копии существующей книги. Если код не работает, вы можете закрыть книгу без сохранения изменений.

  1. Откройте вкладку Разработчик и щелкните элемент Visual Basic.

  2. В обозревателе VBA Project слева разверните папку VBA Project книги, а затем дважды щелкните модуль ThisWorkbook.

  3. В окне модуля, которое открывается справа, вставьте следующий код:

    Private Sub Workbook_Open()
    
    ' Put your code here
    
    End Sub

  4. В конце и подмножите записи в процедуру Sub.

    Закройте редактор Visual Basic (вам не нужно ничего сохранять).

  5. Сохраните книгу как книгу Excel Macro-Enabled (XLSM)и закроем ее.

При следующем запуске книги код, добавленный в Workbook_Open, будет работать автоматически.

Содержание

  1. Автоматический запуск макроса при открытии книги
  2. Дополнительные сведения
  3. Заставка при открытии книги Excel
  4. Шаг 1. Создаем экранную форму
  5. Шаг 2. Добавляем управляющий код
  6. Как это работает?
  7. Ссылки по теме
  8. Excel макрос при открытии книги excel
  9. Автоматический запуск макроса при открытии книги
  10. Автоматическое открытие определенной книги или шаблона при запуске Excel
  11. Использование альтернативной папки автозагрузки
  12. Отмена открытия конкретной книги при запуске Excel
  13. Автоматическое открытие шаблона книги при запуске Excel
  14. Отмена запуска автоматического макроса при запуске Excel
  15. Автозапуск макроса при открытии книги
  16. Выполнение макроса при открытии (активации) листа
  17. Выполнение макроса один раз при открытии книги excel (Макросы/Sub)
  18. Заставка при открытии книги Excel
  19. Шаг 1. Создаем экранную форму
  20. Шаг 2. Добавляем управляющий код
  21. Как это работает?
  22. Как использовать Личную Книгу Макросов
  23. Как создать Личную Книгу Макросов
  24. Как использовать Личную Книгу Макросов
  25. Где хранится Личная Книга Макросов
  26. как макросом книги 1 открыть закрытую книгу 2 Excel . (Макросы Sub)

Автоматический запуск макроса при открытии книги

Может потребоваться, чтобы макрос, записанный вами, запускался автоматически при запуске определенной книги. В следующей процедуре используется пример, чтобы показать, как это работает. Кроме того, может потребоваться автоматически запускатьмакрос при Excel запуска .

Прежде чем начать, убедитесь, что на ленте доступна вкладка Разработчик. Дополнительные сведения см. в статье Отображение вкладки «Разработчик».

Чтобы использовать пример ниже, откройте новую книгу.

Важно: Код VBA нельзя отменить, поэтому проверьте код в пустой книге или копии существующей книги. Если код не работает, вы можете закрыть книгу без сохранения изменений.

Откройте вкладку Разработчик и щелкните элемент Visual Basic.

В обозревателе VBA Project слева разверните папку VBA Project книги, а затем дважды щелкните модуль ThisWorkbook. Если вы не видите обозреватель Project, перейдите в > Project проводникаили нажмите CTRL+R.

В окне модуля, которое открывается справа, вставьте следующий код:

В конце и подмножите записи в процедуру Sub.

Закройте редактор Visual Basic (вам не нужно ничего сохранять).

Сохраните книгу как книгу Excel Macro-Enabled (XLSM)и закроем ее.

При следующем запуске книги код, добавленный в Workbook_Open, будет работать автоматически.

Прежде чем начать, убедитесь, что на ленте доступна вкладка Разработчик. Для этого:

В меню выберите пункт Параметры Excel >. > ленты & панели инструментов.

В категории Настройка ленты в списке Основные вкладки выберите вариант Разработчик.

Нажмите кнопку Сохранить.

Чтобы использовать пример ниже, откройте новую книгу.

Важно: Код VBA нельзя отменить, поэтому проверьте код в пустой книге или копии существующей книги. Если код не работает, вы можете закрыть книгу без сохранения изменений.

Откройте вкладку Разработчик и щелкните элемент Visual Basic.

В обозревателе VBA Project слева разверните папку VBA Project книги, а затем дважды щелкните модуль ThisWorkbook.

В окне модуля, которое открывается справа, вставьте следующий код:

В конце и подмножите записи в процедуру Sub.

Закройте редактор Visual Basic (вам не нужно ничего сохранять).

Сохраните книгу как книгу Excel Macro-Enabled (XLSM)и закроем ее.

При следующем запуске книги код, добавленный в Workbook_Open, будет работать автоматически.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Источник

Заставка при открытии книги Excel

Этот прием позволит Вам выводить на экран окно-заставку при открытии любой заданной книги в Excel.

Заставка появляется сразу после открытия файла и автоматически исчезает через несколько секунд.

Шаг 1. Создаем экранную форму

Откройте редактор Visual Basic — в старых версиях Excel это можно сделать через меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor) , а в новых кнопкой Visual Basic на вкладке Разработчик (Developer) и создайте новую форму, используя команду меню Insert — UserForm. Появится пустая серая оконная форма будущей заставки. Добавим на нее изображение при помощи панели инструментов Toolbox (если у вас ее не видно, то зайдите в меню View — Toolbox):

Нажмите кнопку Image и растяните на форме прямоугольник — в него будет помещено фоновое изображение. Затем на панели инструментов Properties (если у вас ее не видно, то выберите в меню View — Properties) задайте выберите файл картинки в поле Picture:

Возможно, придется немного изменить размер формы, чтобы изображение уместилось полностью. Чтобы написать на форме текст, можно использовать элемент управления Label с панели Toolbox.

Ну, и наконец, выделив предварительно всю форму, можно задать текст в строке заголовка, используя свойство Caption в панели Properties:

В итоге у вас должно получиться нечто подобное:

Шаг 2. Добавляем управляющий код

Щелкните правой кнопкой мыши по форме и выберите View Code. В открывшийся модуль формы добавьте такой код:

Откройте модуль ЭтаКнига в левом верхнем углу (если ее не видно — отобразите соответствующее окно через меню View — Project Explorer) и добавьте в него следующий код:

И, наконец, вставьте обычный модуль (Insert — Module) и скопируйте туда это:

Все. Можно закрывать редактор Visual Basic, сохранять файл и пробовать закрыть-открыть книгу.

Как это работает?

При открытии книги Excel выполняет процедуру Workbook_Open из модуля ЭтаКнига. Эта процедура отображает на экране нашу форму-заставку. При отображении формы запускается процедура UserForm_Activate, которая с задержкой в 5 секунд запускает макрос KillTheForm, который убирает форму с экрана.

Ссылки по теме

Привет! Отличный макрос, только если отчет с этим макросом открывать из письма Outlook высвечивается следующая ошибка: Run-time error ‘1004’: Metod ‘Ontime’ of object ‘_Application’ faild.

Когда сохраняешь файл на компьютер — этой ошибки нет. Можно это как-то исправить?

Попробовал это упражнение.
Результат такой: в Excel 2010 все отлично работает.
А в 2013 — проходят отмеренные 5 секунд и выскакивает ошибка «Run-time error ‘424’ Object required»

При попытке отладить подсвечивается последняя строчка End Sub в модуле KillTheForm.

Единственное, что я переименовал UserForm1 в Hello и дважды заменил его название в коде.
Попробовал без переименования — все работает.
Подскажите, пожалуйста, в чем моя ошибка?

Добрый день, не могли бы вы подсказать, почему при добавлении такой заставки мог поломаться автобэкап, созданный полностью по уроку:
Создание резервных копий ценных файлов Поломался он так, что не выдает никаких ошибок, просто не появляется файл в папке сохранения.

Наверно это что-то связанное с созданием Userform, и конфликтом в исполнении модуля с бекапом и формы. Сначала я переименовал форму, естественно, поменяв все необходимые ссылки на неё в текущей книге и модуле2. Обнаружил проблему с бэкапом. Подумал, решил, может быть, макросы выполняются при запуске в иерархичном порядке, переименовал userform так, чтобы в списке модулей он отображался позже модуля бэкапа. Не помогло. Возникла следующая идея. Удалил модуль2, относящийся к картинке, макрос оттуда добавил в модуль1(бэкап). Тоже не помогло. Картинка как работала, так и работает, но бэкап не сохраняется. Новых идей у меня, к сожалению, пока не возникло. Походу придется удалять заставку, так как функция бэкапа, объективно, важнее всяких картиночек.

Николай, обращаюсь к вам за советом, может быть вы знаете, в чем проблема, и надеюсь, что вы увидите и ответите. Заранее спасибо.

upd. Вопрос решил, добавив в макрос в ЭтаКнига строку Module1.auto_open .

p.s. Я тыкаюсь в vba как слепой котенок, но чаще всего это приносит свои плоды.

Добрый день, а защитил макрос, во время закрывание книг, спрашивает VBA пороль.
Подскажите, пожалуйста, в чем моя ошибка?

И еще, в модулье ЭтаКнига у меня ранше был вот токой запис.

Источник

Excel макрос при открытии книги excel

Автоматический запуск макроса при открытии книги

​Смотрите также​​Мне всегда хватает​ 2)​ Обычно это один​. В отличие от​ файл​ и Personal.xlsb, но​ таблиц и т.п.​ не видно -​Insert — UserForm​Private Sub Workbook_Open()​ модуль листа, но​чтобы создать настраиваемый шаблон​перейдите в папку, в​ выберите пункт Сохранить​ быть отменено, поэтому​ЭтаКнига​Примечание:​ одного из двух​пробовал прописать макрорекордером​ из следующих вариантов:​

​ процедур, код функций​PERSONAL.XLSB​ второго мы не​ Вопрос — где​ отобразите соответствующее окно​. Появится пустая серая​If Sheets(«Лист1»).[a1] <>​ ничего не сортируется.​ книги или листа,​

​ которой хранится книга​

​ как > Компьютер,​ убедитесь, что для​. Если вы​​ Мы стараемся как можно​​ проверенных способов​ открытие книги -​C:Program FilesMicrosoft OfficeOffice12XLSTART​

​ начинаются с оператора​. Его ветку которого​ видим. Таким образом​

​ эти несколько строк​​ через меню​ оконная форма будущей​ 8 Then MsgBox​Sub Worksheet_Open()​ введите любое имя;​ (XLSTART или альтернативная​ нажмите Обзор и​ тестирования кода на​ не видите окно​ оперативнее обеспечивать вас​

​KuklP​​ тоже не помогло​​C:Documents and SettingsComputerApplication DataMicrosoftExcelXLSTART​​Function​​ можно развернуть плюсиком​

​ все макросы, которые​​ кода хранить? Ведь​​View — Project Explorer​​ заставки. Добавим на​​ «Это последнее предупреждение!»​Range(«J1»).Select​нажмите Сохранить;​​ папка), выберите книгу​​ выберите папку XLSTART.​ пустую книгу или​ проекта, можно перейти​ актуальными справочными материалами​​: Где он там​​ ((((​​C:Usersимя-вашей-учетной-записиAppDataRoamingMicrosoftExcelXLSTART​​или​​ слева, добравшись до​​ хранятся в ЛКМ​

​ от того, где​) и добавьте в​ нее изображение при​

​Sheets(«Лист1»).[a1] = 8​
​Selection.AutoFilter Field:=1, Criteria1:=»НА​выберите Файл > Закрыть.​
​ и нажмите Удалить.​

​В чистой установке выпуска​ копию существующей книги.​​ в​​ на вашем языке.​​ такое сказал? И​​Может кто нибудь​

​Как вариант, можно спросить​​Public Function​​Module1​ оказываются доступы для​

​ макрос хранится будет​​ него следующий код:​ помощи панели инструментов​​ActiveWorkbook.Save​

​ ПЕЧАТЬ»​Автоматический макрос (например, Auto_Open),​​Вы можете сохранить часто​​ Windows Vista или​

​ Если код не​режим​ Эта страница переведена​​ что по-твоему означает​​ в курсе можно​ о положении этой​

​, а заканчиваются на​​, где и хранится​​ запуска в любой​​ потом зависеть где​​Private Sub Workbook_Open()​​Toolbox​​End Sub​

​End Sub​​ записанный в книгу,​​ используемые настройки книги​​ более новой версии​​ вас устраивают, закройте​​>​​ автоматически, поэтому ее​

​ строка:​​ ли так сделать​​ папки сам Excel​

​End Function​ код только что​ момент, пока открыт​

​ он сможет (или​​ UserForm1.Show End Sub​(если у вас​Лист1 скрыть​Как правильно сделать?​ которая открывается при​ в шаблоне и​ путь к папке​ книгу без сохранения​Окно проекта​ текст может содержать​

​cn.Open sCon​​ ?​​ с помощью VBA.​​:​​ записанного нами бессмысленного​

​ Excel.​​ не сможет) работать.​​И, наконец, вставьте обычный​​ ее не видно,​​_Boroda_​Извините, в макросах​ запуске Excel, запускается​​ автоматически открывать его​​ XLSTART обычно выглядит​

​ изменений.​или нажмите клавиши​ неточности и грамматические​

​?​
​. очень нужна​ Для этого в​
​Код необходимо аналогичным образом​

​ макроса:​Если вы еще ни​​Если макрос решает небольшую​​ модуль (​​ то зайдите в​​: Проще всего ставить​

​ я новичок.​​ сразу же при​​ каждый раз при​ так:​

​Откройте вкладку​​Ctrl + R​ ошибки. Для нас​​KuklP​

​ помощь . ​ редакторе Visual Basic​​ скопировать в любой​​Поздравляю, вы только что​

Автоматическое открытие определенной книги или шаблона при запуске Excel

​ разу не пользовались​ локальную проблему в​Insert — Module​ меню​ на листе метку.​webley​ ее открытии.​ запуске Excel.​Office 2013 — C:Пользователи(Имя​Разработчик​.​ важно, чтобы эта​

​: Кросс: http://www.excel-vba.ru/forum/index.php?topic=2225.0​Serge_007​ (кнопка​ модуль книги PERSONAL.XLSB​ создали себе Личную​ ЛКМ, то изначально​ отдельно взятом файле​) и скопируйте туда​

​View — Toolbox​ А лучше наоборот​: Лист не открывают,​Чтобы макрос не запустился,​Чтобы использовать шаблон книги,​ пользователя)AppDataMicrosoftExcelXLSTART;​
​и щелкните элемент​В открывшейся в правой​

​ статья была вам​AndreTM​

​: У Вас слишком​Visual Basic​ и затем можно​ Книгу Макросов! Только​
​ файл Personal.xlsb не​ (например обрабатывает внесенные​
​ это:​):​ — изначально метка​

​ а активируют :)​​ удерживайте клавишу SHIFT​ создайте книгу, которая​Office 2013 C2R — C:Пользователи(Имя​Visual Basic​ части окна модуля​ полезна. Просим вас​:​ много знаков вопроса​

Использование альтернативной папки автозагрузки

​на вкладке​ будет вызвать функцию​ не забудьте нажать​ существует. Самый легкий​

​ в конкретный отчет​Private Sub KillTheForm()​

​Нажмите кнопку​ есть, макрос при​Private Sub Worksheet_Activate()​ во время запуска​ содержит листы, стандартный​

​ пользователя)AppDataMicrosoftExcelXLSTART.​​.​ вставьте следующий код:​ уделить пару секунд​Цитата​ и скобок​Разработчик​ обычным образом, как​ на кнопку сохранения​ способ его создать​ данные особым образом),​ Unload UserForm1 End​Image​ запуске проверяет ее​webley​ Excel.​ текст (например, заголовки​Если вы выполнили обновление​

Отмена открытия конкретной книги при запуске Excel

​В левой части​Private Sub Workbook_Open()​ и сообщить, помогла​

​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Где он там​А макрорекордер пишет​) нужно открыть окно​ любую стандарную функцию​ с дискеткой в​

Автоматическое открытие шаблона книги при запуске Excel

​ — это записать​ то логично хранить​ Sub​ и растяните на форме​ наличие, если есть,​: Сразу файл не​

​Alex4​ страниц, столбцов и​ с другой версии​Проекта VBA​’ Put your​ ли она вам,​ такое сказал? И​ открытие:​Immediate​ Excel, нажав кнопку​

​ левом верхнем углу​ рекордером какой-нибудь ненужный​

​ код внутри этого​

​Все. Можно закрывать редактор​ прямоугольник — в​ то выполняется и​

​: Цель: автоматически обновлять​ сток), формулы, макросы,​

​ Windows, путь может​разверните папку​ code here​ с помощью кнопок​ что по-твоему означает​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub OpenFile()​

​сочетанием клавиш​f​ на панели инструментов.​

​ бессмысленный макрос, но​ же файла. Без​ Visual Basic, сохранять​

​ него будет помещено​

​ стирает эту метку.​ лист у вас​

​ фильтр в таблице​ стили и другое​

​Проекта VBA​End Sub​

​ внизу страницы. Для​ строка: cn.Open sCon​

​Workbooks.Open Filename:=»C:путьКнига2.xls»​Ctrl+G​x​Дальше все просто. Любой​

​ указать в качестве​ вопросов.​

​ файл и пробовать​ фоновое изображение. Затем​ Все последующие разы​

​ один, скорее всего​ при открытии страницы​ форматирование, которое вы​

​Office 2013 — C:Program​для книги, а​Вставьте код записанные в​

​ удобства также приводим​

Отмена запуска автоматического макроса при запуске Excel

​End Sub​, ввести туда команду​в строке формул​ нужный вам макрос​ места для его​А если макрос должен​

​ закрыть-открыть книгу. ​ на панели инструментов​ макрос проверяет метку​ имеется ввиду открытие​

Автозапуск макроса при открытии книги

​Имеется макрос на​​ собираетесь постоянно использовать​ FilesMicrosoft OfficeOffice 15XLSTART​ затем дважды щелкните​
​ подпрограмме между строками​ ссылку на оригинал​
​ фразой «закрытая книга»​Цитата​? Application.StartupPath​
​ и выбрав функцию​ (т.е. кусок кода,​ хранения Личную Книгу​ быть относительно универсален​
​При открытии книги Excel​Properties​ — ее нет​

​ книги.​​ применение фильтра​ в шаблоне.​Office 2013 C2R —​

​ модуль​​Sub​ (на английском языке).​ подразумевалось, скорее всего,​(ek09)200?’200px’:»+(this.scrollHeight+5)+’px’);»>нужно поработать макросом​и нажать на​ в окне​ начинающийся на​ — тогда Excel​ и нужен в​ выполняет процедуру​(если у вас​ — и не​В модуль книги:​Задача: запустить макрос​
​Настройки, которые можно сохранить​ C:Program FilesMicrosoft Office​
​ЭтаКнига​и​Макрос, записанный может потребоваться​ «не открытая в​ в зарытой книгеЭто​

Выполнение макроса при открытии (активации) листа

​Enter​​Мастера Функций​Sub​
​ будет вынужден автоматически​ любой книге Excel​Workbook_Open​
​ ее не видно,​ выполняется дальше.​Private Sub Workbook_Open()​

​ автоматически при открытии​
​ в шаблоне:​
​ 15rootOffice 15XLSTART​.​
​End Sub​

​ автоматически выполняются при​
​ Excel». Так что,​ невозможно. Для того​

​:​​в категории​и заканчивающийся​
​ ее для вас​

​ — как, например,​​из модуля​ то выберите в​Можно в коде​Sheets(1).Activate​ книги​форматирование ячеек и листа;​
​Примечание:​
​В открывшейся в правой​
​.​
​ открытии конкретной книги.​
​ с этой точки​ что бы что-то​
​Полученный путь можно скопировать​

​Определенные пользователем (User Defined)​​End Sub​
​ создать. Для этого:​
​ макрос для конвертирования​ЭтаКнига​ меню​ макроса после выполнения​
​Range(«J1»).Select​Погуглилил — получилось​форматирование страниц и настройки​ Если книга или​ части окна модуля​Закройте​ Пример использует следующую​ зрения, доступ через​ сделать с закрытой​ и вставить в​:​) можно смело копировать​
​Откройте вкладку​ формул в значения?​. Эта процедура отображает​
​View — Properties​ стереть этот же​

Выполнение макроса один раз при открытии книги excel (Макросы/Sub)

​Selection.AutoFilter Field:=1, Criteria1:=»НА​​ вот что, но​
​ области печати для​ шаблон содержит макрос,​ вставьте следующий код:​Редактор Visual Basic​ процедуру для показано,​
​ DAO/ADO/ODBC — это​ книгой — её​
​ верхнюю строку окна​

​Примеры таких функций можно​​ и вставлять либо​ ​Разработчик (Developer)​
​ Не копировать же​ на экране нашу​) задайте выберите файл​
​ код​
​ ПЕЧАТЬ»​
​ это не запускается​ ​ каждого листа;​

​ который автоматически запускается​​Private Sub Workbook_Open()​(не нужно ничего​ как это работает.​ возможность изменить данные.​ надо открыть. Правда​ Проводника в Windows​ в больших количествах​ в​. Если вкладки​ его код на​ форму-заставку. При отображении​ картинки в поле​Можно ставить метку,​End Sub​
​ автоматически. Как запустить?​стили ячеек;​ при открытии книги,​’ Put your​
​ сохранять).​ Можно также запустить​ Как мы помним,​ сделать это можно​
​ и нажать​ найти в интернете​
​Module1​

​Разработчик​​ Visual Basic каждый​ формы запускается процедура​

Заставка при открытии книги Excel

​Picture​ но не на​openid.mail.ru/mail/vlad3622340​Sub Workbook_Open() Sheets(«таблица»).Range(«B5»).AutoFilter​количество и тип страниц​

​ например Auto_Open, макрос​ code here​Сохранение книги в виде​ макрос автоматически при​

Шаг 1. Создаем экранную форму

​ наличие на компьютере-клиенте​ и незаметно, но​Enter​ или здесь же​, либо в отдельный​​не видно, то​ раз в каждую​UserForm_Activate​:​ листе, а в​​: Спасибо большое, Webley!​ Field:=2, Criteria1:=»<>0″ End​​ в книге;​​ будет по умолчанию​​End Sub​​книги Excel с поддержкой​ запуске Excel.​ самого Excel при​​ всё-таки придётся​​- и мы​ на сайте (сумма​ модуль, добавив его​ ее можно включить​ книгу? Кроме того,​​, которая с задержкой​​Возможно, придется немного изменить​ свойствах, например.​Sub Worksheet_Activate() работает!​ SubСпасибо!​​защищенные и скрытые области​​ запускаться при запуске​

​Вставьте код записанные в​​ макросов (* xlsm)​​Windows macOS ​ этом совершенно необязательно​Hugo​ увидим папку с​ прописью, приблизительный текстовый​​ предварительно через меню​​ в настройках через​ рано или поздно,​ в 5 секунд​ размер формы, чтобы​​Можно создавать специальный​​А я где-то​LVL​​ книги. Вы можете​​ Excel.​

​ подпрограмме между строками​и закройте ее.​Прежде чем начать, убедитесь,​Hugo​: Сергей, R Dmitry​ нашим файлом Личной​​ поиск, ВПР 2.0,​​Insert — Module​​Файл — Параметры -​

​ почти любой пользователь​ запускает макрос​ изображение уместилось полностью.​ проверочный файл​ вычитал, что Worksheet_Open​​: поместить этот код​​ скрыть листы, столбцы​​Если вы сохранили автоматически​​Sub​

​При открытии книги, код,​ что отображаются вкладки​

Шаг 2. Добавляем управляющий код

​: Сергей, ну в​ сказал, что можно​ Книги Макросов:​​ конвертация кириллицы в​​. Хранить все макросы​ Настройка ленты (Home​

​ приходит к мысли,​KillTheForm​ Чтобы написать на​Можно . ​

​ и с этим​​ в модуль книги​​ и строки, чтобы​ запускаемую книгу в​и​ добавленных на процедуры​ «​​ общем конечно «не​​Тут: http://www.planetaexcel.ru/forum. D=28979 в​И несколько практических нюансов​

​ транслит и т.п.)​ в одном модуле​

​ — Options -​ что неплохо было​​, который убирает форму​​ форме текст, можно​Dan116​

​ мучился.​ (ЭтаКнига)​ предотвратить изменения в​

​ другом месте, выполните​End Sub​Workbook_Open​Разработчик​

Как это работает?

​ притрагиваясь» к файлу​ конце.​​ вдогон:​​Если вы будете использовать​​ или раскладывать по​​ Customize the Ribbon)​ бы сложить все​ с экрана.​ использовать элемент управления​​: всем спасибо за​​Это в примере​alexthegreat​ ячейках;​​ следующее:​​.​будет выполняться автоматически.​

Как использовать Личную Книгу Макросов

​» на ленте.​ в нём ничего​Вообще вся тема​при использовании Личной Книги​ Личную Книгу Макросов,​ разным — исключительно​.​ макросы в одну​Если вы еще не​Label​ идеи!​ лист один, а​: заходите в ВБА,​

​повторяемый текст, например подписи​выберите Файл > Параметры​Закройте​Прежде чем начать, убедитесь,​ Подробнее читайте вкладку​ изменить нельзя. Ну​ в тему, без​ Макросов Excel будет​

​ то рано или​ вопрос вкуса. Выглядеть​На вкладке​ коробку, т.е. иметь​ знакомы с макросами​с панели​Этот прием позволит Вам​ в оригинале 6.​ там слева будут​ страниц, столбцов и​ Excel > Дополнительно;​Редактор Visual Basic​ что отображаются вкладки​ «Разработчик».​ разве что если​ воды.​ запускаться чуть медленнее,​

​ поздно у вас​ это должно примерно​Разработчик​ их всегда под​ в Excel, то​Toolbox.​ выводить на экран​ После открытия книги​ объекты, смотрите Объект​ строк;​

​в разделе Общие в​(не нужно ничего​ «​Чтобы использовать в приведенном​ только изменив адресацию​Serge_007​ особенно на слабых​ возникнет желание:​ так:​нажмите кнопку​ рукой. И может​ я вам даже​Ну, и наконец, выделив​ окно-заставку при открытии​ другие листы изменяются​ ЭТА КНИГА, щелкаете​данные, графические элементы, формулы,​ поле Каталог автозагрузки​ сохранять).​Разработчик​ ниже примере, откройте​ диска​: Я Диму конечно​ ПК​поделиться своими накопленными макросами​Запустить добавленный макрос можно​Запись макроса (Record Macro)​ быть даже запускать​

Как создать Личную Книгу Макросов

​ немного завидую. Ощущение​​ предварительно всю форму,​ ​ любой заданной книги​​ вручную и влияют​ по нему 2​ диаграммы и другую​ введите полный путь​​Сохранение книги в виде​​» на ленте.​ новую книгу.​И кстати только​ уважаю, но нет,​стоит периодически очищать Личную​ с другими пользователями​ в диалоговом окне,​. В открывшемся окне​ не вручную, а​ всемогущества и осознание​ можно задать текст​ в Excel.​ на этот лист.​ раза, открывается, далее​ информацию;​ к альтернативной папке​книги Excel с поддержкой​ Это можно сделать:​Важно:​

​ что проверил -​ не верю​ Книгу от информационного​скопировать и перенести Личную​ вызываемом с помощью​ выберите Личную книгу​ сочетаниями клавиш? И​ того, что ваш​ в строке заголовка,​Заставка появляется сразу после​ И вот после​ наверху будут 2​настройки проверки данных;​ автозагрузки.​ макросов (* xlsm)​В меню выберите команду​

  1. ​ Код VBA не может​​ работают оба варианта​​Меня Сергей KukIp​​ мусора, старых и​​ Книгу на другой​ кнопки​ макросов (Personal Macro​​ вот тут может​ Microsoft Excel можно​ используя свойство​ открытия файла и​​ его открытия (АКТИВАЦИИ),​
  2. ​ выпадающих списка слева​​макросы, гиперссылки и элементы​​Примечание:​​и закройте ее.​​Excel​ быть отменено, поэтому​ SQL/ADO. И добавляет,​ на программерс убедил​ ненужных макросов и​ компьютер​​Макросы (Macros)​​ Workbook) как место​
  3. ​ здорово помочь Личная​​ прокачивать почти до​​Caption​​ автоматически исчезает через​

​ должно сразу отобразиться​ выбираете workbook справа​​ ActiveX для форм;​​ Так как Excel​При открытии книги, код,​​>​​ убедитесь, что для​ и обновляет.​ (к сожалению не​ т.п.​​сделать ее резервную копию​​на вкладке​ для хранения записанного​​ Книга Макросов (Personal​​ бесконечности, которые придут​в панели​ несколько секунд.​​ то, что нужно​​ Open и туда​параметры вычислений в книге​ будет пытаться открыть​ добавленных на процедуры​

​предпочтения. ​ тестирования кода на​ek09​ могу найти ссылку,​у корпоративных пользователей бывают​Для этого нужно будет​Разработчик​ кода и нажмите​

Как использовать Личную Книгу Макросов

​ Macro Workbook).​ к вам после​Properties​Откройте редактор Visual Basic​​ печатать.​​ вставляете свой макрос​​ и представлений окон.​​ каждый файл в​Workbook_Open​>​​ пустую книгу или​​: Спасибо за помощь​ это давно было)​ иногда сложности с​​ найти файл PERSONAL.XLSB​​:​OK​На самом деле,​ знакомства с макросами​:​ — в старых​Так что нужно​

​ БЕЗ НАЗВАНИЯ без​Чтобы создать шаблон:​ альтернативной папке автозагрузки,​будет выполняться автоматически.​​ленты и панели инструментов​​ копию существующей книги.​​ всем ! Какая​​Для того что​

​ использованием Личной Книги,​ на диске вашего​​В этом же окне,​​:​Личная Книга Макросов​ — приятные чувства.​В итоге у вас должно​ версиях Excel это​ именно в модуль​ строки sub и​выберите Файл > Сохранить​

​ укажите папку, в​Если вы постоянно используете​.​​ Если код не​ ​ то интересная штука​ бы прочитать последовательность​​ т.к. это файл​ компьютера. По умолчанию,​ нажав кнопку​​Остановите запись кнопкой​​(ЛКМ)​​Однако, эта статья для​​ получиться нечто подобное:​​ можно сделать через​​ листа.​

​ end sub​ как;​ которой находятся только​ приложение Excel для​В категории​ вас устраивают, закройте​ получается . ​ байт необходимо открыть​​ в системной скрытой​​ этот файл хранится​​Параметры (Options)​Остановить запись (Stop Recording)​- это обычный​​ тех, кто уже​​Щелкните правой кнопкой мыши​​ меню​​Вопрос решён. Ещё​

​Если правильно понял​в поле Тип файла​ те файлы, которые​ работы с одной​настроить ленту​ книгу без сохранения​в открытой книге​ контейнер их содержащий​ папке​

Где хранится Личная Книга Макросов

​ в специальной папке​, можно задать сочетание​на вкладке​ файл Excel в​ «познал мощь» и​

  • ​ по форме и​Сервис — Макрос -​
  • ​ раз благодарю!​ Ваш вопрос​ выберите пункт Шаблон;​
  • ​ можно открыть с​

​ и той же​в списке​ изменений.​ ссылка на ячейку​ (т.е. файл). На​ek09​ автозапуска Excel, которая​ клавиш для быстрого​Разработчик (Developer)​ формате двоичной книги​ начал использовать макросы​ выберите​ Редактор Visual Basic​Dan116​А вообще приложите​в поле Сохранить в​ помощью Excel. Если​ книгой или создаете​Основные вкладки​Откройте вкладку​ в закрытой книге​

  • ​ кластере HDD -​
  • ​: Здравствуйте​
  • ​ называется XLSTART. Так​

​ запуска макроса с​Проверить результат можно, нажав​ (​ (чужие или написанные​View Code​ (Tools — Macro​: Добрый день.​​ файл и Вам​​ укажите папку, в​​ книга с одним​​ новые книги на​​установите флажок​​Разработчик​​ обновляется а макросом​​ это просто последовательность​​как макросом книги​​ что все, что​​ клавиатуры. Будьте внимательны:​​ на кнопку​

​Personal.xlsb​ самостоятельно — не​.В открывшийся модуль формы​ — Visual Basic​Стоит задача, выполнить​​ сделают, потом посмотрите​​ которую нужно сохранить​ и тем же​ основе одного шаблона,​Разработчик​

​и щелкните элемент​ нет ))))​

  • ​ байт, не имеющая​ 1 открыть закрытую​ нужно — это​ сочетания клавиш для​Visual Basic​
  • ​), который автоматически в​ важно) в своей​ добавьте такой код:​ Editor)​ макрос один раз​
  • ​ как сделали. думаю​ шаблон;​ именем находится и​ настройте Excel таким​.​Visual Basic​

как макросом книги 1 открыть закрытую книгу 2 Excel . (Макросы Sub)

​Serge_007​​ привязки к конкретному​
​ книгу 2 Excel​ добраться до этой​ макросов различают раскладку​там же на​
​ скрытом режиме открывается​ повседневной работе.​Private Sub UserForm_Activate()​, а в новых​ при открытии книги,​ будет проще..​в поле Имя файла​ в папке XLSTART,​
​ образом, чтобы ваша​Нажмите кнопку​.​: Она обновляется только​
​ файлу. Как-то так. ​ . ​ папки на нашем​ (русская или английская)​
​ вкладке​ одновременно с Microsoft​

​Макрос — это код​​ Application.OnTime Now +​ кнопкой​ при последующих открытиях​
​openid.mail.ru/mail/vlad3622340​ сделайте следующее:​
​ и в альтернативной​
​ книга или шаблон​
​Сохранить​

​В левой части​​ в том случае,​Hugo​В идеале нужно​ ПК. И вот​ и регистр.​Разработчик​ Excel. Т.е. когда​ (несколько строк) на​ TimeValue(«00:00:05»), «KillTheForm» End​Visual Basic​

​ макрос не выполнять.​​: Доброго дня всем​чтобы создать шаблон книги​
​ папке автозагрузки, будет​ открывались при его​
​.​Проекта VBA​ если Вы ОТКРЫЛИ​

​: Я сам не​​ поработать макросом в​ тут возникает небольшая​Кроме обычных макросов-процедур в​
​- в открывшемся​ вы просто запускаете​ языке Visual Basic,​ Sub​на вкладке​
​Как можно реализовать​ обитателям Планеты Excel!​ по умолчанию, введите​ открываться файл из​ запуске.​Чтобы использовать в приведенном​разверните папку​ закрытую книгу и​ проверял — и​ зарытой книге а​

​ сложность, потому что​​ Личной Книге можно​ окне редактора в​ Excel или открываете​ которые заставляют Excel​Откройте модуль​Разработчик (Developer)​
​ наиболее простым способом?​Подскажите пожалуйста, как​ Книга;​

​ папки XLSTART.​​Чтобы открывать одну и​ ниже примере, откройте​Проекта VBA​ внесли в неё​
​ в теме не​
​ у меня почему​

​ местоположение этой папки​​ хранить и​

​ левом верхнем углу​​ любой файл с​​ сделать то, что​​ЭтаКнига​и создайте новую​Спасибо!​ запустить код макроса​
​чтобы создать шаблон листа​Чтобы книга не открывалась​ ту же книгу​ новую книгу.​для книги, а​ изменения, после чего​ отписались как решилось. ​ то макрос книги​ зависит от версии​пользовательские макро-функции​ на панели​ диска, на самом​ вам нужно: обработать​

​в левом верхнем​​ форму, используя команду​Nic70y​ при открытии листа?​ по умолчанию, введите​ автоматически при запуске​ при запуске Excel,​Важно:​ затем дважды щелкните​
​ она опять стала​ Так что не​ 1 не работает​ Windows и Office​(UDF = User Defined​

​Project — VBA Project​​ деле открываются два​ данные, сформировать отчет,​ углу (если ее​ меню​
​:​Вставляю это в​ Лист;​ Excel:​ в меню Файл​

​ Код VBA не может​​ модуль​ закрытой​ знаю.​ в закрытой книге​ и может различаться.​ Function)​должен появиться наш​ файла — ваш​

Источник

Узнай цену своей работы

Формулировка задачи:

здравствуйте
мне нужно создать программу Auto_Open
которая при открытии книги Excel автоматически будет запускать форму.

Код к задаче: «Автоматический запуск формы при открытии книги»

textual

Листинг программы

Private Sub Workbook_Open()
 
  Form1.Show
  
End Sub

Полезно ли:

12   голосов , оценка 4.167 из 5

Похожие ответы

  1. Автоматический запуск макроса при открытии любой книги, которая соответствует конкретным условиям
  2. Excel VBA. Выбор вкладки главного меню при открытии книги
  3. Макрос Excel для автоматической сортировки при открытие документа
  4. Запуска макроса для выделения при открытии документа
  5. Файл с автоматическим запуском формы после сохранения больше не запускается и вылетает ексель
  6. Запуск макроса при открытии конкретного файла
  7. Какое свойство задать RowSourse чтобы при открытии формы список сразу был открыт
  8. Запуск макроса,при другом активном листе
  9. При открытии документа показать окно с текстом
  10. Ошибка «несовпадение типа» при вызове процедуры
  11. Запуск процедуры SQL Server через VBA

Понравилась статья? Поделить с друзьями:

А вот еще интересные статьи:

  • Автозапуск макроса при открытии word
  • Автозапуск макроса при открытии excel
  • Автозапуск макроса для excel
  • Автозапуск userform в excel
  • Автозапуск excel по времени

  • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии