Как ЗАКРЫТЬ ПАПКУ средствами VBA?

[Vja4eslav]

Уважаемые знатоки VBA, есть много средств для открытия папки или файла (диалоговые окна и т. д.), но как ЗАКРЫТЬ средствами VBA ПАПКУ? Подскажите, пожалуйста.

[IgorGO]

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

[Vja4eslav]

Без средств VBA - это вручную: либо кликнув ЛКМ по "крестику", либо сочетанием клавиш "Ctrl + W".
Известен путь к папке и её название. Если нужно закрыть файл, то: "Workbooks("Название файла").Close False(без сохранения и True с сохранением).
А какой же код VBA нужен, чтобы закрыть не файл, а папку?

[Hugo121]

Вопрос - а накой её открывали? Вот пусть тот, кто её открывал - и думает как закрыть

[Vja4eslav]

Открывал её я. Вот и думаю, как её закрыть.
Мне нужно периодически открывать один файл excel, лежащий в определённой папке у меня на компьютере. Это не взлом чьих то данных. И этот файл и эту папку создал я сам. После открытия файла мне не нужно, чтобы пака оставалась открытой, поэтому на событие открытия книги (Workbook_Open) хотел написать код закрытия папки. Есть ли такой код в VBA? Наверное, что то типа "Название папки".Close?

[Aleksandr H.]

Вы хотите вручную через проводник, например, открыть папку, в ней открыть файл с помощью ентера или ЛКМ, и, при этом проводник, что-бы закрылся?

[Vja4eslav]

Да.

[Hugo121]

Открывайте через FAR, или TC - проблема уйдёт сама собой

[Vja4eslav]

Сделал пока вот так:

Private Sub Workbook_Open()
Set objShellApp = CreateObject("Shell.Application")
objShellApp.Open ("D:\Dropbox\")
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "(%{F4})" '"ALT" + "ENTER"
End Sub

Работает нормально, но это имитация нажатия клавиш. Неужели нет кода, закрывающего папку (.Close)?

[Hugo121]

Помните притчу по Неуловимого Джо? Вот и тут так же...