Private Sub Workbook_Open()
Sheets("Uvod").Select
Range("D10").Select

With ActiveWindow
       .DisplayGridlines = False
       .DisplayHeadings = False
       .DisplayHorizontalScrollBar = False
       .DisplayVerticalScrollBar = False
       .DisplayWorkbookTabs = False
End With

With Application
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
End With