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.
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
Kod:
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.