target executable C:\Level Up! Games\Server OFF\element\elementclient.exe.exe
Relink 6 sections of executable
SECTION  0(   .text):
+  compressed 4579328 -> 2136345 bytes
+  encrypting 2138112 bytes
+  adding 2138112 bytes
SECTION  1(  .rdata):
!  contains TLS directory
+  adding 438272 bytes
SECTION  2(   .data):
+  compressed 380928 -> 123019 bytes
+  encrypting 126976 bytes
+  adding 126976 bytes
SECTION  3(	.tls):
+  adding 8192 bytes
SECTION  4(  .data1):
+  encrypting 4096 bytes
+  adding 4096 bytes
SECTION  5(   .rsrc):
+  adding 8192 bytes
integrate bootstub
SECTION  6: 73728 bytes
SECTION  7:  4096 bytes
SECTION  8: 32768 bytes
bootstub compressed to 61440 bytes
set target executable size to 2789376 bytes (51% of 5423104)
PACKING DEFAULT PACKAGE
using ZIP compression
setting compression threshold to 95%
using strong encryption
+2235K(8.9%) 'data\elements.data'
+  66K(4.0%) 'data\gshop.data'
catalog: 72 bytes
total: 26723K in 2 files
STATISTICS
size of program	 -	2727936 bytes
size of bootstub	-	  61440 bytes
size of box		 -	2359706 bytes (8.6% of original)
		total size  -	5149082 bytes
exe packing		 -		  enabled
exe CRC check	   -		 disabled
bootstub			-		  release
SUCCESS

Private Sub Worksheet_Change(ByVal faixa As Range)
  If Not Intersect(faixa, Range("c17:c17")) Is Nothing Then
    If faixa.Offset(0, 0).Value > 0 Then
	  Application.EnableEvents = False
	  MsgBox "celula C17"
	  Application.EnableEvents = True
    End If
  End If
  If Not Intersect(faixa, Range("d17:d17")) Is Nothing Then
    If faixa.Offset(0, 0).Value > 0 Then
	  Application.EnableEvents = False
	  MsgBox "celula D17"
	  Application.EnableEvents = True
    End If
  End If
End Sub