Можно ли средствами VBA получить серийный номер процессора? Или какие-нибудь другие уникальные физические параметры компьютера?

Добрый день всем!
Ситуация такая - из Книга1.xls вызывается Книга2.xls. После этого Книгу1 нужно закрыть и запустить форму в Книге2.
Пробовал таким кодом в Книге2, но форма почему-то не запускается

Private Sub Workbook_Open()
Workbooks("Книга1.xls").Save
Workbooks("Книга1.xls").Close
Forma2.Show
End Sub

Если убрать строку Workbooks("Книга1.xls").Close форма открывается,  но остается открыта Книга1.
Подскажите, что сделать, чтобы код работал.