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

我一直试图保护Excel中的工作表使用VBA，每次他尝试编辑或取消保护工作表时要求用户input密码。 我已经尝试过下面这个，但是不能很好地工作。 谢谢你的帮助。

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

Answer 1

你的代码的问题是你正在使用function而不是sub :)rest你似乎是好的。 谢谢

Answer 2

使用这个子。

 Sub shtProtect() Sheet1.Protect Password:="trial" 'Use your sheet name instead Sheet1 End Sub