скачивается файл эксэл с защитой на макрос а функция ,, Application.ActiveProtectedViewWindow.Edit,, не срабатывает пока не нажмёшь на книгу и вся автоматика летит ....вставлял и там и сям, никак.
пробивал и так.
cntr_manifest скаченный файл но число меняется
пробивал и так.
cntr_manifest скаченный файл но число меняется
Код |
---|
Sub Auto_edit_Workbooks() Dim wb As Workbook Dim wbPV As ProtectedViewWindow If Application.ProtectedViewWindows.Count > 0 Then For Each wbPV In Application.ProtectedViewWindows wbPV.Activate Set wb = wbPV.Edit() Next wbPV Else End If Set wb = Nothing End Sub |