Az egyenlőségjel elé tegyél kettőspontot.

ActiveSheet.Protect UserInterfaceOnly:=True

Jelszó esetén

ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True