Серый форум — VBA: Personal.xlsb & auto_open

Re: VBA: Personal.xlsb & auto_open

null@example.com (Peterfipsy) — Mon, 01 Apr 2019 23:41:18 +0000

Absolutely with you it agree. Idea good, it agree with you.

Re: VBA: Personal.xlsb & auto_open

null@example.com (JSmаn) — Tue, 03 Jul 2018 12:05:36 +0000

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

Re: VBA: Personal.xlsb & auto_open

null@example.com (inseption86) — Sat, 30 Jun 2018 13:18:21 +0000

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

VBA: Personal.xlsb & auto_open

null@example.com (inseption86) — Sat, 30 Jun 2018 11:11:11 +0000

Добрый день, прошу помощи в редактировании скрипта, если при закрытии книги, то всё ОК, а если 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