使用VBA在excel 2013中使用密码保护工作表

Question

我一直在尝试使用VBA保护excel中的工作表，这会在每次尝试编辑或取消保护工作表时要求用户输入密码。 我试过这可能在下面，但它不能很好地工作。 谢谢你的大力帮助。

    Function protectSheet()
        ThisWorkbook.Sheets("User").Protect Password:="trial", true, true
    End Function

Answer 1

您的代码存在的问题是您使用的是function而不是sub :)其余的您似乎很好。感谢

Answer 2

使用此子。

lead()