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

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

Не могу найти поиском

Изучил еще раз данные ссылки.
Способ 3. Универсальный макрос - то, что надо, но
с макросом не могу разобраться, как заменить Outlook на Windows Live.
А гиперссылки не подходят, т.к. не более 255 знаков и не прикрепить файл...

Открывается клиент по умолчанию Windows Live Mail 2011, другого нет...
Мне нужно отправить не текущую книгу, а файл, находящийся по определенному адресу.

И по ссылке, которую Вы мне дали, самый последний комментарий-вопрос мой, на который никто не ответил.

Здравствуйте!
Прошу в очередной раз помощи у профессионалов!

Пользуюсь почтой Windows Live, т.к. компьютер корпоративный.
Прикрепил файл для примера.
В ячейке D4 находится гиперссылка (адрес получателя), при нажатии открывается почтовый клиент с указанным адресом.
Каким макросом сделать так, чтобы из ячейки B4 вставлялась тема письма, а из ячейки H4 вставлялось само сообщение, при этом сохранялась моя подпись по умолчанию.
И совсем, в идеале, была бы возможность автоматом прикрепить файл, например по адресу из ячейки K4.

Николай Павлов,
Спасибо Большое, помогло!
Спасибо за оперативность!

Z,
А, если мы меняем номер столбца?...

Уточняю пример в файле:

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

Здравствуйте!

Казалось мне, что действие элементарное, но не смог решить.
Есть номер строки, номер столбца, получаем адрес ячейки. А, как получить значение ячейки с указанным адресом?
Т.е. я хочу в ячейке A2 получить значение ячейки в строке 4 столбце 7.
Нужна именно формула, не макрос.

Спасибо!

Спасибо большое!  
Чуть подправил, все получилось!

{quote}{login=Hugo}{date=10.09.2012 12:23}{thema=}{post}Я понял так с самого начала - указываем число 55. Это значит, что нужно напечатать людей от 1 до 55, по одному листу (ну или по 2, не важно).  
Ну а если на 31 зажевало?  
Если нужно не 1-55, а 25-36?  
Всё решаемо, и не сложно, но не буду - скучно...{/post}{/quote}  
 
Да Вы все правильно поняли.  
Если зажевало... Ну тогда было бы не плохо, как Вы предложили, задать диапазон!

Все работает при внесении изменений в ячейку AA1  
Но, может быть, все-таки, какой-нибудь простенький макрос  
Например:  
Sub Макрос1()  
   Range("AA1").Select  
   ActiveCell.FormulaR1C1 = "1"  
   ActiveWindow.SelectedSheets.PrintOut Copies:=1  
     
   ActiveCell.FormulaR1C1 = "2"  
   ActiveWindow.SelectedSheets.PrintOut Copies:=1  
     
   ActiveCell.FormulaR1C1 = "3"  
   ActiveWindow.SelectedSheets.PrintOut Copies:=1  
End Sub  
Только с циклом и количеством изменений в ячейке AA1 можно было задать в ячейке X1.  
Спасибо.

С данными людей проблем нет, они берутся с соседнего листа формулой ИНДЕКС, ПОИСКПОЗ и меняются при изменении значения в ячейке AA1.  
Весь смысл и заключается  
В ячейку AA1 вбиваем 2, (изменяется Ф.И.О., данные паспорта) пускаем документ на печать.  
В ячейку AA1 вбиваем 3, (изменяется Ф.И.О., данные паспорта) пускаем документ на печать.

День добрый.  
Снова прошу помощи у профессионалов!  
Есть бланк документа. Нужен макрос с следующей последовательностью действий:  
В ячейке X1 указываем количество копий (например 55)  
В ячейку AA1 вбиваем 1, пускаем документ на печать  
В ячейку AA1 вбиваем 2, пускаем документ на печать  
и так столько раз сколько копий мы указали в ячейке X1  
 
При изменении в ячейке AA1 меняются фамилии и паспортные данные людей.

Все ответ нашел!!!  
Sheets(Range("A1").Value).Select

{quote}{login=Hugo}{date=03.04.2012 04:24}{thema=}{post}  
MsgBox Sheets(Range("A1").Value).Range("A1").Value  
{/post}{/quote}  
Вы знаете, ничего не получилось...  
Файл прилагаю.

Спасибо большое, буду пробовать!

Здравствуйте!  
Прошу помощи:  
В ячейке А1 вбиваю название листа, который мне нужен. Как написать макрос, чтобы при запуске он обращался к листу в книге, название которого указанно в ячейке А1.  
Название листов в ячейке будет меняться по необходимости.  
С Уважением, Андрей.

Спасибо Большое за ответы!  
Разделитель "-" нужен только для трех ячеек в книге.  
Спасибо так же за макрос, пока обошелся только формулой!  
На Ваших советах изучаю Excel!!!

Спасибо!  
Пока подходит только формула    
=ПОДСТАВИТЬ(ТЕКСТ(СУММ(A1:A2);"0,00");",";"-")  
Только нет пробелов между тысячами...

Добрый день!  
Делаем в Excel квитанцию для сбербанка. В графе, где проставляется сумма в банке требуют чтобы данные были представлены в формате:  
2 156-25 (т.е. разделителем должна быть тире, а не запятая).  
Как задать формат ячейки, чтобы выполнить их требования не перестраивая всю работу Excel?  
Спасибо!

{quote}{login=Kuzmich}{date=13.01.2012 10:32}{thema=Re}{/quote}  
 
Всё Работает!  
Большое Спасибо!!!

Public Sub АКБвторой()  
     
   Dim a(), i&  
   a = Range([v2], Cells(Rows.Count, 1).End(xlUp).Offset(, 5)).Value
   With CreateObject("scripting.dictionary")  
       For i = 1 To UBound(a)  
           If .exists(a(i, 22)) Then  
               a(i, 27) = 0  
           Else  
               .Add a(i, 22), 0: a(i, 27) = 1  
           End If  
       Next  
   End With  
   Range([v2], Cells(Rows.Count, 1).End(xlUp).Offset(, 5)).Value = a
End Sub  
Не работает. Что не так?

{quote}{login=KukLP}{date=09.01.2012 10:52}{thema=}{post}Привет, Володь.  
Public Sub www()  
   Dim a(), i&  
   a = Range([a2], Cells(Rows.Count, 1).End(xlUp).Offset(, 1)).Value
   With CreateObject("scripting.dictionary")  
       For i = 1 To UBound(a)  
           If .exists(a(i, 1)) Then  
               a(i, 2) = 0  
           Else  
               .Add a(i, 1), 0: a(i, 2) = 1  
           End If  
       Next  
   End With  
   Range([a2], Cells(Rows.Count, 1).End(xlUp).Offset(, 1)).Value = a
End Sub{/post}{/quote}  
Макрос замечательно работает, но мне не хватает знаний, как сделать так, чтобы данные он считывал не со столбца А(столбец №1), а со столбца V(столбец №22) и результат вставлял в столбец АА(столбец №27). Хотя со вторым пунктом разобрался.  
Спасибо за помощь!

Спасибо Большое!  
Формула работает еще дольше, чем моя, а вот макросы... ЗАЧЕТ!!!

Не правильно пометил тему, вопрос не решен!

Здравствуйте!  
Помогите, пожалуйста, отобразить активную клиентскую базу в сводной таблице по трем критериям:  
клиент сработал на этой неделе по данному поставщику через этого агента.  
В сводной таблице необходимо оперативно получать данные, например:  
с этим поставщиком сработало 7 клиентов на сумму 91 руб. на 35 неделе.  
 
Попробовал своими силами, пришлось в таблицу с данными вводить еще два столбца (выделил желтым), громоздить формулы, которые работают почти час (оригинальная таблица содержит 30 столбцов и 300 тысяч строк...).  
Существует ли более логичная формула и чтобы ограничится одним дополнительным столбцом "АКБ", потому, что силами сводной таблицы такие данные не вытащить?!

Добрый день!  
Нигде не нашел, есть ли у кого-нибудь символ пятиконечная звезда?  
В Excel Вставка → Символ есть даже звезда Давида, а вот пятиконечной звезды нет...

{quote}{login=sva}{date=06.02.2011 10:18}{thema=}{post}Здравствуйте.  
И по какому принципу выбираются агенты?{/post}{/quote}  
Это основная база данных. Из нее выдергиваются данные для показателей работы агентов. Агенты берутся по два-три человека, в зависимости от города, где работают. Но мне достаточно сделать макрос на примере двух конкретных агентов. Главное понять принцип, как их отфильтровать в своде. Макрос есть в файле. Но в нем все делается методом исключения остальных агентов, а мне нужно прописать конкретных двух человек прямо в макросе.

Здравствуйте!  
Есть очень большая сводная таблица. Макросом с нее необходимо сделать копии и в каждой копии расставить различные фильтры на поле "Агент". По факту агентов очень много и выбирать их методом исключения не вариант.  
В копиях нужна информация именно в виде сводных таблиц.  
Спасибо.