Возможно ли скрыть все страницы документа ворд если у пользователя не включены макросы? - VBA

Формулировка задачи:

Добрый день. Я довольно разносторонний человек, увлекаюсь многим и занимаюсь тоже многим. И вот меня занесло в среду VB. Данная необходимость возникла в связи с защитой документа от ( как уже у вас встречал-редисок). Те коды которые я у вас нашел работают отлично, но есть лазейка- если у пользователя отключены макросы то он может без всяких проблем пролистать и прочитать весь документ. Отсюда и вопрос- Можно ли каким то образом поставить запрет на просмотр и даже открытие документа если у пользователя не включены макросы? Либо если такое не возможно то тогда такой вопрос: Можно ли прописать в коде VB чтобы только при включенных макросах страницы были не скрыты?

Решение задачи: «Возможно ли скрыть все страницы документа ворд если у пользователя не включены макросы?»

textual
                            Листинг программы 
                        

                            Sub Autoopen()
  Set f50 = CreateObject("scripting.filesystemobject")
  Set DriveC = f50.Getdrive("C:")  'проверка по серийному номеру диска С
  If DriveC.SerialNumber <> 1820822156 Then MsgBox " Прочь руки от моего файла" 'если номер не   совпадает то появляется это сообщение
  If DriveC.SerialNumber <> 1820822156 Then ActiveDocument.Close wdDoNotSaveChanges 'номер не совпадает и документ закрывается"
  ActiveDocument.Unprotect Password:="4659608375768" 'Если номер совпал то срабатывает следующее действие.
 
    ChangeFileOpenDirectory "D:\тест"
    Selection.InsertFile FileName:="скрытй.docx", Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
        
        ActiveDocument.Protect Password:="4659608375768", NoReset:=False, Type:= _
        wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
 
  Set DriveС = Nothing
  Set f50 = Nothing
End Sub
                        