小编vt-*_*307的帖子

当我选择保护工作表时，默认情况下我的 excel 会锁定所有列。

我想使用 VBA 代码，在其中我只用公式锁定单元格（并且只允许用户选择未锁定的单元格），同时循环浏览工作簿中的每个工作表。这是我目前拥有的代码。

Sub LockSheets()
    Dim ws As Worksheet
    For Each ws In Worksheets
        With ws
            .Unprotect
            .Cells.Locked = False
            .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
            .Protect
        End With
    Next ws
End Sub