hide

 

 Private Sub Workbook_Open()

With Application

.ScreenUpdating = False

.Calculation = xlCalculationManual

.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)"

.WindowState = xlNormal

.CommandBars("full screen").Visible = False

.CommandBars("worksheet menue bar").Enabled = False

.DisplayStatusBar = False

.DisplayScrollBars = False

.DisplayFormulaBar = False

.Width = 845

.Height = 408

End With

With ActiveWindow

.DisplayWorkbookTabs = False

.DisplayRuler = False

.DisplayHeadings = False

End With

With Application

.ScreenUpdating = True

.Calculation = xlCalculationAutomatic

End With

End Sub