Спрятать в трее открытую Книгу

[valerij]

Мона ли, Спрятать в трее открытую Книгу(открыл Книгу - автоматом в трее) и закрывать ее, также через меню в трее или как то подобным способом?

[VictorM]

Спрятать в трее открытую Книгу(открыл Книгу - автоматом в трее)

Private Sub Workbook_Open()
    Application.WindowState = xlMinimized
End Sub

Application.WindowState = xlNormal 'развернуть

[valerij]

Сообщение от VictorM

Private Sub Workbook_Open()
    Application.WindowState = xlMinimized
End Sub

Application.WindowState = xlNormal 'развернуть

Это же не в трее, а просто свернуть и если, при открытии нескольких Книг, закрыть одну, откроется и эта, свёрнутая.

[VictorM]

ну так вообще ее тогда не показывать
ActiveWorkbook.Windows(1).Visible = False

[IgorGO]

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

[valerij]

А может через условия, как то

Private Sub Workbook_Open()
1:    Application.WindowState = xlMinimized
If не выполняется закрытие Книги Then GoTo 1
End Sub

Суть задачи, что бы один файл(yyy.xls), был свернут, и не разворачивался при закрытии других, .xls файлов.

Этот файл, yyy.xls, должен быть открытым, минут 40, потом его закрывают.
~ , так работает

Application.WindowState = xlMinimized
1:         n = n + 1
         If n < 1000000000 Then GoTo 1
         MsgBox n

[IgorGO]

а на человеческом языке можно сказать, что необходимо получить в итоге?

Application.WindowState = xlMinimized
свернет задачу в пиктограмму на линейку задач... и???
пользователь клацает по этой пиктограмме и окно открывается снова. какая цель ставилась? чего добились?


1: n = n + 1
If n < 1000000000 Then GoTo 1
MsgBox n
удивительная конструкция для организации паузы в работе макроса. запишу себе в библиотеку решений.

[valerij]

Сообщение от IgorGO

а на человеческом языке можно сказать, что необходимо получить в итоге?.

Я уже не знаю как объяснять, ну пробую еще раз, ....

Есть файл yyy.xls, при открытии ЕГО, ЕГО ЖЕ, свернули
Application.WindowState = xlMinimized
все, он(yyy.xls), свою задачу выполнил, но закрывать ЕГО(yyy.xls) еще нельзя, минут 40 или >, или <. Пользователь открывает другой файл .xls и работает с ним(с другим файлом), если он, пользователь, закроет другой файл .xls, то развернется ТОТ, свернутый, yyy.xls, пользователь может закрыть его, случайно, чё привидет, к другим последствиям.
Этот ЭТАП, понятен?

пользователь клацает по этой пиктограмме и окно открывается снова. какая цель ставилась? чего добились?

Пользователь, знает, когда нужно клацануть по этой пиктограмме и окно открывается снова и закрытие ЭТОГО файла(yyy.xls), сделает свою задачу. ВСЕ.
Цель - не дать пользователю, случайно закрыть файл(yyy.xls).

запишу себе в библиотеку решений

Игорь, спасибо

Или
Как при закрытии одной файла, сделать, что бы ни, разворачивался, свернутый файл

[IgorGO]

Есть файл yyy.xls, при открытии ЕГО, ЕГО ЖЕ, свернули
Application.WindowState = xlMinimized
все, он(yyy.xls), свою задачу выполнил, но закрывать ЕГО(yyy.xls) еще нельзя, минут 40

а что ты для этого сделал, чтобы его нельзя было закрыть? что мешает пользователю клацнуть по пиктограмме файла на панеле задач и закрыть его? что мешает это сделать? когда не нужный пользователю файл 40 минут мозит глаза на панеле задач?
почему бы не спрятать его, чтобы случайно не закрыл?

Я уже не знаю как объяснять

обьяснять надо так чтобы всем понятно было...

[Hugo121]

Можно например обрабатывать событие закрытия файла. Например, пока пользователь не отметил чекбокс на листе, закрытие не произойдёт. Или закрывать только после ответа на вопрос - сколько будет (125+369)/458*15
Или закрывать при нажатии на кнопку на листе, а не на крестик или иначе. Т.е. вообще по-ошибке не закроешь
Или периодически из другого файла запускать безобидный макрос из этого. Даже если файл закроют - он снова откроется.
Или тупо открывать кодом тогда, когда он нужен. Вероятно он нужен открытым для другого макроса?
Вариантов куча...