Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
VBA. Переход режима отображения Userform в vbModeless
 
#1
09.12.2011 13:04:28
Здравствуйте. Всех с наступающими праздниками!  
Вопрос: При загрузке книги происходит запуск Userform (userform1.show). При работе с формой открываются другие книги, подгружаются данные из них, потом они закрываются. Userform не закрывается. Через некоторое время Userform оказывается в режиме vbModeless, т.е. становятся доступными для редактирования листы. Возможно ли от этого избавиться? Или при загрузке других книг выгружать и загружать форму заново?  
Спасибо.
 
 
 
#2
09.12.2011 13:31:18
Непослушная у Вас форма, сама модальность меняет... Или все же не сама?
 
 
 
#3
09.12.2011 13:34:56
Именно сама :) Загружается только один раз при активации книги, и висит до окончания момента работы с книгой.
 
 
 
#4
09.12.2011 13:36:52
Привет! Никогда с таким не сталкивался...
 
 
 
#5
09.12.2011 13:55:03
а точно в одном экземпляре приложения работаете?
Живи и дай жить..
 
 
 
#6
09.12.2011 14:06:03
Экземпляр приложения один, это точно...
 
 
 
#7
09.12.2011 17:04:37
А форму запускаете так UserForm1.Show vbModal или так UserForm1.Show ?
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#8
09.12.2011 17:09:40
Форму запускаю Userform1.show  
А есть разница между Userform1.show и Userform1.show.vbModal?
 
 
 
#9
09.12.2011 18:47:05
По идее, если в настройках форму стоит по умолчанию "модальный режим", то vbModal не обязательно. Но все равно попробуйте.  
 
А что Вы подразумеваете под  
>"При работе с формой открываются другие книги, подгружаются данные из них, потом они закрываются"?  
 
Какие манипуляции Вы проделываете с книгами? По возможности приложите пример в файле.
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#10
10.12.2011 19:36:17
Еще раз здравствуйте.  
Вот небольшой примерчик.  
После загрузки формы выбираю "Подгрузить данные" - потом либо любой файл, либо отмена, - форма переходит в режим vbModeless  
Хотелось бы уточнить в чем дело.
 
 
 
#11
10.12.2011 19:50:06
Дмитрий, подскажите, пожалуйста, в чем может быть тогда проблема?  
Excel 2010
 
 
 
#12
10.12.2011 19:52:42
Попыталась в 2003-м (portable), ситуация такая-же, переходит в модальный.  
Получается, в настройках дело?  
(на разных компьютерах происходит одно и то же).
 
 
 
#13
10.12.2011 19:56:11
У меня на 2003 переходит в модальный.
 
 
 
#14
10.12.2011 20:09:03
Неправильно выразился - форма дает возможность работать с листом.
 
 
 
#15
10.12.2011 20:19:19
{quote}{login=The_Prist}{date=10.12.2011 07:49}{thema=}{post}Не подтверждаю. И подгрузил, и Отмена нажал - результат один - форма остается в модальном режиме и не дает работать с листом книги напрямую.{/post}{/quote}А у меня - как у Дианы - после нажатия на кнопочку могу работать с листом. Прогонял пошагово - смена режима происходит после выполнения фрагмента FilesToOpen = ...
 
 
 
#16
10.12.2011 20:21:49
Забыл написать - проверялось на 2003.
 
 
 
#17
10.12.2011 20:24:29
2007 - аналогично.
 
 
 
#18
10.12.2011 20:30:28
Я так понимаю, что файловый диалог переводит форму в немодальный режим. Попробуйте так (код в модуле формы):  
 
Private Path As Variant  
 
Private Sub CommandButton1_Click()  
Dim r1 As Range, r2 As Range  
Me.Hide  
Path = Application.GetOpenFilename("Excel Files (*.xls),*.xls", , "Выберите файл базы", , False)  
Me.Show vbModal  
End Sub  
 
Private Sub UserForm_Activate()  
If VarType(Path) = vbString Then  
   With Workbooks.Open(Path)  
       ThisWorkbook.Sheets("Лист2").Range("A1:A5000").Value = .ActiveSheet.Range("A1:A5000").Value  
       ThisWorkbook.Sheets("Лист2").Visible = 2  
       .Close False  
   End With  
End If  
Path = Empty  
End Sub  
 
Private Sub UserForm_Terminate(): Path = Empty: End Sub
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#19
10.12.2011 20:34:30
{quote}{login=The_Prist}{date=10.12.2011 08:28}{thema=}{post} проверьте, пожалуйста.{/post}{/quote}Проверил - проблемы нет: лист недоступен. Диана, с Вас чекушка.
 
 
 
#20
10.12.2011 20:46:24
Всем привет)  
Дмитрий, а в чем догадка?)
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#21
10.12.2011 20:47:32
{quote}{login=The_Prist}{date=10.12.2011 08:38}{thema=}{post}Не затруднит проверить еще одну догадку?{/post}{/quote}Проверил - результат отрицательный: лист доступен.
 
 
 
#22
10.12.2011 20:52:00
в том, что код должен быть в модуле?)
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#23
10.12.2011 21:07:46
Дима, первый вариант нормально, во втором работа с листом возможна.
 
 
 
#24
10.12.2011 21:22:04
Почему при активной форме она переводится в модальный, а при скрытой (форма ведь не выгружена) нет?  
Вернее, с переводом в модальный понятно - как у двух книг с включенными и отключенными итерациями. Или я ошибаюсь?  
Почему такое не происходит во втором случае?
 
 
 
#25
10.12.2011 22:15:25
Дмитрий! Спасибо огромнейшее Вам и всем-всем за техническую помощь. Действительно, теперь заработало :)
 
 
 
#26
11.12.2011 14:42:21
Добрый день!  
Применила Me.Show: Exit sub к своей книге, получаю ошибку.  
В чем теоретически может быть проблема, хоть с чего начать ее искать?  
Спасибо :)
 
 
 
#27
11.12.2011 14:46:06
Лучще всего с файла Excel, а не с картинки.
 
 
 
#28
12.12.2011 10:24:18
Здравствуйте.  
Дмитрий, спасибо, действительно, дело было именно в этом.  
Извиняюсь за нескромность, а насколько проблематично сделать модальным окно выбора файлов? :)  
Спасибо.
 
 
 
#29
12.12.2011 10:38:40
В свойствах (Properties) ShowModal.
 
 
 
#30
12.12.2011 10:53:16
И где же найти эти свойства для указанного окна?
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх