Sheetlerin silinmesini yada isminin değiştirilmesini önlemeyi kaldırma nasıl yapılır?

[Arif YILDIRIM]

Değerli Dostlarım,
Aşağıdaki fonksiyonu bu forumdan aldım.Kullandım.Çalışıyor.Fakat artık sheet (sayfa) adlarının değiştirilmesini ve sayfaların silinmesini istiyorum.Add-Ins'ten fonksiyonu sildim.Fakat hala sayfaları silemiyorum. Ne yapmam lazım.
Teşekkürler...

"Çalışma kitapçığınızdaki sheetlerin silinmesini yada isminin değiştirilmesini önlemek istiyorsanız aşağıdaki kodları grin ve kitapçığınızı save edin

Sub SheetDelete_Engelle()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=847)
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=889)
Ctrl.Enabled = False
Next Ctrl

End Sub"

 

[Metin Karaağaç]

"False" yazan yerleri "True" yapıp makroyu tekrar çalıştırın.

 

[baydeniro]

Paylaşım için teşekkürler. Bu kodun This Workbook için olanı nasıl olmalı ?

 

[uzmanamele]

merhaba

aşağıdaki şekilde deneyiniz

Private Sub Workbook_Activate()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=847)
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=889)
Ctrl.Enabled = False
Next Ctrl
End Sub

Private Sub Workbook_Deactivate()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=847)
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=889)
Ctrl.Enabled = True
Next Ctrl
End Sub

 

[baydeniro]

Sayın uzmanamele ilginize teşekkür ederim. Bu kodu Thisworkbook altına kopyalayınca Save_As yapmayı engellemiyor !!! Çok farklı bir isimle dosya Save_As yapılabiliyor.