sayfa kopyalamasını engelleme

[ferdaaa]

mrblar
excel dosyamdaki sayfaların kopyalanmasını engellemek istiyorum
vba'da ThisWorkbook 'un içine
Thisworkbook_open altına
Thisworkbook.protect yazıyorum olmuyor sorun nerde olabilir tskkurler

 

[Seyit Tiken]

Sub Makro1()
ActiveWorkbook.Protect
End Sub

 

[ferdaaa]

bunu denedim daha oncde module'un içine yazdım ama olmuyor

 

[ferdaaa]

aslında sole bi durum var, tukarıdakı kodla sayfa sekmelerine tıkladığında kopyalama silme çıkmıyor, ancak sağ tık ile kopyalama yine yapılabiliyor.