Выполнение книги Excel с помощью ярлыков или из каталога вызывает проблемы в Office 365 - PullRequest
Новая
       43

Выполнение книги Excel с помощью ярлыков или из каталога вызывает проблемы в Office 365

0 голосов
/ 09 января 2020

В Windows 7 и Office 360 ​​с Excel v.10 я создал книгу Excel. Рабочая тетрадь имеет форму . Когда форма загружается, VBA делает рабочую книгу невидимой командой Application.Visible = False ; Итак, видна только Форма . Если я выполню книгу с помощью ярлыка, щелкнув ее в каталоге, в редакторе VBA или в Excel (нажмите «Открыть», затем дважды щелкните имя книги), форма останется видимой, а книга исчезнет. Отлично! Затем мы обновились до Windows 10 и Office 365 с Excel v.16 . Теперь, когда я выполняю книгу из ярлыка или щелкаю ее в каталоге , открывается форма , но книга остается видимой! Если я выполняю книгу из редактора VBA или из Excel, книга исчезает, как и раньше . Итак, есть проблема с ярлыками Excel или щелчком по нему в его каталоге? Есть ли исправление? Код ниже является исходным кодом, который открывает форму. Спасибо за любую помощь! 

Sub Workbook_Open()
    With Application
        .Calculation = xlAutomatic
        .CalculateBeforeSave = False
        .ScreenUpdating = False
    End With
    'Password Protect WorkSheet
    With MainForm
        .Label3 = "Program Name"
        .ProgToRun.Text = Workbooks(1).Worksheets(1).Range("A2")
        ActiveSheet.ListObjects("Table1").ListColumns(1).DataBodyRange.Select
        .Label1 = "Choose a program to run from drop-down menu." & vbCr & _
        "Then, click the " & """Run Selection""" & " button."
        .Label2 = ""
        .BttnYES.Visible = False
        .BttnNO.Visible = False
        .BttnRun.SetFocus
        .Show vbModeless
    End With
    Application.Visible = False
End Sub
...