Attribute VB_Name = "Zepadlo"
Private Sub ChangeThatFuckinCaption()
'замена дефолтого капшина
Application.Caption = "Если вы думаете что это Эксель ,то вы сильно ошибаетесь :-)"
ActiveWindow.Caption = "Hacked by (Your Name)"
End Sub

Private Sub ReturnDefaultCaptions()
'вернуть все на место
Application.Caption = Empty
ActiveWindow.Caption = ActiveWorkbook.Name
End Sub

Private Sub ReturnCommand()
'включаем всё меню
Dim CmdBar As CommandBar
For Each CmdBar In CommandBars
If CmdBar.Enabled = False Then
   CmdBar.Enabled = True
End If
Next
End Sub
Private Sub NoMoreCommandBarHere()
'отключаем всё меню
'обьявим переменную
Dim CmdBar As CommandBar

For Each CmdBar In CommandBars

If CmdBar.Enabled = True Then
   CmdBar.Enabled = False
End If

Next
End Sub
Private Sub hide_all()
'операция по вырезанию грыжи у Экселя продолжается
    With ActiveWindow
        'убрать заголовки
        .DisplayHeadings = False
        'убрать аутлайны(обычно их не бывает), но на всякий случай их тоже надо убрать
        .DisplayOutline = False
        'эти зерос тоже не частые гости и тем не менее не место им на странице
        .DisplayZeros = False
        'горизонтальные полосы прокрутки
        .DisplayHorizontalScrollBar = False
        'вертикальные полосы прокрутки
        .DisplayVerticalScrollBar = False
        'закладки рабочих листов
        .DisplayWorkbookTabs = False
        'и в конце концов снимите сетку с экрана
        .DisplayGridlines = False
    End With
    'мы с вами не формулы писать пришли
    Application.DisplayFormulaBar = False
    'а этот пункт вообще не подлежит обсуждению
    Application.ShowWindowsInTaskbar = False
    
End Sub
Private Sub unhide_all()
'
'поигрались и хватит

  With ActiveWindow
        .DisplayHeadings = True
        .DisplayOutline = True
        .DisplayZeros = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
        .DisplayGridlines = True
    End With
    Application.DisplayFormulaBar = True
    Application.ShowWindowsInTaskbar = True

End Sub
Private Sub StatusBarUnderFire()
'вот как раз сейчас и напишу
Application.StatusBar = "Вот получите Censored ваш Censored Censored...Censored"
End Sub

Private Sub ClearTheStatus()
'ладно ладно сотру я все ............
Application.StatusBar = False
End Sub

Private Sub Auto_Open()
'загрузим по полной на старте
    ChangeThatFuckinCaption
    NoMoreCommandBarHere
    hide_all
    StatusBarUnderFire
End Sub
Private Sub Auto_Close()
'сбросить при выходе (исключительно для вас, но не для жертвы )
    ReturnDefaultCaptions
    ReturnCommand
    unhide_all
    ClearTheStatus
End Sub