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
Private Sub Workbook_Open() içine Halil hocanınkini yazdıktan sonra alttaki koduda eklerseniz Sayfa eklemelerde kilitlenir.