要保护Excel工作表,可以使用VBA代码来实现。以下是一个示例代码,演示了如何保护工作表,并设置密码保护:
Sub ProtectWorksheet()
' 定义变量
Dim ws As Worksheet
Dim password As String
' 设置密码
password = "password123"
' 获取当前活动工作表
Set ws = ActiveSheet
' 保护工作表
ws.Protect Password:=password, DrawingObjects:=True, Contents:=True, Scenarios:=True
' 显示保护提示
MsgBox "工作表已被保护!"
End Sub
使用上述代码,可以将密码设置为"password123",并保护当前活动工作表。在代码中,Protect
方法被用来保护工作表,Password
参数用于设置密码。你还可以根据需要修改其他参数,以满足具体要求。
请注意,如果要修改或取消保护工作表,你需要提供正确的密码。否则,将无法对工作表进行修改。