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

2020年9月28日21:10:40 评论 373 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

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

在选项里 找到收信人设置

表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

发表评论

您必须才能发表评论!