设定特定用户才能操作工作表

示例1：设定特定用户才能操作工作表

下面的代码在打开工作簿时检查用户名是否为“完美Excel”，如果不是，则保护工作表，防止其他用户对其进行修改。

Private Sub Workbook_Open()

Dim wks As Worksheet

If Application.UserName \u003C> '完美Excel' Then

For Each wks In Worksheets

wks.Protect UserInterfaceOnly:=True

Next wks

End If

End Sub