Workbook_Open - how to combine one and more codes?

[rediffusion]

Hi all! I duplicate this question because сouldn't find a solution. Cross-post is here.

I have in <code style="margin: 0px; padding: 1px 5px; border: 0px; font-variant-numeric: inherit; font-variant-east-asian: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; background-color: rgb(239, 240, 241); white-space: pre-wrap; color: rgb(36, 39, 41);">PERSONAL.XLSB</code> some code. This <code style="margin: 0px; padding: 1px 5px; border: 0px; font-variant-numeric: inherit; font-variant-east-asian: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; background-color: rgb(239, 240, 241); white-space: pre-wrap; color: rgb(36, 39, 41);">VBA</code> Saves and closes all books after clicking on the red cross. It works without any problems:

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">PrivateWithEvents xlApp As Application

PrivateSub Workbook_Open()
Set xlApp = Application
EndSub

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">PrivateSub xlApp_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel AsBoolean)
xlApp.ScreenUpdating =False
xlApp.DisplayAlerts =False
xlApp.EnableEvents =False
ForEach Wb In xlApp.Workbooks
Wb.Save 'Wb.Close True
Next
xlApp.Quit
EndSub

I have another code which I want to work, when I open the Excel. Separately, this code works, but I do not know how to combine? This code opens my own tab on Ribbon:

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">PrivateSub Workbook_Open()
SendKeys "%BP{F6}",True
EndSub

Want to work when I open any Workbook.
</code></code></code>

 

[shg]

Private WithEvents xlApp As Application

PrivateSub Workbook_Open()
  Set xlApp = Application
  SendKeys "%BP{F6}", True
EndSub

 

[rediffusion]

shg

Not working. By the way i have «Office 2019» maybe this is the problem?

 

[rediffusion]

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">Private WithEvents xlApp As Application

Private Sub Workbook_Open()
Set xlApp = Application
End Sub

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">Private Sub xlApp_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel AsBoolean)
xlApp.ScreenUpdating =False
xlApp.DisplayAlerts =False
xlApp.EnableEvents =False
ForEach Wb In xlApp.Workbooks
Wb.Save 'Wb.Close True
Next
xlApp.Quit
End Sub

I have another code which I want to work, when I open the Excel. Separately, this code works, but I do not know how to combine? This code opens my own tab on Ribbon:

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">Private Sub Workbook_Open()
SendKeys "%BP{F6}",True
End Sub</code></code></code>

I made mistakes in the code. Corrected the gaps in codes!

 

[rediffusion]

@shg

Finally i solve this issue.

So if we have the codes then just shove inside and that's it:

[COLOR=#000000][FONT=monospace]Workbook_Open()[/FONT][/COLOR]

As for this line the problem was in the version of Office:

[COLOR=#000000][FONT=monospace]SendKeys [/FONT][/COLOR][COLOR=maroon][FONT=monospace]"%БП{F6}"[/FONT][/COLOR]

In "Microsoft Office 365 2019" everything works well!

Sorry for the stupid Topic!