If macro password cracked then kill thisworkbook !

Greetings,
If you dont want to share your macros you can put a password to your file.
But there are some programs which are designed to crack your password.
So, putting a password is not useful.

Any support will be thankful if Macro1 is realizable ?

Sub Macro1()
'If vba password cracked then Call Macro2
End Sub

Sub Macro2()
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close SaveChanges:=False
End Sub