Волшебство какое-то!
Тема закрыта. Спасибо sokol92!

Здравствуйте, друзья!

Перечитал много полезного на этом форуме, но не смог решить проблему с разрывом внешней связи файла.
Удалил всё, что можно было удалить. Нет ни именованных диапазонов, ни условного форматирования, но связь не разрывается.
Если попытаться лист из этого файла в другую книгу (что я и сделал), там также создается связь которую не возможно разорвать.

Если будет возможность, прошу помочь с этой головоломкой.

Помогите чайнику!  
 
Есть форма, где на каждую строку будет сделана кнопка добавляющая лист. Хотел бы сделать, чтобы строка кнопки определялась автоматом. Иначе придется на каждую кнопку писать новый макрос.

Добрый день!  
Есть формула:  
="Бюджет "&ИНДЕКС(...)&" на "&$B$5&" год ("&ТДАТА()&")"  
Этой формулой задается имя нового файла, создаваемого макросом.  
Проблема заключается в том, что ТДАТА() возвращает число, а не дату. Можно ли каким либо образом преобрать эту дату в текстовый формат?

Есть ли возможность макросом (а иначе и никак) защитить лист так, чтобы можно было работать с примечаниями?

Я вышел из ситуации таким образом:  
 
Private Sub Workbook_Open()  
Application.ScreenUpdating = False  
Application.Workbooks.Open ("C:\Documents and Settings\kasparov\Рабочий стол\Книга4.xlsx"), Password:="123321"  
Application.Workbooks("Книга5").Activate  
Application.OnTime TimeValue(Now + TimeValue("00:00:01")), "Закр"  
End Sub  
 
Sub Закр()  
Application.Workbooks("Книга4").Close  
End Sub  
 
Таким образом открывается запароленный файл, обновляются ссылки, а пользователь не имеет доступ к файлу с паролем. Только нужно защитить код VBA.

Есть файл, в котором есть ячейки, ссылающийеся на другой файл, защищенный паролем. При попытке обновить ссылки запрашивается пароль. Нужен макрос, который бы ввел пароль и обновил ссылки сам. Вчера весь день пробовал. Но даже после обновления ссылок макросом при открытии, после завершения макросом опять пытается обновить ссылки и требует пароль. Использую процедуру:  
ActiveWorkbook.UpdateLink Name:="C:\Documents and Settings\kasparov\Рабочий стол\Книга4.xlsx", Type:=xlExcelLinks  
Но она не содержит параметра Password.  
Есть идеи?

Код, что вы написали, не сработал. Но после небольшого тюнинга все запахало!  
 
Sub kaspar90_AutoFilter()  
   Dim d As Date  
   d = Sheets("Лист1").Range("B2").Value  
   ActiveSheet.ListObjects("Таблица1").Range.AutoFilter Field:=1, _  
   Criteria1:=d, Operator:=xlAnd  
End Sub

Может текст макроса приведете?

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

Ну 3 или 33 секунды?

А можно закрыть файл допустим через 3 секунды, а то формулы не успевают обновляться? Или может есть макрос, который может ожновить ссылки на другой файл защищенный паролем?

Есть макрос, который по идее:) должен открыть и закрыть другой файл защищенный паролем:  
 
Private Sub Workbook_Open()  
     
   ' Открыть файл  
   Application.Workbooks.Open ("C:\Documents and Settings\...\Рабочий стол\Книга4.xlsx"), Password:="123321"  
   ' Закрыть файл  
   Application.Workbooks.Item(1).Close ("C:\Documents and Settings\...\Рабочий стол\Книга4.xlsx")  
     
End Sub  
 
Но он, почему-то закрывает файл, с которым нужно работать. Как это исправить?

Вот файл пример.

Добрый вечер! В определенной ячейке есть дата. В зависимости от значения даты в этой ячейке нужно автоматически настраивать фильтр. Есть макрос?

Все отлично, спасибо!

На листе есть сгруппированные строки и столбцы. При защите листа с ними нельзя работать. Как это исправить?

Уже понял! :)

Как после выполнения макроса вернуться на тот лист, с которого его выполнение началось, т.е. активного в тот момент?

Как проверить наличие защиты структуры книги? Средствами VBA конечно:)

Спасибо! Все так просто оказалось!

Есть процедура VBA, после выполнния которой активной становиться определенная ячейка. Нужно, чтобы активной оставалась ячейка, выбранная до запуска процедуры. Это можно сделать?

Спасибо всем за советы. Я пожалуй не буду перекладывать с больной головы на здоровую. В формуле как-то еще аммортизацию учесть нужно. Ну сам додумаю.

Да проблема в том, что платежи нужно расчитать не по конкретному объекту, а по целому списку объектов. С разными сроками контрактов. Какие сроки я пока не знаю. Вот я и подумал. Может есть такая "волшебная" формула. Ну раз нет, то буду создавать доп. таблицы и т.п. Макрос никто не писал на эту тему?

Может я многово хочу, но подскажите: есть ли в Excel такая функция, которая способна расчитать сумму лизинговых платежей за весь период контракта? Я что-то такой найти не смог.