Private Sub Workbook_Open() içine Halil hocanınkini yazdıktan sonra alttaki koduda eklerseniz Sayfa eklemelerde kilitlenir.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

strPassword = "171717"

ThisWorkbook.ActiveSheet.Protect Password:=strPassword, _

                                      DrawingObjects:=True, _

                                      Contents:=True, _

                                      Scenarios:=True, _

                                      UserInterfaceOnly:=True, _

                                      AllowFormattingCells:=False, _

                                      AllowFormattingColumns:=False, _

                                      AllowFormattingRows:=False, _

                                      AllowInsertingColumns:=False, _

                                      AllowInsertingRows:=False, _

                                      AllowInsertingHyperlinks:=False, _

                                      AllowDeletingColumns:=False, _

                                      AllowDeletingRows:=False, _

                                      AllowSorting:=False, _

                                      AllowFiltering:=False, _

                                      AllowUsingPivotTables:=False

End Sub