您的位置: 首页 > EXCEL技巧 > ExcelVBA >

用VBA在受到保护的工作表中进行自动筛选

时间:2014-10-12 整理:docExcel.net

当在工作表中设置了自动筛选,而在保护工作表时没有选择允许“使用自动筛选”,那么自动筛选功能在保护工作表后无法使用。如果需要在不解除工作表保护的情况下能够使用自动筛选,可以用下面的VBA代码:

1.按Alt+F11,打开VBA编辑器,在“工程”窗口中选择相应的工作表,在右侧的代码窗口中输入下面的代码:

Sub AutoFilterInProtectedSheet()
    With ActiveSheet
   .EnableAutoFilter = True
   .Protect DrawingObjects:=True, _
     contents:=True, Scenarios:=True, _
     UserInterfaceOnly:=True
   End With
   End Sub

2.让受保护的工作表处于活动状态,运行代码。

Word2003无法在文档和模板之间复制自动图文集词条 问题:Word2003无法在文档和模板之间复制自动图文集词条
回答:...文档,而 FrontPage 模板可以形成整个网站。)的访问可能受到下列限制: 文档受到保护,只能添加备注 (批注:作者或审阅者为文档添加的注释或批注。Microsoft Word 在文档的页边距或“审阅窗格”中的气球上显示批注。...
Blackphone 推出应用商店,加强隐私保护 问题:Blackphone 推出应用商店,加强隐私保护
回答:...话筒和摄像头,我们或许会问一下为什么,并且进行首次筛选。” Blackphone 基于 Android,但是没有使用 Google 的应用商店。许多 Blackphone 用户使用的是亚马逊应用商店。Blackphone 公司希望,自己推出的应用商店能够促进创新,...
癌症是为保护我们“演化”而来 问题:癌症是为保护我们“演化”而来
回答:...他们提出了一种假设:当细胞的健康因为辐射或其它因素受到威胁,蛰伏的预编程功能将会唤醒,以不惜一切的生存下来。 Davies 说,癌症是一种自动防故障装置,一旦子程序被触发,它会无情的执行预设的程序。
拒接垃圾邮件:微软推出 IP 过滤功能 问题:拒接垃圾邮件:微软推出 IP 过滤功能
回答:...nge Online Protection (EOP) 是基于云的电子邮件筛选服务,可帮助个人或企业防御垃圾邮件和恶意邮件,并保护用户规避违反邮件策略的功能。EOP 可以简化对邮件环境的管理,缓解由于维护内部部署硬件和软件而产...
微软Office2007中文中小企业版一千七 问题:微软Office2007中文中小企业版一千七
回答:...管理以及提供更好的客户服务。如可使用改进的垃圾邮件筛选器和反仿冒网站筛选器来保护自己、在Microsoft Office Outlook 2007中计划将显示在日历上的任务等等。其还针对企业提供一系列服务器应用程序,非常适合中小型企业使用...
【开源社】您会为开源项目贡献代码吗 问题:【开源社】您会为开源项目贡献代码吗
回答:...旦您的想法出现在固定的媒介上,纸质的或电子的,就会受到版权保护,代码的版权也是如此。 版权持有人可以以自己认为合适的方式处理自己的这些资料,这包括各种不同的授权方式。 开源软件的代码发布前是需要经过 OSI ...
相关知识:

下面内容对您也许有用

      话题:保护工作表后vba无法运行,怎么办?知道
      问:我有个工作表,有些单元格通过VBA代码进行运算(必须要使用vba),有些单元格
      答:在要操作工作表之前和之后加入工作表保护和撤消保护的代码 Sheet6.Unprotect Password:="y121635bk"'解除工作表保护 Sheet6.Protect Password:="y121635bk"'打开 excel中怎样保护vba代码不被查看 关于vba运行和工作表保护的冲突
      话题:Excel VBA中删除被保护工作表中的指定行。知道
      答:不知道你怎样保护工作表保护时是否还允许删除。如果设置保护为什么都不能修改呢?你可以使用密码先解锁,删除后再保护起来,屏幕闪,可以加screenupdating。 EXCEL中如何用VBA删除多个工作表 Excel如何用VBA代码删除工作表
      话题:请教各位大师:EXCEL如何用VBA按列的数据范围(大于多少小于
      答:你说得不清不楚,我只好重新设题了:假设表中有ABCD四列数据,若当中某一列的所有单元格内数据都在50~100之间,则保留该列,否则删除该列。Sub 筛选列()Dim i,j, 用excel VBA怎么把多个工作表里 EXCEL中如何用VBA删除多个工作表
      话题:如何用VBA控制循环只在当前工作表进行?知道
      问:现存两个工作簿Book1和Book2,两个工作簿各设一张数据汇总表,该数据汇总表的
      答:你是把代码是放在哪里,单独分开放在book1和book2还是放其他地方了,不知道你是怎么调用gname function的? EXCEL VBA循环的问题 Excel vba 循环效率
      话题:excel中怎样用VBA实现自动复制一列数据到另一个工作表?
      问:sheet 1:-A-B-C-D-E-F-G-H-1 1 2 3 4 5 6 7 8^2 234 567 3 136 908 4 512 680
      答:代码如下。详见附件 Private Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Range("A1"),Target)Is Nothing And Target.Count=1
      话题:怎么保护有vba和公式的工作表
      问:我一工作表vba,也有公式,我不想别人修改我的公式或误操作影响公式,所以想要
      答:vba与公式保存要分两步进行:第一,保护VBA,打开VBA窗口,里面有一个“工具-VBAProject属性”,打开它,选“保护”选项卡,勾选其中的“查看时锁定工程”,并 怎样保护Excel工作表 如何通过VBA实现对EXCEL公式的
      话题:excel里用如何函数实现自动筛选的功能
      如图一中是自动筛选到三十二次的动作如图二中是自动筛选后的结果现在我想得到函数做不到,用VBA可以把下列代码拷贝到你要实现功能的工作表的VBA窗口轴 假设表一数据在A1:E100,表二B2中输入=
      话题:如何用vba代码在保护工作表的活动区域写入数据
      答:工作表的活动区域应是设定可输入数据的范围 假设要在A1输入 Range("A1")=你要输入的数据 初学vba,请问:想将sheet1中C4: 在excel中如何使用VBA宏代码快速
      话题:excel保护工作表后vba失效要怎么弄
      问:我有一工作表,有公式,有vba,当我在工具-保护工作表-加密后,vba失效,请问要
      答:vba中你需要改动受保护的单元格前,要用ActiveSheet.UNProtect解锁,用ActiveSheet.Protect加 锁。在加锁状态你是无法改动单元格数据的,即使是用vba。 在EXCEL中,如何用VBA查询当前 excel07 关闭文档的时候自动保护
      话题:用excel VBA做一个程序,筛选两个工作表中的重复数据
      问:如果你知道思路,给我邮箱我把表给你发过去,愿高手帮忙
      答:Sub tt()Cells(1,1).Select Selection.AutoFilter Field:=1,Criteria1:="5"Range("a2:a100").SpecialCells(xlCellTypeVisible).Select Selection.Delete End Sub
最新评论