Macro ile tüm sayfaları koruma daki problem (Çözüldü)

[Asri]

Sayfa1 den Sayfa10 a kadar sayfalarım var. Macro ile tüm sayfaları sayfa korumasına alabiliyorum. Ancak benim istediğim office 2003 de olan sayfa koruma özelliğini etkinleştiridğimizde Nesne Düzenle (Edit Objects) i işaretlediğimizde kilitli sayfalarda Açıklama ekliyebiliyoruz.

Problemim şurda. macro ile sayfa kilitlediğimde Bu Nesne Düzenle özelliğini aktif hale getiremiyorum. Diğer bir deyişle tüm sayfaları macro ile korumaya aldığımda Açıklama (Comment) ekleme özelliği pasif oluyor.

Bu problemi nasıl aşabillirim. Kullandığım macro aşağıdaki gibi.

    Sub sifrele()
    For a = 1 To Sheets.Count
    Sheets(a).Protect "123" = True
    Next
    End Sub

Sayfaları tek tek arçalardan korumaya alırken Nesene Düzenle yi işaretlersem istediğim oluyor. Ancak 20-30 sayfa da bu pek de kullanışlı değil.

iyi çalışmalar.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:692d4d02c6]Sub sifrele()
For a = 1 To Sheets.Count
Sheets(a).Protect "123", DrawingObjects:=False
Next
End Sub[/vb:1:692d4d02c6]

 

[Asri]

Teşekkür ederim. İşe yaradı.