中企动力 > 商学院 > excel开发工具灰色
  • ?

    一口气收集了7个Excel偏方

    张凤妖

    展开

    小伙伴们周六好,今天和大家一起学习一下,如何处理Excel中的这些常见问题:

    找不到【开发工具】选项卡?

    默认情况下,开发工具选项卡不会显示在功能区内,如果要显示开发工具,可以右键单击功能区的任意选项卡,自定义功能区→勾选开发工具就可以显示了。

    需要特大字号怎么办?

    Excel默认的字号最大是72,其实可不受这个限制,在字号栏中可直接输入字号数字,然后按回车。

    GIF

    能够输入的最大字号为409,不过这种巨无霸的字号,应该很少用到,你可以试试。

    按钮变成灰色的不能用?

    当打开某个文件时,你会发现很多按钮变成了灰色不可用的状态,这个问题让很多小伙伴都困惑过。

    GIF

    其实,这是使用高版本的Excel程序打开了低版本xls格式的工作簿,只要按F12键,把工作簿另存为xlsx格式,然后重新打开,这些功能就可以使用了哦。

    按方向键不能切换单元格?

    在EXCEL中为什么按方向键整个页面都往下拉,而不是一个个单元格切换?

    这是因为不小心按了ScrollLock键,也叫做滚动锁定键,只要再按一下就好了。

    按键位置一般是在键盘的这个地方:

    输入公式后不计算?

    很多小伙伴在单元格中输入公式后,结果就变成这样了:

    GIF

    老祝说,出现这种情况,先检查一下公式所在单元格的格式,把格式设置成常规后再双击一下公式,按回车,就恢复正常了。

    GIF

    公式复制后都显示同样的结果?

    GIF

    如果公式向下复制后,各个单元格中都是一样的结果,多数情况下是你的Excel开启了手工重算。

    只要在【公式】选项卡下,依次单击计算选项→ 自动,就OK了。

    斜线表头怎么搞?

    每一个抽风的领导身后,都有一群武艺超群的表哥表妹。一般报表中是不需要添加斜线表头的,但是,我说的是但是,领导就喜欢这种样式的报表怎么办?

    先说单斜线表头,在单元格中添加一个45°的边框线,然后输入项目名称。再把光标放到两个项目名称之间,按Alt+回车,使其强制换行。

    最后按空格键适当调整文字位置即可。

    GIF

    双斜线表头可以插入线条形状和文本框制作。

    先插入线条,然后插入文本框,在文本框中输入内容后,再设置文本框为无填充颜色、无轮廓。最后拖动文本框到合适的位置。

    设置好一个文本框或是线条之后,按住Ctrl键不放拖动它,这样就是复制操作,只要把新复制的文本框修改一下文字即可。

    GIF

    学习过程中,总会遇到各种问题,我们就是在不断的解决问题过程中,一步步的学习成长。好了,今天的分享就是这些吧,祝各位小伙伴一天好心情!

  • ?

    我的Excel中毒了!数据看不到了!

    一水涧

    展开

    我的Excel中毒了!

    很多时候,莫名其妙的,或不小心点到了哪里,亦或是同事或领导发过来之后,整个表格打开之后就是这个样子了?我的数据去哪里了呢?为什么所有的菜单栏上面的按纽都是灰色的?

    发现这个表格开发工具点亮的图标倒是挺多的,会不会被VBA给限制了?

    按ALT+F11,或点击左上方的Visual basic 发现里面并没有任何的代码

    那么这是如何造成的呢?

    其实是整个表格都隐藏了,这个方法通常用来不想新手或小白来看我的表格数据

    这个时候只需要点击取消隐藏就可以将所有数据显示出来了!

    好不容易将隐藏的工作表显示出来了,我的表格怎么是下面这样的显示,而且怎么调整都调整不过来?

    或者是出现的下面的情形

    我的表格是不是中毒了?为什么做个表格这么难?

    其实这是Excel表格的几种视图模式,上面两张分别是分页预览和页面布局。

    下次再碰到这种情形,你知道怎么处理吗?

    =================

  • ?

    Excel分类汇总怎么用与分类汇总、排序及筛选呈灰色的原因

    鲍梦琪

    展开

    在 Excel 中,分类汇总是对数据按类进行统计汇总;例如一个服装销量表,可以用分类汇总统计男装或女装的数量及销量。Excel分类汇总既可以汇总一列也可以汇总多列,但一次只能分类汇总一列,若一次要汇总多列需要用 VBA 实现。另外,某些情况下,分类汇总呈灰色不能用,并且排序和筛选也有这样的问题,出现这种情况的原因是什么以怎么解决?下面先说明分类汇总、排序和筛选呈灰色的原因并分享解决方法,再介绍Excel分类汇总怎么用以及表格如何汇总,操作中所用版本为 Excel 2016。

    一、Excel分类汇总和排序与筛选为什么呈灰色不可选择

    1、选中一个服装销量表,选中“1月销量”,再选择“数据”选项卡,分类汇总、排序及筛选都呈灰色不可选择,如图1所示:

    图1

    2、这个服装销量表套用过表格样式,在它的右下角有一个蓝色的直角小图标,它已经是表格而不是区域,而在 Excel 中,表格不能分类汇总,也不能排序及筛选,只有把表格转为区域才能进行这三项操作。选中整个表格,在其上右键,在弹出的菜单中依次选择“表格”→ 转换为区域,如图2所示:

    图2

    3、弹出一个询问是否将表转换为普通区域小窗口,如图3所示:

    图3

    4、选择“是”,表格右下角的直角小图标不见了,再选中表格任意一列,例如“小类”这列,此时,分类汇总、排序和筛选都可以选择了,如图4所示:

    图4

    二、Excel分类汇总怎么用

    (一)排序

    1、分类汇总前应该先排序,把属于一类的归在一起,不然,若同一类分布在不连续的行会进行多次汇总,如图5所示:

    图5

    2、图5中对“小类”进行了分类汇总,由于衬衫分布在 2、3 行和 12 行,因此进行了两次分类汇总,这是由于没有排序造成的。

    3、排序。选中 D 列,选择“数据”选项卡,单击“排序”左上角的“升序”图标,打开“排序提醒”窗口,选择“扩展选定区域”,单击“确定”,则对“小类”排好序,三条衬衫记录已经归在一起(3 到 5 行),操作过程步骤,如图6所示:

    (二)对一列分类汇总

    1、选中已经排序好的 D 列,选择“数据”选项卡,单击屏幕右上角的“分类汇总”,打开“分类汇总”窗口,“分类字段”已经选择了选中的“小类”,“汇总方式”选择了“计数”(即统计每类有几条记录),“选定汇总项”勾选了唯一的“小类”(因为当前只选中了一列),单击“确定”,则对“小类”进行分类汇总,操作过程步骤,如图7所示:

    图7

    2、在汇总列的右下角有一个刷子,单击它展开有三个选项,即“与左边格式相同、与右边格式相同和清除格式”,如图8所示:

    图8

    3、当前选择的是“与左边格式相同”,即插入的汇总结果列放在汇总列(D 列)的左边且格式与 D 列左边的列相同;如果选择“与右边格式相同”,则汇总结果列放在汇总列(D 列)右边且格式与 D 列右边的列相同,同时汇总结果也被清除;如果选择“清除格式”,则会把汇总结果列的格式清除,同样会把汇总结果清除;演示操作如图9所示:

    图9

    (三)对多列分类汇总

    1、先对“小类”分类汇总,再对“1月销量”分类汇总。单击 D 选中“小类”列,选择“数据”选项卡,单击“分类汇总”,打开“分类汇总”窗口,各选项保持默认设置即可,单击“确定”,则对小类按“计数”汇总出结果;选中“E 列和 F 列”,再次单击“分类汇总”,打开“分类汇总”窗口,注意“分类字段”要选择“小类”,单击“替换当前分类汇总”,再单击“确定”,则对“1月销量”按“求和”汇总出结果;操作过程步骤,如图10所示:

    图10

    Excel 一次不能同时对多列分类汇总,所以要对多列分类汇总需要分步进行,每次只能对一列分类汇总;对多列分类汇总时,应该先汇总分类,再汇总产品;但要注意,分类汇总产品时要把分类列一起选中,同时不能勾选“替换当前分类汇总”。

    2、除对两列分类汇总外,Excel还可以对三列以上进行分类汇总,图11就是对三列的分类汇总效果:

    图11

    从图11中可以看出,总共只有8条“女装”记录,但“大类”统计出 10,这是因为统计“小类”和“1月销量”时新插入了两行用于放统计结果。

    (四)删除分类汇总

    选中 C、D、E、F 四列,单击“分类汇总”,在打开的窗口中单击“全部删除”,则对三列的分类汇总结果全部被删除,但还留下一列空列,右键该上面的字母,在弹出的菜单中选择“删除”,则空列被删除,操作过程步骤,如图12所示:

    图12

    Excel分类汇总一次只能汇总一列,如果一次要汇总多列,则需要用 VBA 实现;若用 VBA 分类汇总,还可以加多个条件。

    三、Excel表格汇总

    1、在 Excel 中,区域是不能汇总的,只有表格才能汇总。在分类汇总之前,我们已经把“服装销量表”由表格转换为区域,选中表格右键菜单中已经没有“表格”选项,因此要汇总必须把它重新转为表格,操作过程步骤,如图13所示:

    图13

    2、操作过程步骤说明:框选整个表格,在上面单击右键,弹出的菜单中没有“表格”选项;单击“开始”选项卡下的“套用表格样式”,选择一种表格样式,在弹出的窗口中单击“确定”;Excel 自动切换到“设计”选项,单击“筛选按钮”把标题行的“筛选”图标去掉;再次右键表格,在弹出的菜单中依次选择“表格”→ 汇总,则自动对“总销量”汇总。

  • ?

    WPS Office 2019 办公组件,开发工具 VBA 宏 不能用怎么办?

    断缘

    展开

    我们最为常用的办公组件只有WPS Office 和Microsoft Office这两种,对于国人来讲,我们一般选择使用WPS Office,因为虽然Microsoft Office功能更强大,但是WPS Office更符合我们的使用习惯。

    WPS Office 2019 是金山公司发布的最新版本的办公组件,是一次非常大的革新,软件的界面有了很大的改观,整个版面给人一种焕然一新的感觉。

    版面

    版面简约充满中国风。特别是所有图标都可以居中排列,而不再局限于所有图标都居左排列,最为重要的是所有的UI图标设计,简单的线条勾勒出了图标的含义,充满了中国风的元素,真的是简约而不简单,从中可以看出设计师的别出心裁。

    聚合

    Word/Excel/PPT整合在一起。相比于WPS Office 2016版本及以前的版本,以及Microsoft Office中把Word/Excel/PPT每一个图标都在桌面显示,WPS Office 2019在桌面显示的只有简简单单一个图标,打开这个图标就打开了所有功能,使用起来更加的简单方便,能够极大的提高我们的工作效率。

    图标

    软件启动速度飞快。WPS Office 2019给人最大最直观的感觉就是,软件的启动超快。虽然每个版本的WPS Office启动速度都非常的快,但这一个版本的更快,可以说是秒启动,减少了我们的等待时间,这让我们感觉工程师在软件启动方面真是下了大功夫。

    安装包

    软件安装包依然轻便。WPS Office 2016版本的安装包一般都在50兆左右,而最新版本的WPS Office 2019也依然没有超过100兆,这让我们无论是下载还是安装都可以非常快速,这也是WPS Office优于Microsoft Office的地方,毕竟在基本功能都一样的情况下,快才是王道。

    功能

    功能更加丰富强大。WPS Office 2019办公组件不再局限于Word/Excel/PPT这三种最常用的功能,同时加入了PDF文档阅读和转换功能、思维导图制作功能、秀堂H5制作功能、流程图制作功能、便签功能、识别图片中文字功能、云文档和云协作编辑功能。这些功能的加入,可以让我们一站式解决所有办公方面的问题。

    最大的弊端如何解决?

    虽然WPS Office 2019加入了多种多样的元素和功能,让我们更加钟爱这一款办公组件,但是它有一个巨大的弊端,就是WPS Office 2019本身并不附带VBA组件部分,这让热衷于使用或者需要使用VBA宏的小伙伴们感觉非常的不便。当然,我们也可以使用官方的解决方案,就是开通企业版WPS,但是一方面价格太贵,另一方面,对于偶尔使用VBA的小伙伴们来说,非常的不划算。

    VBA组件

    我们这里给出了一个免费的解决方案,就是安装一组插件,插件安装完成之后,我们可以看到WPS Office 2019的开发工具中VBA宏就不再是灰色的了,而变得可以正常的点击使用了,在这一组插件中,一共是四个文件,我们按顺序点击安装即可,安装完成之后就可以成功解决VBA宏不能用的问题了。

    宏

    对于这一组VBA插件,小伙伴们可以在网络上面下载,也可以在留言转发关注小编之后,私信回复WPS来获得下载链接。

  • ?

    Excel中合并居中按钮变灰色的怎么回事?

    石水之

    展开

      撤销工作表保护即可,工作表保护状态下合并并居中按钮灰色。

      以Excel2003为例,撤销工作表保护如下:

      第一步,打开受保护的Excel2003表格文档(下图中的合并居中按钮是灰色的);

      

      第二步,点击“工具”→“保护”→“撤销工作表保护”,出现如下对话框:

      

      第三步,输入密码,点击“确定”。

      此时工作表保护已经取消,再次查看“合并居中按钮”时已经不是灰色的了,如下图所示:

    注:

      Excel2010取消工作表保护的方法是:“审阅”→“撤销工作表保护”,输入密码,点击“确定”。

    (本文内容由百度知道网友yzwb我爱我家贡献)

  • ?

    excel2010这样将背景设置为底纹灰色

    苗乐荷

    展开

      在excel2010中,将背景设置为底纹灰色,图案为细的逆对角线,淡紫色的方法如下:

      第一步,打开excel2010;

      第二步,选中要设置背景的单元格,丙点击右键→”设置单元格式“,出现如下对话框:

      

      第三步,点击”填充“,变成如下对话框:

      

      第四步,按照上图中的标记,进行设置,将背景色设置为’灰色‘,将图案颜色设置为”紫色“或”淡紫色“(灰色和紫色中和后即为”淡紫色“),图案样式设置为”细逆对角线“,然后点击确定。

      至此,设置完毕,效果如下图:

       

      

    (本文内容由百度知道网友yzwb我爱我家贡献)

  • ?

    Excel用切片器筛选数据与删除筛选器及切片器呈灰色不可用的原因

    丹尼尔

    展开

    自 Excel 2010 起新增了切片器功能,切片器主要用于筛选数据;它把每个字段独立显示于一个小窗口,当选择一个窗口中的字段时,另一个窗口中属于所选字段的选项会被筛选出来;例如选择一个分类或一个部门,属于该分类或该部门的选项会被筛选出来,被筛选出的选项会自动排在前面且用黑体显示,非常便于阅读。

    插入切片器后,如果筛选完成,可以把切片器删除,但删除前要注意先清除筛选器。另外,在用切片器筛选之前需要先插入它,插入切片器时,偶尔会遇到切片器呈灰色不可用的情况,它与Excel文档类型有关。以下就是Excel用切片器筛选数据与删除筛选器的具体操作方法,以及切片器呈灰色不可用的解决方法,实例中操作所用版本均为 Excel 2016。

    一、Excel数据透视表切片器呈灰色不可用的原因

    切片器是 Excel 2010 新增的功能,因此,只有新格式(即 .xlsx)的 Excel 文档才能使用切片器,旧格式 .xls 不能使用;如果切片器呈灰色不可用,检查文档格式是否为 .xlsx,若不是,可以用 Excel 2010 以上版本打开,另存为 .xlsx 格式即可。

    二、Excel插入切片器,提示未找到数据源的原因

    1、在源工作表,选择“插入”选项卡,单击“切片器”,打开“现在连接”窗口,显示未找到任何连接,如图1所示:

    图1

    2、切换到数据透视表,选中其中一个单元格(如 A5),再次单击“切片器”,则打开“插入切片器”窗口,如图2所示:

    图2

    3、由此可可知,只有先插入数据透视表,然后插入“切片器”才不会弹出提示未找到数据源窗口,因为切片器就是用来在数据透视表中筛选数据的。

    三、Excel用切片器筛选数据

    (一)用切片器筛选不同分类的产品

    1、切换到数据透视表(没有插入数据透视表的先插入),选中其中一个单元格(如 A5),Excel 会自动显示“分析”选项卡,选择它,单击“插入切片器”,打开“插入切片器”窗口,勾选择“大类、小类和产品名称”三个字段,单击“确定”,则插入三个切片器,把它们按“大类、小类和产品名称”的次序并排。

    2、选择“大类”中的“男装”,则“小类和产品名称”中自动显示属于“男装”的选项,排在先的且文字颜色没有变灰色的就是属于“大类”的。例如“小类”中的“T恤和衬衫”,“产品名称”中“白色T恤、纯白衬衫和黑色T恤”;表格中同时仅显示所筛选的记录。

    3、选择“小类”中的“T恤”,则“产品名称”中排在前两位的黑体的“白色T恤和黑色T恤”就属于“T恤”。

    4、再选择“大类”中的“女装”,“小类和产品名称”中又自动筛选出属于女装的选项,操作过程步骤,如图3所示:

    图

    (二)用切片器筛选不同分类的销量

    1、在前面三个切片器的基础上再添加一个。再次选中表格的 A5 单元格,选择“分析”选项卡,单击“插入切片器”,在打开的窗口中勾选“销量”,单击“确定”,则插入“销量”切片器,把它与其它三个切片并排在一起。

    2、选择“大类”中的“男装”,则“大类”右边三个切片器都筛选出属于“大类”选项,再选择“小类”中的“T恤”,则筛选出属于“T恤”的“产品名称和销量”,操作过程步骤,如图4所示:

    图4

    提示:如果已经插入了切片器再添加切片器,可能会出现无法筛选的情况,例如选择“大类”,“小类、产品名称和销量”均没有筛选出相应的选项。此时,可以尝试“清除筛选器”,若无效,把所有切片器删除,再重新插入。

    (三)清除筛选器和删除切片器

    1、清除筛选器

    A、右键要清除筛选器的切片器,例如“小类”,在弹出的菜单中,选择“从"小类"中清除筛选器”,如图5所示:

    图

    B、则清除“小类”的筛选,原本“小类”是选择“T恤”,清除筛选后变为选择“T恤和衬衫”,如图6所示:

    2、删除切片器

    A、右键要删除的切片器,例如“小类”,在弹出的菜单中,选择“删除"小类"”,如图7所示:

    图7

    B、则“小类”切片器被删除,如图8所示:

    图8

    提示:在删除切片器之前最好先清除它的筛选,否则表格中只剩下筛选后的记录。

    四、Excel让切片器不显示数据源中删除的项目

    1、选中一个切片器,选择“选项”选项卡,打开“切片器设置”窗口,单击“显示从数据源删除的项目”取消勾先,单击“确定”,切片器就不显示数据源中删除的项目了,操作过程步骤,如图9所示:

    图9

    2、右键切片器,在弹出的菜单中,选择“切片器设置”,也可以打开“切片器设置”窗口。

  • ?

    Excel表格撤销密码保护!解决宏灰色、无法使用问题

    心在颤

    展开

    插件地址,方便大家下载,链接: https://pan.baidu/s/1A6W1zlG2-VMFbW0ctdvNLQ

    提取码: m1vm

    双击打开名称为“vba6chs.msi”的文件,就开始安装。

    安装完成就会出现“Install has completed successfully”的文字提示,表示安装已经成功完成,点击“OK”就可以了,安装窗口就关闭了。

    1.打开文件

    2.开发工具——录制新宏——宏名:随便输入如:aa——确定

    3.停止录制

    4.开发工具——宏——选aa——点编辑

    5.删除窗口中所有东西——替换为下面的内容——复制

    Option Explicit

    Public Sub AllInternalPasswords()

    ' Breaks worksheet and workbook structure passwords. Bob McCormick

    ' probably originator of base code algorithm modified for coverage

    ' of workbook structure / windows passwords and for multiple passwords

    '

    ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)

    ' Modified 2003-Apr-04 by JEM: All msgs to constants, and

    ' eliminate one Exit Sub (Version 1.1.1)

    ' Reveals hashed passwords NOT original passwords

    Const DBLSPACE As String = vbNewLine & vbNewLine

    Const AUTHORS As String = DBLSPACE & vbNewLine & _

    "Adapted from Bob McCormick base code by" & _

    "Norman Harker and JE McGimpsey"

    Const HEADER As String = "AllInternalPasswords User Message"

    Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"

    Const REPBACK As String = DBLSPACE & "Please report failure " & _

    "to the microsoft.public.excel.programming newsgroup."

    Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _

    "now be free of all password protection, so make sure you:" & _

    DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _

    DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _

    DBLSPACE & "Also, remember that the password was " & _

    "put there for a reason. Don't stuff up crucial formulas " & _

    "or data." & DBLSPACE & "Access and use of some data " & _

    "may be an offense. If in doubt, don't."

    Const MSGNOPWORDS1 As String = "There were no passwords on " & _

    "sheets, or workbook structure or windows." & AUTHORS & VERSION

    Const MSGNOPWORDS2 As String = "There was no protection to " & _

    "workbook structure or windows." & DBLSPACE & _

    "Proceeding to unprotect sheets." & AUTHORS & VERSION

    Const MSGTAKETIME As String = "After pressing OK button this " & _

    "will take some time." & DBLSPACE & "Amount of time " & _

    "depends on how many different passwords, the " & _

    "passwords, and your computer's specification." & DBLSPACE & _

    "Just be patient! Make me a coffee!" & AUTHORS & VERSION

    Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _

    "Structure or Windows Password set." & DBLSPACE & _

    "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _

    "Note it down for potential future use in other workbooks by " & _

    "the same person who set this password." & DBLSPACE & _

    "Now to check and clear other passwords." & AUTHORS & VERSION

    Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _

    "password set." & DBLSPACE & "The password found was: " & _

    DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _

    "future use in other workbooks by same person who " & _

    "set this password." & DBLSPACE & "Now to check and clear " & _

    "other passwords." & AUTHORS & VERSION

    Const MSGONLYONE As String = "Only structure / windows " & _

    "protected with the password that was just found." & _

    ALLCLEAR & AUTHORS & VERSION & REPBACK

    Dim w1 As Worksheet, w2 As Worksheet

    Dim i As Integer, j As Integer, k As Integer, l As Integer

    Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer

    Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer

    Dim PWord1 As String

    Dim ShTag As Boolean, WinTag As Boolean

    Application.ScreenUpdating = False

    With ActiveWorkbook

    WinTag = .ProtectStructure Or .ProtectWindows

    End With

    ShTag = False

    For Each w1 In Worksheets

    ShTag = ShTag Or w1.ProtectContents

    Next w1

    If Not ShTag And Not WinTag Then

    MsgBox MSGNOPWORDS1, vbInformation, HEADER

    Exit Sub

    End If

    MsgBox MSGTAKETIME, vbInformation, HEADER

    If Not WinTag Then

    MsgBox MSGNOPWORDS2, vbInformation, HEADER

    Else

    On Error Resume Next

    Do 'dummy do loop

    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

    With ActiveWorkbook

    .Unprotect Chr(i) & Chr(j) & Chr(k) & _

    Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

    Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

    If .ProtectStructure = False And _

    .ProtectWindows = False Then

    PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

    Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

    MsgBox Application.Substitute(MSGPWORDFOUND1, _

    "$$", PWord1), vbInformation, HEADER

    Exit Do 'Bypass all for...nexts

    End If

    End With

    Next: Next: Next: Next: Next: Next

    Next: Next: Next: Next: Next: Next

    Loop Until True

    On Error GoTo 0

    End If

    If WinTag And Not ShTag Then

    MsgBox MSGONLYONE, vbInformation, HEADER

    Exit Sub

    End If

    On Error Resume Next

    For Each w1 In Worksheets

    'Attempt clearance with PWord1

    w1.Unprotect PWord1

    Next w1

    On Error GoTo 0

    ShTag = False

    For Each w1 In Worksheets

    'Checks for all clear ShTag triggered to 1 if not.

    ShTag = ShTag Or w1.ProtectContents

    Next w1

    If ShTag Then

    For Each w1 In Worksheets

    With w1

    If .ProtectContents Then

    On Error Resume Next

    Do 'Dummy do loop

    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

    .Unprotect Chr(i) & Chr(j) & Chr(k) & _

    Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

    If Not .ProtectContents Then

    PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

    Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

    MsgBox Application.Substitute(MSGPWORDFOUND2, _

    "$$", PWord1), vbInformation, HEADER

    'leverage finding Pword by trying on other sheets

    For Each w2 In Worksheets

    w2.Unprotect PWord1

    Next w2

    Exit Do 'Bypass all for...nexts

    End If

    Next: Next: Next: Next: Next: Next

    Next: Next: Next: Next: Next: Next

    Loop Until True

    On Error GoTo 0

    End If

    End With

    Next w1

    End If

    MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER

    End Sub

    6.粘贴上去后,不用保存直接关闭编辑窗口 (这一步不用复制)

    7.工具——宏——宏——选AllInternalPasswords——运行——确定两次——OK——密码没了。

  • ?

    为什么excel打开之后插入栏都是灰色的

    半情歌

    展开

    插入栏灰色一般是由于Excel单元表锁定导致的,想要使用的话要撤销保护,撤销保护需要密码。

    1、Excel为防止数据被更改,在【审阅】里有一个【保护数据表】的功能。

    2、【设置单元格格式】这个选项,就代表了锁定工作表以后,用户是否可以修改单元格格式,包括颜色、背景、字体字号、内容位置等等。此时可以看到,设定的权限仅可以选定单元格,即查看公式或者内容,而不能做任何修改。

    3、【保护工作表】的密码可以为空,为空时,直接点击撤销工作表保护就可以撤销,如果有密码的话需要2次确认,且此密码一旦忘记无法找回。具体锁定的范围,可以根据实际情况,锁定行列的新建、删除、调整格式、插入超链接、筛选、透视图、编辑等。

    4、另外,保护工作表可以和【允许用户编辑区域】联合使用,此时,即使锁定工作表,其他用户在不需要密码的情况下也可以对指定区域进行修改。

    5、一般需要使用Excel统计数据时,标题、格式等为了不让其他人修改,一般在保护范围内;而需要其他人配合填写的数据区域,一般放在【允许用户编辑区域】内,方便数据填写。

    (本文内容由百度知道网友shihoumacili贡献)

  • ?

    EXCEL 表格中工具栏灰色,不能用怎么办?

    沃克沃思

    展开

    ‍  工具栏灰色一般是由于Excel单元表锁定导致的,想要使用的话要撤销保护,撤销保护需要密码。

      Excel为防止数据被更改,在【审阅】里有一个【保护数据表】的功能。

      【设置单元格格式】这个选项,就代表了锁定工作表以后,用户是否可以修改单元格格式,包括颜色、背景、字体字号、内容位置等等。此时可以看到,设定的权限仅可以选定单元格,即查看公式或者内容,而不能做任何修改。

      【保护工作表】的密码可以为空,为空时,直接点击撤销工作表保护就可以撤销,如果有密码的话需要2次确认,且此密码一旦忘记无法找回。具体锁定的范围,可以根据实际情况,锁定行列的新建、删除、调整格式、插入超链接、筛选、透视图、编辑等。

      另外,保护工作表可以和【允许用户编辑区域】联合使用,此时,即使锁定工作表,其他用户在不需要密码的情况下也可以对指定区域进行修改。

      一般需要使用Excel统计数据时,标题、格式等为了不让其他人修改,一般在保护范围内;而需要其他人配合填写的数据区域,一般放在【允许用户编辑区域】内,方便数据填写。

    ‍

    (本文内容由百度知道网友蝎子chris1106贡献)

excel开发工具灰色

所有视频需要登录后,才能观看

请先登录您的帐号,即可完整播放,如果您尚未注册帐号,请先点击注册。

img

在线咨询

建站在线咨询

img

微信咨询

扫一扫添加
动力姐姐微信

img
img

TOP