Пляшущие листы & отображение .СSV файл.

[Rust_12]

Доброго времени суток, господа форумчане
Возникло 2 небольших скорее технических вопроса)))

1) У меня в книге более 10 листов. Видимость для одного из них- общедоступна. Остальные листы- скрыты, на них выполняются предписания макроса. При нажатии на кнопку, расположенную на видимом листе, срабатывает макрос, который делает эти листы доступными на время выполнения процедур и функций, по завершению-скрывает. Но поскольку их относительно много, при открытии эти листы мелькают..что ли. Не знаю, как выразиться более корректно. Скачут и переключаются, и это бросается в глаза.
я пробовала такие варианты:

Dim Sh As Object
    For Each Sh In ActiveWorkbook.Sheets
      Sh.Visible = xlSheetVisible
       Next Sh

и еще банальней,- такой:

  Sheets("Лист2").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Лист3").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Лист4").Select
    ActiveWindow.SelectedSheets.Visible = False
            ........
   ActiveWindow.SelectedSheets.Visible = False
    Range("Лист9").Select

    ActiveSheet.Shapes("Button 6").Select
    Sheets("Лист2").Visible = True
    Sheets("Лист3").Visible = True
    Sheets("Лист4").Visible = True
              ......
    Sheets("Лист9").Visible = True

Подскажите, пожалуйста, как можно убрать эти переключения и мелькания, если это в принципе реально.
Возможно, есть другой способ сделать доступными листы для выполнения макроса без их видимого отображения, о котором я не знаю?
=================================== ================
2) У меня по кнопочке макрос открывает файл с расширением .CSV. И все бы ничего, но русскоязычные ЗАГЛАВНЫЕ символы отображаются некорректно,- в виде "утюжков" такого типа: ╤╦┬.
Строчные русские буквы - без проблем. На англоязычные символы любого регистра, цифры, тире, запятые и подобн.- тоже никаких нареканий.
Возможно, кто-то из вас с этим сталкивался. Я так понимаю, дело в кодировке. Подскажите, пожалуйста, как можно решить сию проблему - через настройку управляющего меню Excel...или,быть может, с помощью макроса? Погуглила-, к сожалению, не обнаружила ничего результативного.
_________________
Большое спасибо за участие!

[doober]

А зачем Листы светить,можно обработать и невидимые.


если хотите,можно и так сделать

Application.ScreenUpdating = False

Здесь код макроса
Application.ScreenUpdating = True

А еще круче вот так

Application.Visible = False

Ваш код
Application.Visible = True

Скорее всего у вас кодировка 866,надо либо файлы CSV предварительно перекодировать,либо на лету перекодировкой занятся

[doober]

Посмотрите в этой теме ,есть решение перекодировки скриптом от Hugo121

[Rust_12]

doober
Спасибо Вам большое за ответы, но если листы скрыты, то выпрыгивает Дебаг на строчках вида Sheets("Лист2").Select, где Лист2 - скрытый лист, с которым необходимо произвести определенные действия. Видимо, скрытым он недоступен для работы. Сообщение "Метод Select для класса WorkSheet завершен неверно"
У меня одна основная функция, которая вызывается по кнопке на видимом листе. В ней прописан макрос, который по мере работы вызывает другие функции, их у меня много.
Прописала в каждой функции , как Вы советовали


Application.ScreenUpdating = False

код макроса
Application.ScreenUpdating = True

- при работе маркоса визуально отображается вся его работа, то есть видно, как копируются столбцы, отсекается ненужное в строчках, копируется-вставляется и подобн. Возможно, я Ваши рекомендации поняла неверно.

Вариант с
Application.Visible = False
.....
Application.Visible = True

полностью закрывает приложение Эксель. Открываю-он пишет чтото вроде" Книга такая-то уже открыта. При повторном открытии данные могут быть утеряны"

Мне кажется, я Вас неправильно поняла, я, скорее всего, в чем-то ошибаюсь. Что я делаю неверно? =(

[doober]

Мне кажется, я Вас неправильно поняла, я, скорее всего, в чем-то ошибаюсь. Что я делаю неверно? =(

Примеры файлов не выложили с кодом и CSV

[Rust_12]

А нет,нет...Прошу прощения.
Вот кое-что исправила ))
При варианте с

Application.Visible = False
.....
Application.Visible = True

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

[doober]

Примеры файлов не выложили с кодом и CSV
От селектов можно избавиться и код ускорить

[VictorM]

Если уж так необходимо, отобразить все листы книги (и без "мелькания") можно так

Sub ВсеЛисты()
'отображаем все скрытые листы
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In ActiveWorkbook.Sheets
        sh.Visible = True
    Next
End Sub

Хотя, как сказал выше doober все можно сделать и без отображения листов и без селектов.
Но это только при наличии Вашего файла - примера.

[alex77755]

на них выполняются предписания макроса

А каковы предписания макроса?
СSV файл обычный текстовой файл.
Может можно обойтись вообще без дополнительных листов?
Сделать всё программно.

[doober]

файлы под грифом совсекретно