СУПЕР!!!!!  
ОГРОМНОЕ СПАСИБО!!!  
 
А как добавить еще листы?  
Вписываю такие строки:  
           Sheets("Сводная").Visible = True  
           Sheets("Анализатор").Visible = True  
           Sheets("Штрафы").Visible = True  
а почему-то отображаются только Анализатор и Сводная...

да, забавно читается )))  
второй случай - касается меня, как руководителя, можно сделать с паролем )))  
либо чтобы весь файл копировался в мою папку с открытыми листами.

Да файла то по сути еще нет )))  
Суть в том, что в файле будут как листы именованные числами месяца (01.07.12, 02.07.12...) так и листы которые будут содержать итоги - они уже будут именованы разумеется не датами (итоги, анализ...)  
 
Скрывать листы более "глубоко" уже получилось, изменением строки:  
If CDate(wSh.Name) <> Date Then wSh.Visible = False  
на  
If CDate(wSh.Name) <> Date Then wSh.Visible = xlSheetVeryHidden  
 
+ было бы здорово иметь возможность отключения такого "скрытия", чтобы можно было войти в файл и посмотреть цифры по всем дням, не заходя в исходный код и не переправляя видимость листов.

И ещё вопрос, если в файл-пример добавить лист "анализатор", то при открытии файла происходит ошибка со ссылкой на строку: "   If CDate(wSh.Name) <> Date Then"

Супер!!!! Работает!!! А как это всё еще дополнить так, чтобы работник не мог взять и отобразить скрытые листы - идея в том, чтобы не могли вносится правки в файл за прошедшие даты.

Добрый день. Есть файл с финансовой учетностью компании - каждый лист это отдельный день. в течении которого заполняются расходы, доходы и тд. Как сделать, чтобы например 1-го июля пользователи могли открыть только лист "1 июля", а второго июля - только "2 июля"?

Спасибо за оперативность ))

Добрый день, появилась необходимость написать макрос, который сохраняет значение определенной ячейки в файл .txt, но надо чтобы данные были записаны в юникоде.  
 
До этого использовал для записи следующий прием:  
 
FileName = ThisWorkbook.Path & "\beta\beta1.txt"  
Open FileName For Output As #1  
For i = 101 To 101  
If Cells(i, 1) <> "" Then  
Print #1, Cells(i, 1).Value  
End If  
Next i  
Close #1  
 
Чем необходимо дополнить код, чтобы сохранялся именно юникод? Заранее спасибо ))