「ExcelVBA」一键保护所有工作表

「ExcelVBA」⼀键保护所有⼯作表本⽂转载⾃公众号：涂涂说Excel，作者：涂⼤荣。本⽂著作权归原创作者所有，本⼈收藏此⽂仅作为学习之⽤，不作其他⽬的，如有侵权请联系我删除。⼤家好！我是涂涂「Excel VBA」⼀键保护所有⼯作表。今天的内容下记⼯作簿中，有3个⼯作表，因为⼯作需要，需要对每⼀个⼯作表设置密码进⾏⼯作表保护。例⼦的⼯作表不多，可以逐个设置密码保护。但如果有很多个⼯作表需要设置密码保护，逐个设置就费时了。今天涂涂给⼤家分享⼀段VBA⼩代码，⼀键对所有⼯作表设置密码保护。❖效果图 操作步骤 01◆将xlsx后缀的⽂件，另存为xlsm后缀的⽂件（xls后缀的⽂件不需要另存）◆按Alt F11组合键打开VBE编辑界⾯◆新建模块，双击模块，在代码区写⼊下记代码，保存，关闭VBE界⾯代码⽰例1. Sub ⼀键保护所有⼯作表()2. Dim sht As Worksheet3. For Each sht In Worksheets4. sht.Protect ('123')5. Next6. End Sub操作步骤 02◆返回Excel界⾯，插⼊按钮，指定宏，点击按钮即可※也可不插⼊按钮，在宏对话框中选择对应的宏代码执⾏代码解释sht.Protect('123')◆Worksheet.Protect⽅法保护⼯作表使其不能被修改◆⼯作表密码设定为“123”，123可以更改为所需的密码，密码区分⼤⼩写◆如果省略此参数，不⽤密码就可以取消对⼯作表的保护。否则，必须指定密码才能取消对⼯作表的保护