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

z215572630

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

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

Chip_Kenny

Sheet被保護了?

z215572630

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

我用的2010版本的

z215572630

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

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