Tanımlı Sayfaların sağtuş ile adlarının değiştirilmesi ve silinmesinin engellenmesi?

[hsayar]

[B](General)(Declarations)[/B]
...............................
Public ckBU_Klc_SfAd() As Variant        'bu kitapta daima kalacak sayfa adları
Public ckBU_Klc_SfIx As Integer          'bu kitapta daima kalacak enson indeks no
Public ckBU_Klc_SfSy As Integer          'bu kitapta daima kalacak sayfa sayısı
.................................

Sub DegiskenAl()
............................................
ckBU_ss = ckBU.Worksheets.Count                  'bu kitabın sayfa sayısı
'//////////////////////Dizilerle ilgili değerler
'daima bu kitapta kalacak sayfa adlarına ait dizi
[color=Red][B]ckBU_Klc_SfAd = Array(ckBU_sfSAT.Name, ckBU_sfALS.Name, ckBU_sfTNM.Name, ckBU_sfTSB.Name, _
                      ckBU_sfAYL.Name, ckBU_sfYIL.Name, ckBU_sfDVR.Name)  'daima bu kitapta kalacak sayfa adları
[/color][/B]
ckBU_Klc_SfIx = UBound(ckBU_Klc_SfAd)
ckBU_Klc_SfSy = ckBU_Klc_SfIx + 1
................................

dizide tanımlı sayfaların sağ tuş ile adlarının değiştirilmesi ve silinmesi ve taşınmasının engelenmesi sekmeleri gizlemeden mümkünmüdür?

 

[Levent Menteşoğlu]

Çalışma kitabına koruma koyun.

 

[hsayar]

Sub makro2()
ActiveWorkbook.Unprotect
Sheets(1).Delete
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub

silme adlandırma ve taşıma işlemlerini makro ile yapacağım için işe yarayacak gibi
ancak ben sayfanın herkesçe kopyalanmasına, ve yeni sayfa eklemesine izin vermek istiyırum

 

[hsayar]

http://www.mrexcel.com/archive2/75800/88018.htm
burda yabnacı bir arkadaş aynı soruyu sormuş ve onada çalışma kitabını koruyun denmiş
oda en altta hallettim gibi bir şey demişi maa nasıl anlyamafdım

Re: Can't delete worksheet

It sounds like you have Track Changes turned on.

If you go to Tools > Track Changes > Highlight Changes...

is anything checked? If so, this is your problem.

hocam burada ne cevap verilmiş