Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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