Помогите! Вдруг перестают работать обычные команды напр Open

[Вадим Ю.]

В давно работающих проверенных программах в Excell вдруг перестают работать команды типа
Open FILENAME For Output As #1
даёт Run-time error 53 File not found
ошибок в названии файлов нет, конструкции Open FILENAME For Input продолжают работать.

Кроме того, когда программа доходит до конструкции : Sheets(НазвЛиста).Copy Before:=Sheets(1) она просто завершается, перескакивая сразу в конец пропуская половину кода и не показывая никакой ошибки!

Сперва это было только на домашнем компе, потом то же самое стало на рабочем. На втором рабочем компе пока все работает (не знаю, надолго ли ).
Явно что-то с Excell. Думал, вирус, но постоянно проверяюсь со свежей базой.
Если просто переустановить Excell, эффекта нет. Если удалить полностью Офис и заново установить (уменя 2003), первый запуск программы работают нормально, но потом та же проблема!
Пробовал установить старую Office XP, но этого хватило только на один раз, а потом.....
В общем кошмар!
Поможите, кто знает!

[Al Khamid]

Истинный монархист
выступит в защиту монархии
даже против самого монарха

©18

[Вадим Ю.]

Дело не в коде!

Информация такая: не работают указанные конструкции:
Sheets(НазвЛиста).Copy Before:=Sheets(1) и
Open FILENAME For Output As #1
ВО ВСЕХ ПРОГРАММАХ! ОНИ ВСЕ ПЕРЕСТАЛИ РАБОТАТЬ!
НЕ РАБОТАЮТ ДАЖЕ ВНОВЬ СОЗДАННЫЕ ПРОГРАММЫ, В КОТОРЫХ НЕТ НИЧЕГО КРОМЕ ЭТОГО КОДА!

То есть не работает даже такой код, созданный Макрорекордером

Sub Макрос1()
Sheets("Лист2").Select
Sheets("Лист2").Copy Before:=Sheets(1)
End Sub

и такой код тоже не работает:

Sub FilKonstr()
Open "C:\Primer.txt" For Output As #1
Print #1, "HELLO!"
Close #1
End Sub

Поменял три версии Офиса: 2003, 2000 и XP безрезультатно.
Систему проверял Нортоном, Касперским и Nod32 - все чисто!
В конце концов отформатировал винт, поставил лицензионный WindowsXP, лицензионный NOD32 и Офис 2003 и два дня жил спокойно: все программы работали! А сегодня вечером опять то же самое: ВСЕ программы с приведенными кодами дают те же ошибки!
При этом работает NOD32, а интернет к этому компу специально не подключал.
На других компах все те же проги работают!
Так что дело не в коде! И не в Офисе!
Это, скорее, глючит WindowsXP.
Но что может так его портить, да ещё регулярно?
Может кто-нибуть сталкивался с подобным?
HELP !!!!

[AlexG]

Да, тема актуальна.......

Тоже не понятно по каким причинам перестала работать инструкция

Sheets("Лист2").Copy

Кто сталкивался? Как решили?

[uhm]

References слетают, может быть?

[AlexG]

Да нет....с References все ок.

И не слетают и не сбойные. Тем кому удалось решить - нашли только вариант с переустановкой офиса на другую версию.

[alibek]

Все же пришли скриншот окна референсов.

[QUICK]

Если бы не фраза, что проблема лечится переустановкой другой версии офиса... То очень похоже на слет прав на какие-то каталоги у пользователя при файловой системе NTFS. При этом я несколько раз сталкивался с ситуацией, когда при изменении прав на эти каталоги Винда бодро показывает смену этих самых прав, но ничего не меняется. Помогает несколько извратный путь - поменять собственника самого каталога и вложенных, поменять права, снова поменять собственника и тогда уже проставить необходимые права. В общем какое-то странное, не детектируемое самой виндой разрушение дескрипторов безопасности.
Не знаю насколько это применимо к данному случаю.