hücre koruma

[pulsar2]

Bir excel sayfasinda sadece bazi hucreleri korumak (ancak sifre ile girilebilsin) mumkun mu?

Tsk

 

[fedeal]

hücrelerin hepsi seçilir sag tıklanır hücreleri biçimlerdir-koruma-kitli ve gizli secenegi iptal edilir (yani işaretler silinir) cıkılır.kitlenmesi isenilen hücreler secilir tekrar sagtıklanır hücreleri biçimlerdir-koruma-kitli tıklanır formüller görünmesin istersen gizliyide tıklayıp --- araçlar koruma sayfa koru şifre gir tekrar şifre gir bukadar.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub KORU()
Dim DEG As String
On Error Resume Next
ActiveSheet.Unprotect 123
Cells.Locked = False
DEG = InputBox("korunacak alanı seçiniz")
Range(DEG).Locked = True
ActiveSheet.Protect 123
End Sub

Sub KORUAC()
Dim DEG As String
ActiveSheet.Unprotect 123
DEG = InputBox("Şifrenizi giriniz")
If DEG <> 123 Then GoTo ATLA
Cells.Locked = False
ATLA:
ActiveSheet.Protect 123
End Sub