Sayfa Adı Değiştirme Engelleme

[hakki83]

Selamlar

Sayfa adının değiştirilmesini engellemek istiyorum ama bunu “Sayfayı Koru” özelliğiyle yapmak istemiyorum.

Bunun makrolu bir çözümü var mıdır?

 

[Leoncio]

Merhaba aşağıdaki kodları deneyiniz.
Önce herhangi bir modüle

Public sayfa1_adı As String
Sub auto_open()
sayfa1_adı = Worksheets(1).Name
End Sub

Sayfa1'e ait VBE sayfasına

Private Sub Worksheet_Deactivate()
If Me.Name <> sayfa1_adı Then
MsgBox "Sayfanın Adını Değiştiremezsiniz"
Me.Name = sayfa1_adı
End If
End Sub

 

[hakki83]

Teşekkürler, emeğinize sağlık.

 

[Leoncio]

Rica ederim.