Spehovac

Private Sub Workbook_Open()
    Dim prazdnyRiadok As Long

    ' prvy prazdny riadok
    prazdnyRiadok = _
    Worksheets("Špehujeme").Cells.SpecialCells(xlCellTypeLastCell).row + 1

    ' zapiseme kto
    Worksheets("Špehujeme").Cells(prazdnyRiadok, 1) = Application.UserName

    ' zapiseme kedy
    Worksheets("Špehujeme").Cells(prazdnyRiadok, 2) = Now

    ' tajny list skryt
    Worksheets("Špehujeme").Visible = xlSheetHidden 'xlSheetveryHidden

    ' ulozit
    ThisWorkbook.Save

End Sub