"что они пытались сделать с этим кодом?"

Question

Я нашел этот скрытый код в форме общего пользования.

Private Sub Workbook_Open()
If ActiveWorkbook.FileFormat <> 52 And ActiveWorkbook.FileFormat <> 50 Then
ActiveWorkbook.Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute

Я не знаю, для чего он нужен.

SendKeys "^{PGDN}"
SendKeys "%(C)" & "Cont_2015/*69"
SendKeys "%(o)" & "Cont_2015/*69"
SendKeys "{TAB}" & "~"
ThisWorkbook.VBProject.References.AddFromGuid GUID:="{0002E157-0000-0000-C000-000000000046}", Major:=5, Minor:=3

это все

ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub

Answer 1

Код сначала разблокирует проект VB, а затем запускает некоторые макросы sendkeys - это работа, имитирующая нажатие клавиш на клавиатуре, так что это запускает Control Pagedown, Alt C, «sometext», Alt o, «some text», Tab и наконец введите.

затем добавляет ссылку на проект и, наконец, сохраняет и закрывает файл

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

Более подробную информацию можно найти Здесь