Написал в личку.

Результат: ОШИБКА 0,  Windows (32-bit) NT 6.01, Excel version = 14.0

Первое нажатие - создалась вкладка, но не активировалась.
Второе нажатие - активировалась
Результат: ОК,  Windows (32-bit) NT 6.01, Excel version = 14.0
и доп. кнопки появляются

Спасибо! Всё работает )

Добрый день, коллеги!

Подскажите как можно программно нажать на кнопку отмена при появлении окна на ввод пароля при открытии файла через VBA. Или же узнать о наличии пароля до открытия файла.
Пароль неизвестен.

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

Могу предложить воспользоваться программой Парсер Сайтов - http://excelvba.ru/programmes/Parser/ Найдем обоюдовыгодные условия.

Собственно сабж.  
 
Как вывести пользовательскую форму по центру 2-го рабочего стола (расширенного)?  
 
Эксель открыт на большом мониторе (2-ом), окошко пользовательской формы появляется по центру первого монитора (или в углу, если стартовую позицию "ручную" указать). Как сделать, чтобы пользовательская форма отображалась по центру 2-го рабочего стола?

При переносе данных из одного файла в другой при отключенном обновлении экрана (Application.ScreenUpdating = False) иногда теряются картинки (плавающая ошибка). На их месте появляется "Невозможно отобразить картинку"  
 
Если включить обновление экрана, то все мелькает.  
 
Если сделать цикл, который включает обновление экрана перед вставкой картинки, то все нормально за исключением 1 момента. Потом он не может отключить обновление.  
 
 
Private Sub PerenosDannyh()  
 
Application.ScreenUpdating = False  
     
   Workbooks.Open Filename:=NameStandart  
     
   For NomerLista = 1 To 4  
         
       Workbooks(NameStandart).Activate  
       Sheets(NomerLista).Select  
         
       LastRow = Cells(Rows.Count, 3).End(xlUp).row  
       
       Range("C4:C" & 4 + LastRow).Select  
       Selection.Copy  
       
     ThisWorkbook.Activate  
     Sheets(NomerLista).Select  
     Range("c3").Select  
       
       If Workbooks(NameStandart).Sheets(NomerLista).Shapes.Count <> 0 Then  
         Application.ScreenUpdating = True  
         
         ActiveSheet.Paste  
             
         Application.ScreenUpdating = False ' вот здесь обновление не отключается почему-то  
           
       Else  
         ActiveSheet.Paste  
       End If  
     
   Next NomerLista  
Application.ScreenUpdating = True  
End Sub

как-то странно прикрепился файл, еще раз в архиве.

Вот есть подобные стандарты, как во вложенном файле (описывающие рабочие процедуры). Периодически они совершенствуются (добавляется автоматизация, меняется оформление).  
 
В файле примера я снял пароль, но вообще предполагается, что сотрудник может посмотреть стандарт, но не изменить его. Он лишь может вносить кайдзен-предложение. При внесении предложения, ему предлагается ознакомить автоматическим письмом ответственного за стандарт.  
 
Вот сейчас мне либо вносить во все свои 10 стандартов подобный макрос, либо разобраться с единым шаблоном. Функция "Слияние" здесь применима?  
 
Чтобы можно было иметь обратную связь от сотрудников.

Здравствуйте! Подскажите, как лучше поступить в следующей ситуации:  
 
Есть несколько рабочих книг, в которых на нескольких вкладках описаны некие стандарты. Все эти рабочие книги оформлены в едином стиле. Если возникает идея оптимизировать этот единый стиль (что происходит с определенной периодичностью), то сейчас приходится заходить в каждую книгу (а их уже больше 10, будет еще больше) и менять все вручную (добавлять формулы, менять шрифты и размеры, переставлять столбцы и т.д.)  
 
Есть ли возможность сделать 1 файл-шаблон, изменив оформление в котором, изменяются все остальные файлы?  
 
Может быть стоит запрограммировать VBA, чтобы пользователь выбирал один из нужных стандартов, после чего макрос подставлял бы данные из книг со стандартами в пользовательскую форму макроса.  
 
Может быть есть какие-то штатные средства?