Неправильная работа Auto_Close() ?

[samsobi]

Для сокрытия всех рабочих листов в одной важной книге Excel применяю следующий код:

Код: Выделить всё

'Установки при открытии книги
Sub Auto_Open()
If InputBox("Введите пароль", "Пароль доступа") = "12345" Then
    For sh = 1 To Sheets.Count - 1
        Worksheets(sh).Visible = True 'Если пароль верен - откроем все листы,кроме последнего
    Next sh
    Worksheets(Sheets.Count).Visible = xlVeryHidden 'Последний скроем
Else
    ActiveWorkbook.Close
End If
End Sub


Sub Auto_Close()
Worksheets(Sheets.Count).Visible = True 'откроем последний лист
For sh = 1 To Sheets.Count - 1
    Worksheets(sh).Visible = xlVeryHidden 'скроем все листы кроме последнего
Next sh
End Sub


По идее этот код должен работать только для ДАННОЙ рабочей книги.
Но иногда при открытых нескольких книгах, в том числе и данной, происходят чудеса. Закрываю совершенно постороннюю книгу, а потом обнаруживаю, что в ней скрылись все листы, кроме последнего. получается, что Auto_Close() отработал на ней, а не на той книге где записан!Помогите разобраться!

[GSerg]

Не надо просто Worksheets...
Надо уточнять, ГДЕ...
Например, ThisWorkbook.Worksheets...

[samsobi]

Не надо просто Worksheets...
Надо уточнять, ГДЕ...
Например, ThisWorkbook.Worksheets...

Спасибо большое за совет!Всегда считал, что AutoOpen() и AutoClose() подразумевают ThisWorkbook, т.е. там где записан код. Поэтому я не уточнял ГДЕ. Теперь буду править тексты. Еще раз спасибо!