sayfa adı değişmesin

[uzmanamele]

merhaba

Application.CommandBars.FindControl(ID:=889).Enabled = False

sağ tuşla açılan popup menudeki komutu iptal ediyorum ama sayfa adını çift tıklayınca değiştirebiliyoruz.
çift tıklama ile sayfa adını değiştirmeyi engelleyecek komut nedir?


FindControl(ID:=889)
buradaki 889 popup menüdeki sayfa adı. bu komutların tam listesini nereden bulabilirim?

 

[Orion1]

Bu kod işinizi görürmü?

ActiveWorkbook.Protect

 

[Seyit Tiken]

Bence bu şekilde sayfa ismi değiştirmeyi engeleyebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sayfa1.Name = "Sayfa1"
End Sub

 

[uzmanamele]

Bu kod işinizi görürmü?

ActiveWorkbook.Protect

merhaba
syn Evren Gizlen, teşekkür ederim.
bu kod çok kapsamlı, elimi kolumu bağlıyor. tüm kitabı koruma kodu değilde opsiyonel kodlar arıyorum.

 

[uzmanamele]

Bence bu şekilde sayfa ismi değiştirmeyi engeleyebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sayfa1.Name = "Sayfa1"
End Sub

merhaba
syn Seyit Tiken, teşekkür ederim. aşağıdaki kodları kullanıyorum ama yinede sağ tıklayınca veya çift tıklayınca sayfa adının değişmesini engelleyecek kod arıyorum.

Sub sayfaadı()
On Error Resume Next
If Range("A1").Value = Empty Then Exit Sub
ActiveSheet.Name = "benim sayfam " & Range("A1").Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call sayfaadı
End Sub

 

[Leoncio]

Merhaba;

Aşağıdaki kodları denermisiniz;

Ö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

 

[Zeki Gürsoy]

Kontrol numaras&#305; bilinmiyorsa a&#351;a&#287;&#305;daki gibi &#231;&#246;z&#252;me gidilebilir..

Sub Disabled()
CommandBars(1).Controls(5). _
    Controls(4).Controls(1).Enabled = False
End Sub

Sub Enabled()
CommandBars(1).Controls(5). _
    Controls(4).Controls(1).Enabled = True
End Sub

G&#246;r&#252;n&#252;mden sekmeleri kald&#305;rmak da bir yol olabilir.

 

[uzmanamele]

Merhaba;

Aşağıdaki kodları denermisiniz;

Ö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

merhaba
syn leventer, teşekkür ederim. kod işe yarıyor. benim çalışmama adapte ettiğimde nekadar kullanışlı denemem lazım.
şimdilik 22 adet modül (bazı modüllerde birden fazla kod) 3 adet userform ve sayfanın kod bölümüne yazılan kodlar var.

 

[Seyit Tiken]

&#220;st men&#252;leri gizlemeyi deneyin.

 

[uzmanamele]

merhaba
syn Zeki G&#252;rsoy, te&#351;ekk&#252;r ederim. kodu &#231;al&#305;&#351;t&#305;rd&#305;ktan sonra bir fark g&#246;zlemleyemedim, belki bi&#351;eyleri eksik yap&#305;yorumdur.
syn Seyit Tiken, te&#351;ekk&#252;r ederim. &#252;st men&#252;leri gizlemeyi &#351;imdilik bilmiyorum ve biraz daha bi&#351;eyler &#246;&#287;reninceye kadarda bu alana pek dokunmak istemiyorum. sonradan ba&#351;&#305;ma bilmeden i&#351; a&#231;abilirim
san&#305;r&#305;m a&#351;a&#287;&#305;daki kodlar&#305; kullanmaya devam edece&#287;im.
ilgilenen t&#252;m arkada&#351;lara te&#351;ekk&#252;rler.

Sub sayfaad&#305;()
On Error Resume Next
If Range("A1").Value = Empty Then Exit Sub
ActiveSheet.Name = "benim sayfam " & Range("A1").Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call sayfaad&#305;
End Sub

 

[uzmanamele]

merhaba
This action will reset your project, proceed anyway?

biraz &#246;nceki kodlar&#305; denerken dosyam a&#231;&#305;kt&#305; ve belki birini as&#305;l dosyada kullanm&#305;&#351; olabilirim.
dosyay&#305; tekrar a&#231;&#305;nca yukar&#305;daki mesaj&#305; ald&#305;m.

bu ne anlama geliyor!!!?

 

[Seyit Tiken]

Benim aklıma şöyle bir yöntem geldi, bilmiyorum işe yarar mı?

Sub Makro1()
CommandBars("Sheet").Controls(1).Enabled = 0
ActiveWindow.TabRatio = 0
End Sub