精简代码

dssrmyh · 发表于 2018-8-22 09:58

工作薄中有很多表，如何只对其中的12张表进行加密（表的顺序是不相连的，但表的名称是01月工资表到12月工资表）。以下代码如何精简，谢谢！
Sheet14.Protect "1111"
Sheet15.Protect "1111"
Sheet16.Protect "1111"
Sheet17.Protect "1111"
Sheet18.Protect "1111"
Sheet19.Protect "1111"
Sheet21.Protect "1111"
Sheet22.Protect "1111"
Sheet23.Protect "1111"
Sheet24.Protect "1111"
Sheet25.Protect "1111"
Sheet26.Protect "1111"

dssrmyh · 发表于 2018-8-22 10:04

自己顶上去

我是来讨说法的 · 发表于 2018-8-22 10:05

i=0
for each sh in sheets
i=i+1
if i<10 then sheetname="0" & i & "月工资表"
if sh.name= sheetname then Sheets(sheetname).Protect "1111"
next

dssrmyh · 发表于 2018-8-22 10:15

我是来讨说法的发表于 2018-8-22 10:05
i=0
for each sh in sheets
i=i+1

经测试，无法加密工作表

lsdongjh · 发表于 2018-8-22 10:25

Sub Test()
Dim sh As Worksheet
Dim lngI As Long, strShName As String
For lngI = 1 To 12
strShName = Format(lngI, "00") & "月工资表"
Set sh = Sheets(strShName)
sh.Protect "1111"
Next
End Sub

复制代码

dssrmyh · 发表于 2018-8-22 10:29

lsdongjh 发表于 2018-8-22 10:25

完善解决，谢谢

jiminyanyan · 发表于 2018-8-22 12:46

循环一下。。。。

		自动登录	找回密码
密码			免费注册

[求助] 精简代码