Excel. Макросы. дополнить и автозапустить при открытии

Есть вот такой макрос:

Код (Text):

1.  
2. Sub save()
3. Const MyPassword = "123"
4. With ActiveSheet
5. .Unprotect Password:=MyPassword
6. .EnableOutlining = True
7. .Protect Password:=MyPassword, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
8. End With
9. End Sub

и есть код, добавляемый в ЭтаКнига

Код (Text):

1. Private Sub Workbook_Open()
2. save
3. End Sub

два вопроса: как сделать так, чтобы макрос выполнялся автоматически, сейчас надо запускать вручную, в код из ЭтаКнига не срабатывает (пишет "Sub of Function not defined") и как сделать, чтобы макрос срабатывал на все страницы, а не только на одну, спасибо!Excel. Макросы. дополнить и автозапустить при открытии