Dunk4Divin
New Member
- Joined
- Aug 21, 2019
- Messages
- 17
- Office Version
- 365
- Platform
- Windows
Hello All. I have a workbook into which I have placed the following code which works as it should. This was done to prevent all following instances of Excel having hidden toolbar etc when opened while this workbook is open. The code below works and allows excel to opened ok with toolbar present but when I try to copy/paste data from another workbook it copies OK but activating the workbook with this code seems to empty the clipboard. Any advice would be gratefully received
VBA Code:
Private Sub Workbook_Activate()
Application.WindowState = xlMaximized 'maximize Excel
ActiveWindow.WindowState = xlMaximized 'maximize the workbook in Excel
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.Zoom = 90
End Sub
Private Sub Workbook_Deactivate()
Application.WindowState = xlMaximized 'maximize Excel
ActiveWindow.WindowState = xlMaximized 'maximize the workbook in Excel
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHeadings = True
End Sub