может так?  
Sub karvalol()  
Dim sh As Worksheet  
If CreateObject("WScript.Network").COMPUTERNAME = "ADMINISTRATOR" Then  
 
iAdmin: If InputBox("Введите пароль администратора:") = "UserName" Then  
For Each sh In ThisWorkbook.Worksheets  
sh.Unprotect Password:="UserName"  
Next  
MsgBox "Вы вошли в режиме ""Администратор"""  
Else  
Select Case MsgBox("Введен неверный пароль!", vbRetryCancel)  
Case vbRetry: GoTo iAdmin  
Case vbCancel: GoTo iUser  
End Select  
End If  
 
Else  
iUser: For Each sh In ThisWorkbook.Worksheets  
sh.Protect Password:="UserName", DrawingObjects:=True, Contents:=True, Scenarios:=True  
Next  
MsgBox "Вы вошли в режиме ""Пользователь"""  
 
End If  
End Sub