Я нашла решение, как правило ЛКМ хранится по адресу C:\Documents and Settings\User_Name\AppData\Roaming\Microsoft\Excel\XLSTART, но для версий старше 2007 путь к папке автозагрузки уже другой C:\Program Files\Microsoft Office\Office16\XLSTART но пришлось вручную перетаскивать туда книгу, тк Эксель 2016 сохранял по умолчанию по старому адресу(
Я нашла решение, как правило ЛКМ хранится по адресу C:\Documents and Settings\User_Name\AppData\Roaming\Microsoft\Excel\XLSTART, но для версий старше 2007 путь к папке автозагрузки уже другой C:\Program Files\Microsoft Office\Office16\XLSTART но пришлось вручную перетаскивать туда книгу, тк Эксель 2016 сохранял по умолчанию по старому адресу(1607oxana
Сообщение отредактировал 1607oxana - Понедельник, 17.01.2022, 19:19
1607oxana, Положите свой файл в удобное место, а в папки C:\Documents and Settings\User_Name\AppData\Roaming\Microsoft\Excel\XLSTART и C:\Program Files\Microsoft Office\Office16\XLSTART положите ярлыки на этот файл.
или можете следующий макрос выполнить [vba]
Код
Sub AddShortcut() ' Description: для создания ярлыка Dim LinkFullName$, oShortcut As Object LinkFullName = Application.StartupPath & "\" & "Имя Вашего файла" & ".lnk" If VBA.Dir(LinkFullName, vbNormal) = "" Then Set oShortcut = VBA.CreateObject("WScript.Shell").CreateShortcut(LinkFullName) oShortcut.TargetPath = "Полный путь с именем Вашего файла" oShortcut.Save End If End Sub
[/vba]
1607oxana, Положите свой файл в удобное место, а в папки C:\Documents and Settings\User_Name\AppData\Roaming\Microsoft\Excel\XLSTART и C:\Program Files\Microsoft Office\Office16\XLSTART положите ярлыки на этот файл.
или можете следующий макрос выполнить [vba]
Код
Sub AddShortcut() ' Description: для создания ярлыка Dim LinkFullName$, oShortcut As Object LinkFullName = Application.StartupPath & "\" & "Имя Вашего файла" & ".lnk" If VBA.Dir(LinkFullName, vbNormal) = "" Then Set oShortcut = VBA.CreateObject("WScript.Shell").CreateShortcut(LinkFullName) oShortcut.TargetPath = "Полный путь с именем Вашего файла" oShortcut.Save End If End Sub
[p.s.] еще наблюдал долгое сохранение файла с макросами если проект файла перед сохранением не был откомпилирован. порой это даже приводило к "вылету" Excel
[p.s.] еще наблюдал долгое сохранение файла с макросами если проект файла перед сохранением не был откомпилирован. порой это даже приводило к "вылету" Excelboa
Положите свой файл в удобное место, а в папки C:\Documents and Settings\User_Name\AppData\Roaming\Microsoft\Excel\XLSTART и C:\Program Files\Microsoft Office\Office16\XLSTART положите ярлыки на этот файл.
тоже вариант, спасибо! кажется раньше так и делала
Положите свой файл в удобное место, а в папки C:\Documents and Settings\User_Name\AppData\Roaming\Microsoft\Excel\XLSTART и C:\Program Files\Microsoft Office\Office16\XLSTART положите ярлыки на этот файл.
тоже вариант, спасибо! кажется раньше так и делала