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

[IgorGO]

допустим у вас открыты:
НортонКомандер
ФАР
ВолковКомандер
ВиндовсКомандер (СМД)
и полдесятка Проводников
в каждой из этих программ открыта одна и та же папка
В чем смысл ее закрытия??????????????????????????? ??
как закрытие этой папки в одной из перечисленных программ повлияет на все остальные?
зачем это нужно?????????????????????????????? ????????

[Aleksandr H.]

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

НортонКомандер
ФАР
ВолковКомандер

Кто эти мамонты, что используют их, госучереждения ?

[Vja4eslav]

IgorGO, я очень уважаю Вас, как специалиста и мне совсем не всё равно Ваше мнение. Поэтому я отвечаю на Ваш пост:
У меня есть на рабочем компе папка, в которой находятся файлы с определёнными наработками, которые в свою очередь, позволяют мне очень-очень сильно облегчить мою работу.
Естественно, что периодически мне приходится открывать эту папку (просто в проводнике) и после того, как нужный мне файл будет открыт, я хочу, чтобы эта папка сразу же закрывалась.
Почему сразу же закрывалась? Потому что у моих многочисленных коллег есть возможность видеть мой монитор. Автоматическое закрывание папки — это очень удобно.
Ну вот собственно и всё.

[IgorGO]

если вам нужно просто открыть файл по известному адресу это не обязательно делать это через проводник
1. откройте его из списка истории ранее открытых файлов в Excel
2. используйте макрос в одну строку длиной

Sub OpenMyFile
  Workbooks.Open "ПолныйАдресВашегоФайла"
End Sub

поместите его в персональную книгу макросов, навесьте кнопку на панель быстрого доступа - будете ВСЕГДА иметь быстрый доступ к файлу без необходимости открывать какие-либо папки и тем более закрывать их потом
в результате:
никто не открывал НИКАКУЮ папку и никому не нужно париться как ее тут же закрыть

и я все еще в полнейшем недоумении: "я для чего все это нужно? смысл???". есть у меня один ответ, но он может вам сильно не понравиться

[Vja4eslav]

IgorGO, просто таких файлов много (несколько десятков), содержат они не только макросы, но и описание на листах, нередко на нескольких (иногда даже и на многих). Личной книгой макросов тут не обойдёшься...

[IgorGO]

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

[Vja4eslav]

IgorGO, я так и понял Ваш пост))) Естественно Вам не известно было про количество файлов. Ваше предложение, тем не менее, как всегда здраво. Очень Вас уважаю

[IgorGO]

или с помощью такого макроса:

Sub OpenFileFromSecretFolder()
  Const SecretFolder$ = "C:\tmp"
  Dim fn
  ChDrive Left(SecretFolder, 2): ChDir SecretFolder
  fn = Application.GetOpenFilename("Excel files (*.xls*), *.xls*", _
  Title:="Выберите нужный файл", MultiSelect:=False)
  If fn <> "False" Then Workbooks.Open fn
End Sub

открыть ЛЮБОЙ файл из секретной папки.
для выбора файла увидите проводник, который исчезнет сразу после выбора или отказа от выбора файла))

[Vja4eslav]

IgorGO, Круто! Спасибо)