Peдaктиpoвaниe PERSONAL.XLS зaпpeщeнo

[Hugo121]

В любой папке заходите в сервис-свойства папки-типы файлов, там ищите xls, далее дополнительно - изменить.
Но только осторожно!
На всякий случай перед этим включите Восстановление системы (создайте контрольную метку) .
Только не надо спрашивать, как

[V@lentin]

Просмотрел, у меня все также как на ваших картинках. сообщение все равно выскакивает.

[kulib]

Я вот так решил:

Function ЗапускЭкселя()

Dim objXL
Set objXL = CreateObject("Excel.Application")
With objXL
.Visible = True
.Workbooks.Open ("ПутьИмяФайла")
End With
Set objXL = Nothing

End Function

'задолбавшее "редактирование personal.xls запрещено ..... " не выскакивает

[Hugo121]

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

не выскакивает

ну так там и нет его. Как и других открытых где-то рядом файлов. Ибо это другой отдельный процесс только с этим одним файлом, без сторонних надстроек и макросов. И копипастить в другие файлы не получится, ну разве что вроде в 2016, не знаю, нет его...
Но может кому когда именно так и нужно.

[kulib]

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

ну так там и нет его.

У меня оно (это сообщение) появляется на МС2003 ВСЕГДА когда я обращаюсь к Call Shell(excel, .....
Предоставленным мною методом я избавился от него. Собсна всё! Кому поможет - с наилучшими!