Question

excel vba 下标越界

Sub 锁定和隐藏公式()
If ActiveSheet.ProtectContents = True Then
MsgBox "工作表已保护！"
Exit Sub
End If
Worksheets("sheet1").Range("A1").CurrentRegion.Select
Selection.Locked = False
Selection.FormulaHidden = False
Selection.SpecialCells(xlCellTypeFormulas).sclect
Selection.Locked = True
Selection.tormulahidden = True
Worksheets("sheet1").Product DrawingObjects:=True, cintent:=True, Scenarios:=True
Worksheets("sheet1").EnableSelection = xlNoRestrictions
End Sub

这个执行的时候显示下标越界什么意思
Sub 锁定和隐藏公式()
If ActiveSheet.ProtectContents = True Then
MsgBox "工作表已保护！"
Exit Sub
End If
Worksheets("sheet11").Range("A1").CurrentRegion.Select
Selection.Locked = False
Selection.FormulaHidden = False
Selection.SpecialCells(xlCellTypeFormulas).Select
Selection.Locked = True
Selection.FormulaHidden = True
Worksheets("sheet11").Product DrawingObjects:=True, cintent:=True, Scenarios:=True
Worksheets("sheet11").EnableSelection = xlNoRestrictions
End Sub

第1次学这个不是很明白，打错字了，这2处我改完后还是显示下标越界

Answer 1

首先语句中有错，倒数第3行，应该是启用工作表保护，是protect，可能是手误
下标越界的只有二处，你看是那处的问题
1、sheet11是否存在？
2、specialcells是否起作用
建议用on error resume next 捕获下错误，再针对性处理
用WITH调整下语句，看起来很乱

Answer 2

下标越界提示在哪一行？？

追问

9

追答

因为你所选择的区域里面不含有公式导致。。

对了你的代码有很多问题啊。。
你先试试改了的代码是不是还有问题，

Sub 锁定和隐藏公式()
If ActiveSheet.ProtectContents = True Then
MsgBox "工作表已保护！"
Exit Sub
End If
Worksheets("sheet1").Range("A1").CurrentRegion.Select
Selection.Locked = False
Selection.FormulaHidden = False
'下面这行应该是select，不是sclect
Selection.SpecialCells(xlCellTypeFormulas).Select
Selection.Locked = True
'下面这行应该是Selection.formulahidden = True不应该是Selection.tormulahidden = True
Selection.FormulaHidden = True
Worksheets("sheet1").Product DrawingObjects:=True, cintent:=True, Scenarios:=True
Worksheets("sheet1").EnableSelection = xlNoRestrictions
End Sub

你这个宏是先选择了一部分数据再运行的。。

你贴一下你的数据或者截个图上来。。
应该是你选择的区域内没有公式，导致
Selection.SpecialCells(xlCellTypeFormulas).Select

这段代码选不到数据，
Selection.Locked = True

这段代码中的selection为空，导致错误出现