Всем привет!
Офис 2016 стандарт, после обновлений: excel2016-kb4484507-fullfile-x64-glb, excel2016-kb4462115-fullfile-x64-glb, перестал сохранять файлы в сети, если изменить путь на компьютер, то все работает:
В настройках, разрешил сетевым документам быть надёжными
Если сохранять через сохранить как, все работает
Офис 2016 стандарт, после обновлений: excel2016-kb4484507-fullfile-x64-glb, excel2016-kb4462115-fullfile-x64-glb, перестал сохранять файлы в сети, если изменить путь на компьютер, то все работает:
Код |
---|
Private Sub CommandButton1_Click() Application.ScreenUpdating = False ActiveSheet.Select ActiveSheet.Copy ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value ActiveSheet.Shapes.Range(Array("CommandButton1")).Delete With Range("R2").Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown = True .ShowInput = True .ShowError = True End With Application.DisplayAlerts = False ActiveWorkbook.SaveAs [R1] & [P1] & ".xlsx" 'при сохранении в сеть, файл закрывается самостоятельно!!! ActiveSheet.Range("$A$9:$K$30").AutoFilter Field:=2, Criteria1:="<>-" Worksheets(1).Columns("P:R").Delete ActiveWindow.View = xlPageBreakPreview End Sub |
Если сохранять через сохранить как, все работает