标识的这段运行的时候运行不了，不知是什么原因

z215572630 · 发表于 2019-3-21 15:09

Sub c()
Dim sht As Worksheet
For Each sht In Worksheets

      If sht.Name <> "成绩表" Then
         sht.Range("A2:G65536").ClearContents
      End If

Next
End Sub

08yj2001 · 发表于 2019-3-21 15:26

什么版本，我这测试没问题

Chip_Kenny · 发表于 2019-3-21 15:31

Sheet被保護了?

z215572630 · 发表于 2019-3-21 16:04

08yj2001 发表于 2019-3-21 15:26
什么版本，我这测试没问题

我用的2010版本的

z215572630 · 发表于 2019-3-21 16:09

Chip_Kenny 发表于 2019-3-21 15:31
Sheet被保護了?

是您说的这个原因，我把代码运行到其它地方没有问题，但是这个表格我自己确实没有保护啊，不知为啥会提示保护的内容

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