sayfa koruma makrosunda, nesne düzenlenebilir durumda olması

[euphrates55]

Sub Kilitle()
sifre = "0"
For i = 1 To 3
Sheets(i).Protect sifre
Next i
MsgBox "Sayfalar koruma altına alındı.", 64, "FRT"
End Sub

bu kodda nereye ne yazmalıyım ki, sayfa korumasında objeler yani resimler korunmasın, silinmelerine izin verilsin.

 

[AdemCan]

Sheets(i).Protect sifre satırını Sheets(i).Protect sifre, DrawingObjects:=False olarak değiştirin.

 

[euphrates55]

Sheets(i).Protect sifre satırını Sheets(i).Protect sifre, DrawingObjects:=False olarak değiştirin.

teşekkürler.

 

[AdemCan]

Rica ederim.

 

[mekist]

Sayfada dilimleyici ve grafik var
Grafikler değiştirilemesin ama dilimleyici kullanmak istiyorum, koruma için kod yazabilirim

 

[Korhan Ayhan]

Linki inceleyiniz..

Using Slicers on Protected Worksheets - Excel Campus

Learn to lock an entire worksheet but leave certain components like slicers available to be changed and manipulated.

www.excelcampus.com

 

[mekist]

çok teşekkür ederim, sorunu çözdüm