1

Тема: Personal.xlsb & auto_open

Добрый день, прошу помощи в редактировании скрипта, если при закрытии книги, то всё ОК, а если Auto_open, то ошибка, если вручную на открытой книге то всё ОК. Модуль стоит в Personal.xlsb

Public Sub Auto_close()
Dim wks As Worksheet
For Each wks In Workbooks("*.xlsx").Worksheets
  If wks.FilterMode = True Then
   wks.ShowAllData
   End If
 Next wks

2 (изменено: inseption86, 2018-07-03 21:49:32)

Re: Personal.xlsb & auto_open

Private WithEvents App As Application
Private Sub Workbook_Open()
  Set App = Application
End Sub
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    Dim sh As Worksheet
    On Error Resume Next
    For Each sh In Wb.Worksheets
        If sh.AutoFilterMode Then sh.ShowAllData
    Next
End Sub

3

Re: Personal.xlsb & auto_open

inseption86
Оформите пост тегом CODE.