ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
25 сообщений из 33, страница 1 из 2
  1  все
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35267164
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Есть большая форма в экселе и бухгалтера все время тыкают в панель инструментов промахиваясь мимо кнопок "назад" и "далее" и запускают всякие программы, а то и на ПУСК нажимают, хорошо хоть процедуру подготовки к 3 мировой войне не начинают...
Приходится перед пуском программы вручную отключать галку "отображать панель задач поверх остальных окон"- в свойствах панели задач.

Как автоматизировать процесс, чтобы при инициализации формы - панель задач "автоматически скрывалась за формой", а при закрытии формы, настройки панели задач восстанавливались?
...
Рейтинг: 0 / 0
20.04.2008, 19:59
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269889
alex_gearbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_gearbox
Гость
Быть может использовать WinAPI ?
...
Рейтинг: 0 / 0
21.04.2008, 22:49
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269923
alex_gearbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_gearbox
Гость
Для того, чтобы скрыть панель задач достаточно выполнить макрос HiddenTaskBar(), а за отображение панели задач отвечает макрос VisibleTaskBar()

Вариант I.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Declare Function FindWindow _ 
        Lib "user32.dll" Alias "FindWindowA" ( _ 
        ByVal lpClassName As String, _ 
        ByVal lpWindowName As String) As Long 
Private Declare Function ShowWindow _ 
        Lib "user32.dll" ( _ 
        ByVal hWnd As Long, _ 
        ByVal nCmdShow As Long) As Long 

Private Sub HiddenTaskBar() 
    ShowWindow FindWindow("Shell_TrayWnd", vbNullString),  0 & 
End Sub 

Private Sub VisibleTaskBar() 
    ShowWindow FindWindow("Shell_TrayWnd", vbNullString),  4 & '1& 
End Sub

Вариант II.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Declare Function FindWindow _ 
        Lib "user32.dll" Alias "FindWindowA" ( _ 
        ByVal lpClassName As String, _ 
        ByVal lpWindowName As String) As Long 
Private Declare Function SetWindowPos _ 
        Lib "user32.dll" ( _ 
        ByVal hWnd As Long, _ 
        ByVal hWndInsertAfter As Long, _ 
        ByVal x As Long, _ 
        ByVal y As Long, _ 
        ByVal cx As Long, _ 
        ByVal cy As Long, _ 
        ByVal wFlags As Long) As Long 

Private Sub HiddenTaskBar() 
    ihWnd& = FindWindow("Shell_TrayWnd", vbNullString) 
    SetWindowPos ihWnd&,  0 &,  0 &,  0 &,  0 &,  0 &,  128 & 
End Sub 

Private Sub VisibleTaskBar() 
    ihWnd& = FindWindow("Shell_TrayWnd", vbNullString) 
    SetWindowPos ihWnd&,  0 &,  0 &,  0 &,  0 &,  0 &,  64 & 
End Sub

(c) www.msoffice.nm.ru
...
Рейтинг: 0 / 0
21.04.2008, 23:25
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269942
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Вам ничто не поможет кроме смены бухгалтера.
...
Рейтинг: 0 / 0
21.04.2008, 23:50
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269948
alex_gearbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_gearbox
Гость
White OwlВам ничто не поможет кроме смены бухгалтера.
Я для себя что-ли примеры работающих функций цитировал? (проверял на Windows XP, Office 2003)
...
Рейтинг: 0 / 0
21.04.2008, 23:59
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269963
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
alex_gearbox White OwlВам ничто не поможет кроме смены бухгалтера.
Я для себя что-ли примеры работающих функций цитировал? (проверял на Windows XP, Office 2003)От криворукого юзера программная защита невозможна в принципе. Он всегда найдет куда мышой ткнуть.
...
Рейтинг: 0 / 0
22.04.2008, 00:20
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269967
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
alex_gearbox White OwlВам ничто не поможет кроме смены бухгалтера.
Я для себя что-ли примеры работающих функций цитировал? (проверял на Windows XP, Office 2003)
))))
написать все что угодно можно)
Но с White Owl я полностью в данной ситуации согласен!
...
Рейтинг: 0 / 0
22.04.2008, 00:22
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269984
alex_gearbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_gearbox
Гость
:-) Что и сказать...

Но хоть как-то программный способ показал.
Проблема (помимо "криворукости" юзера) может быть и в расположении элементов управления на "большой форме в экселе". Пользователь может не знает, что к чему. Не хватает интуитивности восприятия?
...
Рейтинг: 0 / 0
22.04.2008, 00:38
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269995
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
alex_gearbox:-) Что и сказать...

Но хоть как-то программный способ показал.
Проблема (помимо "криворукости" юзера) может быть и в расположении элементов управления на "большой форме в экселе". Пользователь может не знает, что к чему. Не хватает интуитивности восприятия?
...тогда уже уважаемый, alex_gearbox, нужно продумывать (простите за грубость) Интерфейс! - штоп не сто кнопок на экране появлялось.... а лишь интуитивные две: "согласна" - "не согласна".
Думаю так.
...
Рейтинг: 0 / 0
22.04.2008, 00:47
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269999
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
alex_gearbox,
не в обиду... - вопрос оказался опять политический.
Решать его исходно нужно решать технически - решайте.
Каюсь, что нафлудил. Простите.

Но такими темпами нужно прийти, штоп мыши шевелились в нужную сторону бухгалтерами, ИМХО....
...
Рейтинг: 0 / 0
22.04.2008, 00:57
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35270002
alex_gearbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_gearbox
Гость
Согласен, что продумывать интерфейс (количество, размеры, правильность надписей, подсказки и т.д. и т.п.) надо. Споры в этом отношении излишни.

Dan-K задавал вопрос: "Как автоматизировать процесс, чтобы при инициализации формы - панель задач "автоматически скрывалась за формой", а при закрытии формы, настройки панели задач восстанавливались?"
Вариант предложен и изложен выше.
...
Рейтинг: 0 / 0
22.04.2008, 01:02
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35272186
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Большое спасибо, сейчас пробовать буду.
А бухгалтеров все равно надо беречь, хоть я и ругаюсь на них...
...
Рейтинг: 0 / 0
22.04.2008, 17:34
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35333356
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
ВСЕ!!! ЛОВИТЕ ФАЙЛ
...
Рейтинг: 0 / 0
25.05.2008, 01:25
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35333822
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Как тебе такой вариант?

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
25.05.2008, 17:33
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35333911
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Сразу не пойму, но слегонца офигел. Везде читал что жуткий головняк, только за бешенные деньги и т.п.
Большое спасибо.

А где запрятана "синяя полоска с названием" (забыл как называется) сверху и как ее закрыть при гипотетическом сбое?
Есть ли метод автоматически изменить разметы и шрифты кнопок, комбобоксов?
Хотя это конечно наглость, но вдруг кто-нибудь оч.умный просчитал зависимости для размеров комбобоксов (текстбоксов...) и шрифтов от разрешения экрана и выставленного размера шрифта...
...
Рейтинг: 0 / 0
25.05.2008, 19:32
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35333939
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Dan-K1)А где запрятана "синяя полоска с названием" (забыл как называется) сверху и как ее закрыть при гипотетическом сбое?
2)Есть ли метод автоматически изменить разметы и шрифты кнопок, комбобоксов?

1) синяя полоска с названием - это TitleBar. Она прячется функцией из модуля modHideTitleBar
2) про это я уже говорил в одном из твоих топиков: проперть Zoom
...
Рейтинг: 0 / 0
25.05.2008, 20:12
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35333964
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Спасибо, у нас на урале уже 22.26
разбираться буду завтра...

Научиться VBA можно только одним способом - ради развлечения прорешивая задачи топиков на sql.ru.*********** Карл Маркс. Полное собрание сочинений. т12. Стр.235
...
Рейтинг: 0 / 0
25.05.2008, 20:37
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35346616
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Спасибо KL (XL) !!! ОТЛИЧНАЯ ВЕЩЬ. Разобрался пока на 80% но уже использую, это лучше чем вариант с которым я бился последнее время.
заменил TitleBar на Label, растянул его на ширину формы (размер формы 517х640) под максимальное разрешение 19'' монитора и заголовок формы ввел туда. В результате получилась ничем не сдвигаемая форма, а внешний вид как у обычной.
Кстати посмотрите если можно проверку паролей менеджеров. Как ее организовать без использования формулы на листе?
...
Рейтинг: 0 / 0
30.05.2008, 19:08
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35346817
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Dan-KКстати посмотрите если можно проверку паролей менеджеров. Как ее организовать без использования формулы на листе?
С паролями в Excel я бы не затевался - при желании любой взломает любую твою защиту и узнает все пароли за считанные секунды (Инет кишит советами по этому поводу).
...
Рейтинг: 0 / 0
30.05.2008, 23:02
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35347298
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Это не страшные пароли. Это просто способ правильно раскидать информацию о рабочем времени и действиях менеджеров в удаленном офисе. Менеджер сам не захочет входить под чужим паролем - свое учитываемое рабочее время (зарплату) подарит другому...
Так что если можно гляньте...
Заранее благодарен.
...
Рейтинг: 0 / 0
31.05.2008, 19:56
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35347304
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
ПРОИГРЫВАТЕЛЬ Windows Media находящийся на Панели задач в свернутом виде выдает в начале каждой песни маленькое окошко с названием песни.
Когда форма скрывает панель задач, то это окошко продолжает всплывать в начале каждой песни поверх формы, видимо то же самое должно происходить и с сервисными сообщениями от различных программ (принтеров). Или это глюк 2007 ?


Научиться VBA можно только одним способом - ради развлечения прорешивая задачи топиков на sql.ru.*********** Карл Маркс. Полное собрание сочинений. т12. Стр.235
...
Рейтинг: 0 / 0
31.05.2008, 20:08
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35356542
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
KL (XL)Как тебе такой вариант?

KL
[MVP - Microsoft Excel]
Кирилл, поле запуска этого файла, у меня при сворачивании всех окон через значек в панели быстрого запуска исчезает панель задач...
Как это можно исправить?
...
Рейтинг: 0 / 0
05.06.2008, 13:38
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37191981
Глюкман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глюкман
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Declare Function FindWindow _
        Lib "user32.dll" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow _
        Lib "user32.dll" ( _
        ByVal hWnd As Long, _
        ByVal nCmdShow As Long) As Long
Sub HiddenTaskBar()
'закрытие панели управления
    ShowWindow FindWindow("Shell_TrayWnd", vbNullString),  0 &
End Sub
Sub VisibleTaskBar()
'открытие панели управления
    ShowWindow FindWindow("Shell_TrayWnd", vbNullString),  4 & '1&
End Sub
Работает очень хорошо, т.е. окно закрывается полностью.
А как скрыть только кнопку Пуск на нём расположенную?
...
Рейтинг: 0 / 0
31.03.2011, 11:51
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37192018
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
и ещё хотел спросить, как эти две процедуры повесить на одну кнопку: Открыть\Закрыть панель управления, то есть сначала надо проверить, каков скрипт?
...
Рейтинг: 0 / 0
31.03.2011, 12:06
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37192033
Глюкман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глюкман
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Declare Function FindWindowEx Lib "user32" _
                Alias "FindWindowExA" _
               (ByVal hWnd1 As Long, _
                ByVal hWnd2 As Long, _
                ByVal lpsz1 As String, _
                ByVal lpsz2 As String) As Long

Private Declare Function FindWindow _
        Lib "user32.dll" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow _
        Lib "user32.dll" ( _
        ByVal hWnd As Long, _
        ByVal nCmdShow As Long) As Long
Sub HiddenTaskBar()
    aClock = FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString),  0 , "TrayNotifyWnd", vbNullString),  0 , "TrayClockWClass", vbNullString)
    ShowWindow aClock,  0 &
End Sub
Sub VisibleTaskBar()
    aClock = FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString),  0 , "TrayNotifyWnd", vbNullString),  0 , "TrayClockWClass", vbNullString)
    ShowWindow aClock,  4 &
End Sub
Так часы скрыть, а как кнопку???
...
Рейтинг: 0 / 0
31.03.2011, 12:11
| Ответить | Цитировать | Написать  
25 сообщений из 33, страница 1 из 2
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=134&tid=2177010]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 75ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 262ms
total:  448ms
созд. / загр.: 448ms
x
x
Закрыть


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