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