如何修复代码第一行中的编译语法错误

Question

我正在尝试使用一些基本代码，以便使用带有密码的公式锁定我的所有单元格。

我尝试过寻找这个问题的各种解决方案，但似乎没有一个专门解决一般问题，而是关注非常具体的问题。突出显示的行是 excel 是显示的第一行。

Sub ProtectFormulas()
    Dim strPassword As String
    With ActiveSheet
    .Unprotect
    .Cells.Locked = False
    .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
    .Protect AllowDeletingRows:=True
    strPassword = InputBox(“Please enter the password (optional)”
    ActiveSheet.Protect Password:=strPassword
End With
End Sub

我希望弹出一个对话框，以便我可以输入密码来锁定所有公式，但是立即出现错误。

Answer 1

当我运行您的代码时，我看到代码中没有问题，其中有一个包含活动表中单元格的公式。确保至少有一个单元格包含公式。为了跳过此错误，请在Sub的第一行中使用以下代码，这样如果您的Activesheet没有任何包含单元格的公式，您将永远不会遇到错误。 on error resume next