Вот что нам говорит справка по слову Protect  
 
Protect method as it applies to the Worksheet object.  
 
expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)  
 
Находим слово пароль - password, делаем выводы и пишем  
 
 
Sub Макрос1()  
   ActiveSheet.Protect Password:=3, DrawingObjects:=False, Contents:=True, Scenarios:= _  
   False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _  
   AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _  
   :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _  
   AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _  
   AllowUsingPivotTables:=True  
End Sub  
 
Sub Макрос2()  
   ActiveSheet.Unprotect (3)  
End Sub  
 
Мне кажется вам надо больше читать справку. Т.е. ставите курсор на незнакомое слово, например, Protect и нажимаете F1

А я бы написал бы так  
 
Sub Макрос1()  
   With Worksheets("12")  
       .Protect , UserInterfaceOnly:=True  
       .EnableOutlining = True  
   End With  
End Sub  
 
Sub Макрос3()  
   Worksheets("12").Unprotect  
End Sub  
 
 
Понимаете, для Excel 2003 не обязательно указывать пароль в макросе. Макрос и без пароля хорошо работает. Единственное что,    
 
UserInterfaceOnly:=True  
 
надо ставить каждый раз при открытии книги.    
Кстати, если кто не знает что такое UserInterfaceOnly:=True, то этот аргумент если стоит в True - запрещает работать пользователю на листе, а макрос может делать всё что хотите на листе (удалять строки, вводить информацию в ячейки и т.д.)