Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Спасите пожалуйста Задание 1. Протестировать программу. Изменить программу так, чтобы вычислялись 1) корень квадратный из разности квадратов введенных чисел; 2) модуль косинуса предыдущего выражения. Программа Sub Lin1() Dima As Double, x As Double a= Val (InputBox("Введите a")) x= Val (InputBox("Введите x")) b=1/(x)*(1/4) c= Sin (a* 2 +b 2) https://www.cyberforum.ru/ vba/ thread2876614.html Два разных текста в StatusBar VBA
Здравствуйте Имеется два файла, в обоих выводится текст разного содержания в StatusBar. Возможно ли одновременно, из разных файлов, показать два текста в статус-баре? первый файл Application.StatusBar = "текст из первого файла" второй файл Application.StatusBar = "текст из второго файла"
VBA VBA в других браузерах, кроме IE Здравствуйте, нужна помощь. Есть сайт для работы, где есть заполнение заявки, но 70% работы однотипно. Был бы доступ к кишкам сайта, естественно не пришлось бы изобретать велосипед. Но имеем, что имеем. Вчера сижу, думай дай, ПО быстренькому сварганю скрипт и делов то. Все сделал, подставил все значения, а кнопка сохранить не работает, думаю ну может не работает из-за тегов еще каких,... https://www.cyberforum.ru/ vba/ thread2876504.html VBA Скрипт для Microsoft Word устанавливающий файл на рабочий стол Здравствуйте, я не знаком с Visual Basic и скриптами для Office, но я хочу чтоб .docx файл при клике на кнопку распаковывал файл на рабочий стол — возможно ли это и с чего начать)) https://www.cyberforum.ru/ vba/ thread2876408.html
VBA Сортировка массива
Добрый день, как можно более профессионально написать код? Sub sortVibor() Dim a() a = Worksheets(1).Range("A2:E7").Value Dim iMin As Double Dim x As Variant 'Обозначение границ массива first = LBound(a) last = UBound(a)
VBA Объединение ячеек макросе таблица в ворде https://www.cyberforum.ru/attachment.php?attachmentid=1281227&stc=1&d=1632647117 как написать макрос для такой таблицы, не работает объединение яеек https://www.cyberforum.ru/ vba/ thread2876168.html
VBA Копирование файла через Access https://www.cyberforum.ru/ vba/ thread2876127.html
Всем привет! В данный момент в Аксесе пытаюсь реализовать не сложную функцию с помощью VBA а именно копирование файла из одной папки в другую. По читав форумы нашел вариант как копировать файл с помощью данного кода: Private Sub Кнопка45_Click() Dim fs1 As String Dim fs2 As String fs1 = Me.Поле48 fs2 = Me.Поле46 FileCopy fs1, fs2 End Sub Используя данный код, путь к файлу который хочу...
Range.AutoFilter Field:=1, Criteria1:=Array(), Operator:=xlFilterValues VBA
Добрый день! Подскажите пожалуйста, как фильтровать значения Range.AutoFilter Field:=1, Criteria1:=Array(.....), Operator:=xlFilterValues Значения берутся с листа Mix (диапазон с ячейки В2 и ниже). Диапазон динамический. По значениям из этого диапазона должен фильтроваться лист BOM (столбец Код ГП). Что то пишу не так. Ошибка в последней строке. В файле Module3.
VBA Счетчик файлов в папке https://www.cyberforum.ru/ vba/ thread2876047.html
Здравствуйте В папку добавляются и по условию удаляются файлы. Нужно после выполнения макроса узнать количество файлов в папке. Если из папки удаляется 1-2 файла, то счетчик определяет количество файлов в папке корректно. Но если удаляются 10 и более файлов, то в папке еще идет процесс удаления (не все файлы успели удалиться), а макрос уже выполнен, соответственно счетчик сосчитал и эти, еще не...
VBA Очень нужен макрос для переноса данных из одного файла в другой, с поиском значений Уважаемые эксперты, очень нужна ваша помощь! Подскажите, пожалуйста, как прописать макрос, который переносит данные из одного excel файла в другой с условием? Задача состоит в следующем: из файла FR.xls, по всему столбцу А, построчно, начиная с строчки А3, нужно производить поиск такого же значения в файле TT FR.xls, начиная с А2 и, при совпадении оных, копировать соответствующее содержимое ... https://www.cyberforum.ru/ vba/ thread2875902.html
Открытие книг в других экземплярах application VBA
Доброго времени суток! Имеется книга1, с userform, она скрытая через: Application.Windows(name.xlsm).Visible = False И соответственно на экране остается только форма. НО при открытии любой другой книги, книга1 с формой тоже всплывает, а мне нужно что бы она всегда была скрыта. Частично решил проблему вот так: создал книгу2, которая запускает книгу1: Private Sub Workbook_Open() Set...
VBA Как вычислить уравнение в VBA: cosx*chx=-1 (найти 20 первых корней) https://www.cyberforum.ru/ vba/ thread2875791.html
Доброго всем дня :-) Нужно найти первые корни (минимум 10-15, лучше 20) уравнения, оптимально в VBA: \cos x *\cosh x = -1 Не знаю, возможно ли в VBA решить такое уравнение , корни которого не могу отдельно выразить и записать для них решение? Как это было бы в случае полинома, например. До этого не приходилось решать подобное в VBA. Т.е. здесь не могу вписать "х=...", потому что в одном...
0 / 0 / 0
Регистрация: 15.12.2017
Сообщений: 8
Записей в блоге: 1
0
Excel

Определение имени пользователя, у которого в данный момент открыт файл Excel - VBA - Ответ 15734130

27.09.2021, 14:07. Показов 4221. Ответов 4
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Добрый день.
Есть макрос для внесения изменения в файл. Данный файл расположен на сетевом диске, к которому имеют доступ большое количество пользователей.
Перед внесением изменений в данный файл, необходимо проверить, занят ли он другим пользователем и вывести имя пользователя.

Я добавила функцию для проверки открытия файла.
Visual Basic
1
2
3
4
5
6
7
8
Function FileIsBusy(File$) As Boolean   
    a = ""
    Dim FN%: FN = FreeFile
    On Error Resume Next
    Open File For Random Access Write Lock Write As #FN
    Close #FN
    FileIsBusy = (Err <> 0)       
End Function
Затем в основном макросе прописываю условие для вывода сообщения:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
If FileIsBusy("Q:\Свод_ПБУ_2022.xlsx") = True Then
    'a = CreateObject("wscript.network").UserName
    'a = Environ("UserName")
    'a = WMI_UserFullName
    'a = Workbooks("Свод_ПБУ_2022.xlsx").UserStatus
    'Set objSysInfo = CreateObject("ADSystemInfo")
    'a = objSysInfo.UserName
 
    MsgBox ("Файл занят пользователем ") & a
    Exit Sub
End If
Но имя пользователя при любом из испробованных способов - моё. Если файл открыт у коллеги с её компьютера и учетной записи, я этого не вижу.
Как исправить данную ошибку? Испробовала все варианты. Определение пользователя переносила и в функцию, результат не меняется.

Вернуться к обсуждению:
Определение имени пользователя, у которого в данный момент открыт файл Excel VBA
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.09.2021, 14:07
Готовые ответы и решения:

Как узнать имя пользователя, который запустил данный командный файл от имени другого пользователя?
Вопрос задаю в ветке PowerShell, т.к. скорее его средствами, нежели средствами одного только...

Удалить графический файл, изображение которого в данный момент фон рабочего стола
В win7 фон рабочего стола настроен так чтобы изображения брались из определённой папки или...

Как узнать открыт ли данный Excel документ в OLE
Здравствуйте. С помощью свойства OlePropertyGet можно подключиться к книге...

Возращение имени исполняемого в данный момент файла
Необходимо узнать имя исполняемой сейчас программы, работающее и для предпросмотра. Пробовал...

Выделение пункта меню, подпункт которого данный момент активен
На сайте есть меню &lt;ul class=&quot;menu&quot;&gt; &lt;li...

4
27.09.2021, 14:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.09.2021, 14:07
Помогаю со студенческими работами здесь

Нужно выделить пункт меню, на странице которого пользователь находится в данный момент
Добрый день, CSS и HTML более менее выучила, а в JS пока нет желания лезть, вот ищу готовые...

Определение к какому файлу в данный момент времени обращается та или иная программа
Как на ++ определить - к какому файлу в данный момент времени обращается та или иная программа?

При открытии браузер пишет что файл открыт в Excel, к сожалению сам Excel не открывается.
Добрый день Форумчане! Появились сложности при открытии файла (через ссылку в браузере) в MS...

Определить, от какого пользователя открыт файл
День добрый! Есть задача определить кто открыл файл дальше взять его логин и отправить ввиде...

Узнать имя пользователя у кого открыт файл
Доброго времени суток! Есть ли возможность по средствам vb.net узнать у какого пользователя открыт...

Определение имени пользователя
Как можно узнать доменное имя пользователя, который обращается к сайту (IIS+ASP)?

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru