Çalışma Sayfalarını Koruma

[leumruk]

konuda ki tüm yardımlarınız için tekrar tekrar teşekkürler.

Rica ederim.

 

[zgr022]

arkadaşlar selam.bir arkadaşımın yardıma ihtiyacı var.yukarıda belirtmişsiniz ama ben tam anlayamadım.o sadece bir sutündaki formüllerin yanlışlıkla değiştirilmemesini istiyor.bana yardımcı olursanız sevinirim.excel 2007 kullanıyor.

 

[theshadows51]

sayın Altun'a bir sorum daha olacak;

Sub Sayfa_Koru()
For Each syf In Worksheets
syf.Protect "1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
syf.EnableSelection = xlNoSelection
Next
MsgBox "Kilitlendi.", vbInformation, "Bilgi!"
End Sub
Sub Koruma_Ac()
Sifre = Application.InputBox("Şifreyi Giriniz", "Hoşgeldiniz")
If Sifre = False Then Exit Sub
If Sifre = "1234" Then
For Each syf In Worksheets
syf.Unprotect Sifre
Next
Else:
MsgBox "Yanlış Şifre", vbCritical, "Uyarı!"
End If
End Sub


yukarıda daha önce yazdığınız kodu sorunsuz bir şekilde kullanıyorum. kilitle butonuna basınca da kilitliyor tüm sayfaları. kilitleyip excel'i kapadıktan sonra tekrar açtığım zaman sayfalar kilitli oluyor ama salt okunur şekilde kilit oluyor. yani hücrelerde değişiklik yapılmasına izin vermiyor fakat seçimine izin veriyor. seçilebildiğinden dolayı kopyalanabilirliği de olduğundan bunu nasıl engelleyebiliriz? "syf.EnableSelection = xlNoSelection" kodunun bu ihtiyacımızı karşılaması gerekmiyor mu?

teşekkürler.

 

[theshadows51]

sayfayı koru dediğimizde tüm sayfaları korumaya alıp hücrelerin seçimini kilitliyor fakat excel i kapatıp tekrar açtığımızda şifreyi girmeden oynama yada değişiklik yapamasak bile hücreleri seçebiliyoruz.

 

[theshadows51]

güncel........