Question

我已经设法汇编了以下代码，用于拼写检查锁定的文档，但是无法退出让它工作。我希望它只查看未锁定的单元格，但仍然使用＆＃39; CommandBars（＆＃34;工具＆＃34;）。控件（＆＃34;拼写......＆＃34;）。执行＆＃39;功能。任何想法都会很棒。 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

VB拼写检查代码问题

1 个答案: