Как установить активный лист с помощью Excel PIA

Question

Я использую несколько листов в своем приложении Excel и хочу активировать (установить фокус) на конкретный лист после выхода. В принципе, я хочу установить свойство ActiveSheet в своей книге, но так как свойство доступно только для чтения, есть ли другой способ достичь этого?

Спасибо,

Сэм

Answer 1

В редакторе VBA в Excel (Alt + F11), перейдите в раздел ThisWorkbook проекта. В левом раскрывающемся списке выберите «Рабочая книга». В правом раскрывающемся списке выберите «BeforeClose».

Любой код, который вы вводите здесь, будет происходить после того, как пользователь решит выйти из листа, но до того, как он фактически закрыт. В этом пространстве, введите следующий код, подставив имя вашего листа:

Worksheets("Sheet1").Activate 

Ваш последний суб должен выглядеть следующим образом:

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    Worksheets("Sheet1").Activate 
End Sub