Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Копирование листов
 
Задача: Скопировать наборы листов в книге.  
Решение:  
For i = 1 To Sheets("Основной").Range("b2").Value  
       'копируем базовые листы  
       Sheets(Array("31-01(7 часов)", "31-01Вед")).Select  
       Sheets(Array("31-01(7 часов)", "31-01Вед")).Copy Before:=Sheets(Sheets.Count)  
         
       'сортируем листы  
         
       'переименовываем листы  
 
   Next i  
 
Проблема:    
В Excel 2003 на сотом листе выходит ошибка "Метод Copy из класса Sheets завершен неверно". На других компьютерах с 2003-им ошибка выходит и того раньше.  
На 2007 все работает хорошо.  
Возможно ли и как в Excel 2003 средствами VBA копировать 100 и более листов?  
Спасибо.
Сортировка защищенных ячеек
 
Проблема: Отсутствует возможность сортировки защищенных ячеек в MS Excel.  
Дано: Лист с защищенным диапазоном, фильтр на заголовках.  
Задача: Необходимо предоставить возможность сортировать значения защищенных диапазонов с помощью опций стандартного фильтра.  
 
Возможные варианты решения:  
1. При обработке в фильтре события "сортировка" отключать защиту, сортировать, а затем включать? Если да, то как называется функция?  
2. Свои варианты...  
 
Спасибо.
Страницы: 1
Наверх