checks the UserName; if it is not Admin, this code protects each sheet from user changes
Private Sub Workbook_Open() Dim sht As Worksheet If Application.UserName <> "Admin" Then
For Each sht In Worksheets
sht.Protect UserInterfaceOnly:=True
Next sht End If End Sub