百痕网

​一个excel工作簿有多少个工作表(一个excel工作簿有多少个工作表怎么打印)

点击: 来源:百痕网
摘要:一个excel工作簿有多少个工作表(一个excel工作簿有多少个工作表怎么打印) 大家好,近期很多朋友对于 一个excel工作簿有多少个工作表 产不是很理解。然后还有一些网友想弄清楚一个

一个excel工作簿有多少个工作表(一个excel工作簿有多少个工作表怎么打印)

大家好,近期很多朋友对于

一个excel工作簿有多少个工作表

产不是很理解。然后还有一些网友想弄清楚一个excel工作簿有多少个工作表怎么打印,(www)已经为你找到了相关问题的答案,接下来和我们一起看看吧,希望对大家有所帮助!

在工作中我们可能会需要对工作簿中的多张工作表设置密码,如果一张一张地对工作表单独进行设置会比较费事,这篇文章就跟大家分享一下如何一次性为工作簿中的所有工作表统一设置密码。本文案例中,我们将所有工作表保护密码统一设置为“666”。

操作步骤

1. 打开工作簿,单击窗口上方“开发工具”选项卡“代码”功能组中的“Visual Basic”按钮。



2. 在打开的VBA编辑器窗口上方,单击“插入”按钮,在下拉列表中选择“模块”,此时在窗口左侧列表中就会增加一个存放编写代码的“模块1”。同时,在右侧会看到模块1(代码)编辑窗口。





3.在模块1(代码)编辑窗口中输入如下代码:

Sub 批量保护()For Each sht In Sheetssht.Protect "666"NextEnd Sub

输入完毕后,单击VBA编辑器窗口上方的“运行子过程/用户窗体”按钮(绿色向右的三角形)运行代码。



4.代码运行完毕后,选中工作簿中的一张工作表尝试进行编辑修改,会弹出如下对话框,提示工作表已被保护,如果要修改需要输入密码。(这里的密码就是前面代码第三行中的数字“666”)



小提示

如果需要批量解除对所有工作表的密码保护,也可以参照上面的方法在VBA编辑器窗口中进行设置,将代码修改一下即可,具体代码如下:

Sub 解除批量保护()For Each sht In Sheetssht.UnProtect "666"NextEnd Sub

#职场技能#



相关文章

    ​猫眼竹芋的养殖方法

    ​猫眼竹芋的养殖方法

    ​剁椒的营养价值及营养成分

    ​剁椒的营养价值及营养成分

    ​海鲈鱼吃泥鳅吗

    ​海鲈鱼吃泥鳅吗

    ​番杏科多肉植物如何培育多头

    ​番杏科多肉植物如何培育多头

    ​蚕蛹的营养价值及营养成分

    ​蚕蛹的营养价值及营养成分

    ​白玉草的营养价值及营养成分

    ​白玉草的营养价值及营养成分

    ​女生问你喜欢什么类型的女生怎么回答比较撩?

    ​女生问你喜欢什么类型的女生怎么回答比较撩?

    ​壁纸丨认识下这个征服DC、MARVEL的女人!

    ​壁纸丨认识下这个征服DC、MARVEL的女人!

    ​脱单的最好办法,单身必看,脱单应该怎么做

    ​脱单的最好办法,单身必看,脱单应该怎么做

    ​女生如何展现自己的高情商呢?

    ​女生如何展现自己的高情商呢?

    ​追女孩子的情话 一段简短而深情的告白

    ​追女孩子的情话 一段简短而深情的告白

    ​什么是融合教育?如何“融”

    ​什么是融合教育?如何“融”

    ​手把手教你用NFC手机给地铁公交卡充值

    ​手把手教你用NFC手机给地铁公交卡充值

    ​微信月账单在哪里看(微信账单在哪里看到)

    ​微信月账单在哪里看(微信账单在哪里看到)

    ​纪梵希小羊皮金管多少钱 国内专柜价350元左右

    ​纪梵希小羊皮金管多少钱 国内专柜价350元左右

    ​360度全景行车记录仪安装流程及效果图解介绍

    ​360度全景行车记录仪安装流程及效果图解介绍