vba打开文件是否处于受保护视图 如何处理? 图文

2020年9月28日21:10:40 评论 36 views
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

当用vba代码遍历文件时,如果文件是从互联网上下载的,会弹出提示以受保护视图打开,无法继续编辑,此时代码会报错。

vba中ProtectedViewWindow对象是与受保护的视图相关的对象。

在vba中可以使用Application对象的ActiveProtectedViewWindow属性返回ProtectedViewWindow对象。

当返回了ProtectedViewWindow对象以后,如果要启用编辑,可以使用ProtectedViewWindow对象的Edit方法返回对应的Workbook对象。

以下是一个判断当前的excel是否以受保护的视图打开,如果是,则返回对应的工作簿对象。

Sub Q群165159540()
    Dim oWB As Workbook
    Dim oPV As ProtectedViewWindow
    Set oPV = Excel.Application.ActiveProtectedViewWindow
    If oPV Is Nothing Then
    Else
        '如果是受保护视图,则允许编辑
        With oPV
            Set oWB = .Edit
        End With
    End If
End Sub

也可以手动设置允许受保护

在选项里 找到收信人设置

  • 郑广学老师微信号
  • EXCEL880B
  • weinxin
  • 我的微信公众号
  • EXCEL880
  • weinxin
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

发表评论

您必须才能发表评论!