Ошибка объекта переменная или переменная блока не устанавливается, только когда активирован защищенный просмотр

Question

Я пытаюсь сделать следующее. Когда я открываю книгу в папке, она открывается, запускает код, в котором создается новая копия этой книги в папке «ТЕМП», а оригинал закрывается. Идея состоит в том, чтобы открыть несколько копий одновременно и при закрытии все пользовательские обновления копируют в оригинал.

Все работает хорошо, когда книга открывается во второй раз, но при первом открытии, когда в режиме защищенного просмотра Iget Ошибка времени выполнения '91' Переменная объекта или С переменной блока не задано.

Я прочитал много хорошего об этой проблеме, но, похоже, не могу ее выяснить.

Любая помощьвысоко ценится.

Private Sub Workbook_Open()
Dim strFilename, strDirname, strDirname2, strPathname, strDefpath As String
 'Count files in folder
Dim MyFolder As String
Dim MyFile As String
Dim j As Integer
Dim strDefpatheee As String
Dim strDirnameeee As String

strDirnameeee = "TEMP"

strDefpatheee = Application.ActiveWorkbook.Path
MyFolder = strDefpatheee & "\" & strDirnameeee
MyFile = Dir(MyFolder & "\" & "*.xlsm")
Do While MyFile <> ""
    j = j + 1
    MyFile = Dir
Loop

 'Save as same name + count of files in folder TEMP
 On Error Resume Next ' If directory exist goto next line
strDirname = "TEMP" ' New directory name

strFilename = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & " " & j + 1 'New file name
strDefpath = Application.ActiveWorkbook.Path 'Default path name
'If IsEmpty(strDirname) Then Exit Sub
'If IsEmpty(strFilename) Then Exit Sub

'MkDir strDefpath & "\" & strDirname
strPathname = strDefpath & "\" & strDirname & "\" & strFilename 'create total string

ActiveWorkbook.SaveAs Filename:=strPathname & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Sheets("ACTIONS").Range("BG2").ClearContents
Sheets("ACTIONS").Range("D6").Select
PasswordEntry.Show
End Sub