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

示例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

(0)

相关推荐