VB拼写检查代码问题

Question

我已经设法汇编以下代码来对锁定的文档进行拼写检查，但无法退出就可以正常工作。 我希望它仅查看未锁定的单元格，但仍使用'CommandBars（“ Tools”）。Controls（“ Spelling ...”）。Execute'函数。 任何想法都很棒。 TIA

Sub SelectUnlockedCells_Spellcheck()

ActiveSheet.Unprotect Password:=""

    Dim WorkRange As Range

    Dim FoundCells As Range

    Dim Cell As Range

    Set WorkRange = ActiveSheet.UsedRange

    For Each Cell In WorkRange

        If Cell.Locked = False Then

            If FoundCells Is Nothing Then

                Set FoundCells = Cell

            Else

                Set FoundCells = Union(FoundCells, Cell)

            End If

        End If

    Next Cell

    If FoundCells Is Nothing Then
        MsgBox "All cells are locked."

    Else

        FoundCells.CheckSpelling CommandBars("Tools").Controls("Spelling...").Execute

    End If

ActiveSheet.Protect Password:=""

End Sub

Answer 1

您正在使用此代码

FoundCells.CheckSpelling CommandBars("Tools").Controls("Spelling...").Execute

但是VBA帮助没有显示任何此类参数。 尝试仅使用此：

FoundCells.CheckSpelling