Заранее извиняюсь за не самые изысканные вопросы, но, тем не менее, очень прошу помощи.  
 
Сейчас активно занялся организацией обучения, а до тех пор надеюсь на ваше понимание.  
 
Есть шаблон формирования некоторого перечня, я найдя постов смог собрать нехитрый макрос, добавляющий строчки, а вот на добавлении, выделенного курсивом блока застрял

Прошу отеческого совета.  
 
В приведенном файле есть ссылки, которые регулярно просят обновиться. Проверив все места известные мне, осталось 2 ссылки, которые я не знаю, как «убить».

Во-первых, спасибо за помощь!  
 
Во-вторых еще раз здравствуйте, Уважаемые знатоки!  
 
Есть код на установление пароля на листах активной книги. Буду безумно благодарен, если кто-то подскажет, как его унифицировать. В идеале, чтобы выскакивало окно, в которое бы вводился пароль, который бы защищал все листы и соответственно наоборот снимал защиту.  
 
Sub ProtectAllSheets()  
 
'защита на все листы  
Dim Sh As Worksheet  
lReply = MsgBox("Защитить лист?", vbYesNo + vbQuestion)  
If lReply = vbYes Then  
For Each Sh In ActiveWorkbook.Sheets  
Sh.Protect Password:="7807778", Contents:=True, Scenarios:=True, UserInterfaceOnly:=True  
Next  
MsgBox "Все листы защищены!", vbInformation, "Защита"  
End If  
End Sub  
 
Sub UnProtectAllSheets()  
 
'нет защиты  
Dim Sh As Worksheet  
lReply = MsgBox("Снять защиту?", vbYesNo + vbQuestion)  
If lReply = vbYes Then  
For Each Sh In ActiveWorkbook.Sheets  
Sh.Unprotect ("7807778")  
Next  
MsgBox "Защита снята!", vbInformation, "Защита"  
End If  
End Sub