Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 165|回复: 18

受保护的视图怎么解除

[复制链接]
发表于 2021-10-8 15:44 | 显示全部楼层 |阅读模式
本帖最后由 hhxq001 于 2021-10-12 14:48 编辑

想将一个工作表A用宏代码导入到另一个工作簿B中,结果不成功。打开A表时,提示“受保护的视图”,只能点击“仍然编辑”,然后保存一下才能再次导入。

问一下群里的高手,有没有办法导入的时候就解除这个限制呢?

受保护的视图错误.png

受保护的视图错误02.png

我的代码是这样的
Sub 导入工资()
    Set sh = ActiveSheet
     With Workbooks.Open(myPath)
    .Sheets(1).UsedRange.Offset(1).Copy sh.[b2]
    .Close False
    End With
    End Sub
导入不成功.zip (22.82 KB, 下载次数: 0)
 楼主| 发表于 2021-10-8 17:10 | 显示全部楼层
在网上搜到这段,但不会添加
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
回复

使用道具 举报

发表于 2021-10-8 17:23 | 显示全部楼层
在文件 。选项。安全性那里。你去设置一下看看呢。
回复

使用道具 举报

 楼主| 发表于 2021-10-8 17:42 | 显示全部楼层
心正意诚身修 发表于 2021-10-8 17:23
在文件 。选项。安全性那里。你去设置一下看看呢。

要代码修改的,因为文件很多,每次修改麻烦的很呢
回复

使用道具 举报

 楼主| 发表于 2021-10-9 16:13 | 显示全部楼层
本帖最后由 hhxq001 于 2021-10-12 14:52 编辑

在网上搜到一段可以避过受保护视图限制的代码,但只能导入前2列,讨教怎么纠正呢

导入不成功.zip (23.41 KB, 下载次数: 0)
回复

使用道具 举报

 楼主| 发表于 2021-10-9 17:25 | 显示全部楼层
改成这句,可以提取所有数据了,但是表头列只能提取前7列表头,其余列表头为空白,不知为何

sql = "select * from [综合所得申报税款计算$]"
回复

使用道具 举报

发表于 2021-10-9 22:19 | 显示全部楼层
本帖最后由 roserice 于 2021-10-9 22:21 编辑

启用编辑,用microsoft query直接导入,不用代码
回复

使用道具 举报

 楼主| 发表于 2021-10-10 06:35 | 显示全部楼层
roserice 发表于 2021-10-9 22:19
启用编辑,用microsoft query直接导入,不用代码

大侠如果有时间,可以给搞一下吗
回复

使用道具 举报

发表于 2021-10-10 07:31 | 显示全部楼层
hhxq001 发表于 2021-10-10 06:35
大侠如果有时间,可以给搞一下吗

不用打开A表,在数据选项卡里面,选择其他数据源,microsoft query,按提示做就可以了
回复

使用道具 举报

 楼主| 发表于 2021-10-10 12:54 | 显示全部楼层
roserice 发表于 2021-10-10 07:31
不用打开A表,在数据选项卡里面,选择其他数据源,microsoft query,按提示做就可以了

按你的方法,找不到xecel文件啊

2345截图20211010125318.png
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-10-20 10:08 , Processed in 0.215175 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表