保护工作薄中所有工作表中的非空单元格代码怎么不管用？

qiutj

以下保护工作薄中所有工作表中的非空单元格代码怎么不管用？请大神帮忙。

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'关闭工作簿前保护所有工作表

IName = ActiveSheet.Name

For i = 1 To Sheets.Count

Sheets(i).Select

If Application.CountA(Range("A:XFD")) = 0 Then GoTo 100

    ActiveSheet.Unprotect

    Cells.Locked = False

    Cells.FormulaHidden = False

    Set quyu = Range([A1], ActiveCell.SpecialCells(xlLastCell))

    For Each icell In quyu

    If icell.HasFormula Or icell.Value <> "" Then

       icell.Locked = True

       icell.FormulaHidden = True

     End If

    Next icell

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

    Range("A1").Select

100 Next i

    Sheets(IName).Select

End Sub

liulang0808

代码供楼主参考。。。。。。

qiutj

liulang0808 发表于 2018-4-16 13:55
代码供楼主参考。。。。。。

能把代码复制上来吗？谢谢了。

qiutj

太谢谢了，我要好好学学。

qiutj

  If Application.CountA(Range("A:XFD")) <> 0 Then到这运行停止了，怎么回事呀？

qiutj

calls.FormulaHidden = False这里也不能运行？我是门外汉就是照搬过来的。我核对了没输错，能否把代码文本发上来呀，非常感谢你的帮助，谢谢了。

qiutj

[img]d:1[/png]

qiutj

想发图也发不上去

qiutj

我太需要这个代码了，就是搞不好，真心希望得到你的帮助。

qiutj

运行通过，这代码只能保护有值的单元格，工作薄中所有工作表中的公式不能保护，我想要的是非空和含有公式的单元格一起锁定。还恳请帮帮忙。