VBA: Personal.xlsb & auto_open (Страница 1) — VBA (Visual Basic for Applications) — Общение

1 Тема от inseption86 2018-06-30 15:11:11

inseption86
Участник
Неактивен

Рейтинг : [11|2]

Тема: VBA: 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-06-30 17:18:21 (изменено: inseption86, 2018-07-03 21:49:32)

inseption86
Участник
Неактивен

Рейтинг : [11|2]

Re: VBA: 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