Sayfa Adı değiştirmeyi engelleme

[kykbt]

Arkadaşlar merhaba;
Bir çok sayfadan oluşan bir excel dosyam var. Ancak bu dosyadaki ilk iki sayfanın adlarının değiştirilmesini engellemek istiyorum.
Sayfa adları tarih şeklinde 01.01.2021, 02.01.2021, ............. gibi devam ediyor

Private Sub Worksheet_Activate()

aydsy = Mid(ThisWorkbook.Name, 18, 2)
yıldsy = Mid(ThisWorkbook.Name, 13, 4)
syfadı1 = "01." & aydsy & "." & yıldsy & ""
syfadı2 = "02." & aydsy & "." & yıldsy & ""
shtname = ActiveSheet.Name
If ActiveSheet.Name <> syfadı1 Then Exit Sub

Dim Ctrl As Office.CommandBarControl
If ActiveSheet.Name = syfadı1 Then
    For Each Ctrl In Application.CommandBars.FindControls(Id:=847)
        Ctrl.Enabled = False 'True menüleri aktif yapar
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=889)
        Ctrl.Enabled = False 'True menüleri aktif yapar
    Next Ctrl
Else
    For Each Ctrl In Application.CommandBars.FindControls(Id:=847)
        Ctrl.Enabled = True 'True menüleri aktif yapar
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=889)
        Ctrl.Enabled = True 'True menüleri aktif yapar
    Next Ctrl
End If
End Sub

Private Sub Worksheet_Deactivate()
'MENÜ KOMUTLARINI AÇAR.
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(Id:=847)
    Ctrl.Enabled = True 'True menüleri aktif yapar
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(Id:=889)
    Ctrl.Enabled = True 'True menüleri aktif yapar
Next Ctrl
End Sub

Yukarıdaki kodlar ile Sayfa adı değiştir menüsünü pasif ediyorum fakat sayfanın ad sekmesini çift tıklama ile sekme adı değiştirilebiliyor.
Bunu engellemenin bir yolu varmıdır.?

 

[kulomer46]

Merhaba

Excel dosyamızdaki ilk iki sayfanın adlarının değiştirilmesini engelleme ile ilgili bir çalışma ektedir.

Selamlar.

 

[Korhan Ayhan]

Çalışma kitabı korumasını denemenizi tavsiye ederim.