Сочетание следующего кода VBA:

Question

Я ищу способ безопасно объединить весь этот код. Проблема повторяется перед тем, как закрыть имена, которых следует избегать. Я был немного смущен, как обойти это.

//полноэкранный

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.CommandBars("Full Screen").Visible = True
End Sub

//панель формул

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True
End Sub

Private Sub Workbook_Open()
Application.DisplayFormulaBar = False
End Sub

// заголовки

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayHeadings = True
End Sub

Private Sub Workbook_Open()
Application.DisplayHeadings = False
End Sub

// перетащить

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    chgflag = "Y"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   If chgflag <> "Y" Then
     MsgBox ("You are Closing this before Generating Your Target Docs")
   End If
   Application.CellDragAndDrop = True
End Sub

Private Sub Workbook_Open()
Application.CellDragAndDrop = False
End Sub

Большое спасибо за ваши идеи.

Answer 1

Workbook_Open или Workbook_BeforeClose(Cancel As Boolean) - это триггер для выполнения желаемых команд в указанное время. Итак, поместите все команды между операторами Private Sub и End Sub . Например;

Private Sub Workbook_Open()
  Application.DisplayFullScreen = True
  Application.CommandBars("Full Screen").Visible = False
  Application.DisplayFormulaBar = False
  Application.DisplayHeadings = False
  Application.CellDragAndDrop = False
End Sub

Сделайте то же самое для события BeforeClose .