Добрый день,
Необходимо сделать макрос который при закрытии книги скрывет все листы кроме одного. Нашел такой:
но он почему то не срабатывает, в чем может быть проблема?
Заранее спасибо.
Необходимо сделать макрос который при закрытии книги скрывет все листы кроме одного. Нашел такой:
Код |
---|
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Dim wsSh As Worksheet Sheets("WARNING").Visible = -1 For Each wsSh In ThisWorkbook.Sheets If wsSh.Name <> "WARNING" Then wsSh.Visible = 2 Next wsSh ThisWorkbook.Save End Sub |
но он почему то не срабатывает, в чем может быть проблема?
Заранее спасибо.