Переименовать папку и файл

[SAS888]

вместе они ошибку выдают

На время работы процедуры обработки события Workbook_BeforeSave, для предотвращения конфликтов, попробуйте запретить обработку всех других событий: Application.EnableEvents = False. В самом конце не забудьте разрешить.
Вообще, я бы запрещал и разрешал обработку событий в каждой процедуре.

[SAS888]

КаМММ
Обратите внимание, что при переименовании папки, Ваш код создает новый ярлык на рабочем столе и не удаляет старый (уже "битый").
В предложенном мной варианте эта проблема решается тем, что старое имя хранится в ячейке листа, и при переименовании, переименовывается и ярлык на рабочем столе.
Вообще, на мой взгляд, лучше подобную информацию хранить в новой созданной ветке реестра. Но не все антивирусные программы это "любят".
И еще. Действительно, зачем проверять, что имя файла, содержащего Ваш макрос, соответствует одному из месяцев? Пусть пользователь имеет возможность переименовывать файл (папку) произвольно.

[КаМММ]

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

[SAS888]

если его перенесут без папки то сработает уничтожение данных.

Вот тут, как раз я не очень понимаю автора темы. Почему все-таки нельзя использовать "болванку", т.е. чистый (без данных) шаблон, а вместо этого делать такие "телодвижения" ?

[valerij]

Сообщение от КаМММ

Тут всегда есть различные варианты решения, и можно найти для себя какую-нибудь новую фишечку.

Это точно, а для меня, разные решения, это вообще как эталон, смотришь, разбираешь, учишься.
САС!
Я попробую воспользоваться Вашим советом, но ?????

[valerij]

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

Вот тут, как раз я не очень понимаю автора темы. Почему все-таки нельзя использовать "болванку", т.е. чистый (без данных) шаблон, а вместо этого делать такие "телодвижения" ?

Потому, что за месяц, несколько раз меняются цены, смысл шаблона теряется, почему я и использую очистку

[SAS888]

за месяц, несколько раз меняются цены, смысл шаблона теряется

Т.е. Вас не интересует, какие цены, например, были 5 дней назад? Как Вы подсчитываете результаты за месяц, если сохраняете цены только на настоящий момент?

[valerij]

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

Т.е. Вас не интересует, какие цены, например, были 5 дней назад? Как Вы подсчитываете результаты за месяц, если сохраняете цены только на настоящий момент?

Вообщем происходит так, в сентябре с 1-по 15 одна цена, а с 16 -30 другая. В октябре(после очистки), я в ручную, меняю цены с 1-15 на цены как в 16-30 сентября и т. д. менять легко, благодаря Вашему макросу вверх, вниз.

САС
А почему такие разные ярлыки(сентябрь), сборный макрос КаМММ?

[SAS888]

В коде макроса ссылка на "картинку" для ярлыка задается строкой

objShortCut.IconLocation = "Moricons.dll, 40"

У Вас, скорее всего, нет этой dll-ки.

[valerij]

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

У Вас, скорее всего, нет этой dll-ки.

Да, но чисто Ваш макрос, не меняет картинку ярлыка!!