ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Открытие Excel формы
9 сообщений из 9, страница 1 из 1
Открытие Excel формы
    #38647652
igor171
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor171
Гость
Доброго дня, всем!

Задача: Имеется файл Excel, при нажатии на который, открывается форма для заполнения, при этом сам Excel скрывается:

На событие Open_Book вставляю код:
Код: vbnet
1.
2.
Form1.show
Application.Visible=False



Далее форма заполняется и нажимается кнопка после чего книга закрывается:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
if Workbooks.Count > 1 then
  Application.Visible=True
  Application.DisplayAlerts=False
  Workbooks("FileD.xlsx").Close
  Application.DisplayAlerts=True
else
  Application.DisplayAlerts=False
  Workbooks("FileD.xlsx").Close
  Application.DisplayAlerts=True
end if



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

как можно сделать так чтобы Excel не показывался после заполнения формы и нажатия на кнопку?
...
Рейтинг: 0 / 0
21.05.2014, 14:51
| Ответить | Цитировать | Написать  
Открытие Excel формы
    #38648143
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
igor171,

Предположу, что во-первых:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Option Explicit

Private Sub Workbook_Open()

Application.Visible = False
UserForm1.Show

End Sub



И во-вторых:
Код: vbnet
1.
2.
3.
4.
5.
6.
Private Sub CommandButton1_Click()

Unload Me
Application.Quit

End Sub
...
Рейтинг: 0 / 0
21.05.2014, 22:36
| Ответить | Цитировать | Написать  
Открытие Excel формы
    #38648596
igor171
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor171
Гость
1) первое предположили верно (прошу прощение что не написал)

2) вместо своего кода вставил ваш:

Код: vbnet
1.
2.
Unload Me
Application.Quit



Не помогло ... делаю следующее: открываю MS Word,создаю гиперссылку, указываю файл Excel с формой, после чего нажимаю на гиперссылку, результат следующий:

1)открывается форма, срабатывает код на открытии книги:

Код: vbnet
1.
2.
3.
4.
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub



2)заполняю форму и нажимаю на кнопку, срабатывает код:

Код: vbnet
1.
2.
3.
4.
Private Sub CommandButton1_Click()
Unload Me
Application.Quit
End Sub



Форма закрывается, но через 2 секунды появляется сообщение от MS Office открыть этот файл или нет?(файл может содержать вирусы ...) не могу понять почему оно появляется, ведь мы его уже открыли и закрыли ... почему открывается второй раз? можно ли это обойти
...
Рейтинг: 0 / 0
22.05.2014, 11:17
| Ответить | Цитировать | Написать  
Открытие Excel формы
    #38648626
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
igor171,

А не обратили внимания - файл не в режиме восстановления открывается? Т.к. Вы отключаете показ сообщений - вполне возможно, что Excel закрывается с ошибкой. А после этого он обязательно будет открываться заново и пытается восстановить последние файлы, которые были открыты.
...
Рейтинг: 0 / 0
22.05.2014, 11:30
| Ответить | Цитировать | Написать  
Открытие Excel формы
    #38648786
igor171
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor171
Гость
The_Prist, подскажи пож-ста а как тогда правильно закрывать файл Excel?

Пробовал:
1)Windows("").Close - появляется "ошибка Method Close for Object 'Window' failed"
2)Workbooks("").close и Application.Quit - результат открывается два раза ...

Поповоду открытия файлв в режиме восстановления ... как я могу это увидеть? (извините новичок) ... файл второй раз открывается как обычно, никаких сообщений нет, название такое же ...
...
Рейтинг: 0 / 0
22.05.2014, 12:28
| Ответить | Цитировать | Написать  
Открытие Excel формы
    #38648789
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
igor171,

Уберите из кода - Application.DisplayAlerts=False. Точнее - закомментируйте:
Код: vbnet
1.
'Application.DisplayAlerts=False


И посмотрите, что будет происходить - какие будут сообщения и т.д.
...
Рейтинг: 0 / 0
22.05.2014, 12:29
| Ответить | Цитировать | Написать  
Открытие Excel формы
    #38648839
igor171
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor171
Гость
Для понимания, на данный момент я вообще убрал данный код:

Код: vbnet
1.
2.
Application.DisplayAlerts=True
Application.DisplayAlerts=False



То есть на событие "нажатие кнопки" в конце у меня стоит только это:

Код: vbnet
1.
2.
Unload Me
Application.Quit



Сообщения следующие:
1) Нажал на гиперссылку появилось сообщение:

Извещение системы безопастности.

Это расположение может быть ненадежным.
Гиперссылки могут представлять опастность ...
Продолжить

Да Нет
2)нажимаем "Да", сразу появляется наша форма UserForm1, далее нажимаем кнопку на форме, появляется следующее сообщение:

Microsoft Office

Некторые файлы могут содеражть вирусы или другое опасное содержимое...

Открыть этот файл?


Зачем второй раз предлагается открыть файл? ведья его уже открывал ...
...
Рейтинг: 0 / 0
22.05.2014, 12:47
| Ответить | Цитировать | Написать  
Открытие Excel формы
    #38648857
igor171
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor171
Гость
Если я открываю Excel файл с формой напрямую (без ссылки), то форма появляется и при нажатии на кнопку закрывается. Сообщения о втором сохранении не поступает ... почему с ссылками по другому ...
...
Рейтинг: 0 / 0
22.05.2014, 12:56
| Ответить | Цитировать | Написать  
Открытие Excel формы
    #38648970
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
igor171,

тогда ясно. Попробуйте:
Файл-Параметры - Центр управления безопасностью-Параметры центра управления безопасностью. Надежные расположения. Добавьте туда папку с открываемыми файлами.

Дело в том, что первый раз файл открывается в режиме защищенного просмотра без возможности внесения изменений. Когда подтверждаете свое желание открыть файл со всем содержимым - он переоткрывается уже в нормальном режиме. Так устроена система безопасности в офисе.
...
Рейтинг: 0 / 0
22.05.2014, 13:41
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Открытие Excel формы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=59&tid=2174017]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 34ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 277ms
total:  412ms
созд. / загр.: 412ms
x
x
Закрыть


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