Bir veya birçok hücreyi nasıl kilitleyebilirim?

[zelatum]

Makroyu kullanarak bir veya birkaç hücreyi sadece benim istediğim bilgileri yansıtması için kullanmak istiyorum. Bu arada da kimse bu hücrelere giremesin ve değişiklik yapamasın istiyorum. Nasıl bir kod kullanmam lazım. Yardımlarınızı bekliyorum.

 

[Orion1]

Merhaba.
Araçlar ==> sayfa koruma ve şifrenizi verin.

 

[zelatum]

Slm. Yardımın için saol.

Fakat ben bunu makroda kodlarla istedeğim an istediğim hücre veya hücreleri kilitleyerek yapmak istiyorum.

 

[Orion1]

Fakat ben bunu makroda kodlarla istedeğim an istediğim hücre veya hücreleri kilitleyerek yapmak istiyorum.

Aşağıdaki kod sanırım işinizi görür.

Sub koruma()
koru = InputBox("Korunacak Alanı Giriniz." & vbLf & "A1:A10 gibi", "SAYFA KORUMA." & vbLf & "A1:B10 gibi.")
If koru = Empty Then Exit Sub
ActiveSheet.Unprotect
Range(koru).Locked = True
ActiveSheet.Protect
MsgBox "[ " & koru & " ] Aralığındaki hücreler kilitliendi." & vbLf _
& "Sayfa korumaya alındı.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[altanson]

Aşağıdaki kod sanırım işinizi görür.

Sub koruma()
koru = InputBox("Korunacak Alanı Giriniz." & vbLf & "A1:A10 gibi", "SAYFA KORUMA." & vbLf & "A1:B10 gibi.")
If koru = Empty Then Exit Sub
ActiveSheet.Unprotect
Range(koru).Locked = True
ActiveSheet.Protect
MsgBox "[ " & koru & " ] Aralığındaki hücreler kilitliendi." & vbLf _
& "Sayfa korumaya alındı.", vbOKOnly + vbInformation, Application.UserName
End Sub

tüm sayfayı korudu bu makro, yoksa ben mi bir şeyi yanlış yaptım?

 

[Orion1]

tüm sayfayı korudu bu makro, yoksa ben mi bir şeyi yanlış yaptım?

O zaman birde aşağıdaki kodu deneyiniz.

Sub koruma()
koru = InputBox("Korunacak Alanı Giriniz." & vbLf & "A1:A10 gibi", "SAYFA KORUMA." & vbLf & "A1:B10 gibi.")
If koru = Empty Then Exit Sub
ActiveSheet.Unprotect
ActiveSheet.Cells.Locked = False
Range(koru).Locked = True
ActiveSheet.Protect
MsgBox "[ " & koru & " ] Aralığındaki hücreler kilitliendi." & vbLf _
& "Sayfa korumaya alındı.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[altanson]

O zaman birde aşağıdaki kodu deneyiniz.

Sub koruma()
koru = InputBox("Korunacak Alanı Giriniz." & vbLf & "A1:A10 gibi", "SAYFA KORUMA." & vbLf & "A1:B10 gibi.")
If koru = Empty Then Exit Sub
ActiveSheet.Unprotect
ActiveSheet.Cells.Locked = False
Range(koru).Locked = True
ActiveSheet.Protect
MsgBox "[ " & koru & " ] Aralığındaki hücreler kilitliendi." & vbLf _
& "Sayfa korumaya alındı.", vbOKOnly + vbInformation, Application.UserName
End Sub

elinize sağlık birde bu korumaya nasıl şifre koyabiliriz?

 

[Orion1]

Sayfa korumasına şifre vermek için aşağıdaki kodların kırmızı ile yazılmış şeklinde değiştirin.
Burada şifre 1234 tür Siz başka bir şifrede verbilirsiniz.
Haman aa !! sakın şifreyi unutmayın.Sonra sayfa korumasını kaldıramazsınız.

Sub koruma()
koru = InputBox("Korunacak Alanı Giriniz." & vbLf & "A1:A10 gibi", "SAYFA KORUMA." & vbLf & "A1:B10 gibi.")
If koru = Empty Then Exit Sub
[B][COLOR="Red"]ActiveSheet.Unprotect "1234[/COLOR]"[/B]
ActiveSheet.Cells.Locked = False
Range(koru).Locked = True
[B][COLOR="red"]ActiveSheet.Protect "1234"[/COLOR][/B]
MsgBox "[ " & koru & " ] Aralığındaki hücreler kilitlendi." & vbLf _
& "Sayfa korumaya alındı.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[altanson]

Sayfa korumasına şifre vermek için aşağıdaki kodların kırmızı ile yazılmış şeklinde değiştirin.
Burada şifre 1234 tür Siz başka bir şifrede verbilirsiniz.
Haman aa !! sakın şifreyi unutmayın.Sonra sayfa korumasını kaldıramazsınız.

Sub koruma()
koru = InputBox("Korunacak Alanı Giriniz." & vbLf & "A1:A10 gibi", "SAYFA KORUMA." & vbLf & "A1:B10 gibi.")
If koru = Empty Then Exit Sub
[B][COLOR="Red"]ActiveSheet.Unprotect "1234[/COLOR]"[/B]
ActiveSheet.Cells.Locked = False
Range(koru).Locked = True
[B][COLOR="red"]ActiveSheet.Protect "1234"[/COLOR][/B]
MsgBox "[ " & koru & " ] Aralığındaki hücreler kilitlendi." & vbLf _
& "Sayfa korumaya alındı.", vbOKOnly + vbInformation, Application.UserName
End Sub

peki bu kodun ve şifrenin gözükmesini engellemek için nasıl bi şifre koyabiliriz?

abartıyorsam lütfen söyleyin

 

[zelatum]

Saolasın

Yardımların için teşekkür ediyorum. Eline ve beynine sağlık.

 

[zelatum]

Saolun.

Hepinize teşekkürler. İkinizin bilgiside benim sorularıma tam cevap oldu. Banada uygulamak kaldı. İkinizinde beynine sağlık.

 

[Orion1]

peki bu kodun ve şifrenin gözükmesini engellemek için nasıl bi şifre koyabiliriz?

abartıyorsam lütfen söyleyin

O zaman aşağıdaki kodları kullanmanızı öneririm.
Yalnız şifreyi unutmamanız lazım.

Sub koruma()
sifre1 = InputBox("Korumalı Sayfanın Korumasını kaldırmak için şifreyi giriniz.", "ŞİFRE")
koru = InputBox("Korunacak Alanı Giriniz." & vbLf & "A1:A10 gibi", "SAYFA KORUMA." & vbLf & "A1:B10 gibi.")
If koru = Empty Then Exit Sub
On Error GoTo yanlissifre
ActiveSheet.Unprotect sifre1
ActiveSheet.Cells.Locked = False
Range(koru).Locked = True
sifre2 = InputBox("Sayfa Korumasına Şifre vermek için Bir şifre giriniz.", "ŞİFRE")
ActiveSheet.Protect sifre2
MsgBox "[ " & koru & " ] Aralığındaki hücreler kilitliendi." & vbLf _
& "Sayfa korumaya alındı.", vbOKOnly + vbInformation, Application.UserName
Exit Sub
yanlissifre:
MsgBox "Yanlış Şifre Girdiniz." & vbLf & "Tekrar Deneyiniz..!!", vbCritical, Application.UserName
End Sub

 

[Orion1]

Yardımların için teşekkür ediyorum. Eline ve beynine sağlık.

Rica ederim .
İyi çalışmalar.

 

[altanson]

O zaman aşağıdaki kodları kullanmanızı öneririm.
Yalnız şifreyi unutmamanız lazım.

Sub koruma()
sifre1 = InputBox("Korumalı Sayfanın Korumasını kaldırmak için şifreyi giriniz.", "ŞİFRE")
koru = InputBox("Korunacak Alanı Giriniz." & vbLf & "A1:A10 gibi", "SAYFA KORUMA." & vbLf & "A1:B10 gibi.")
If koru = Empty Then Exit Sub
On Error GoTo yanlissifre
ActiveSheet.Unprotect sifre1
ActiveSheet.Cells.Locked = False
Range(koru).Locked = True
sifre2 = InputBox("Sayfa Korumasına Şifre vermek için Bir şifre giriniz.", "ŞİFRE")
ActiveSheet.Protect sifre2
MsgBox "[ " & koru & " ] Aralığındaki hücreler kilitliendi." & vbLf _
& "Sayfa korumaya alındı.", vbOKOnly + vbInformation, Application.UserName
Exit Sub
yanlissifre:
MsgBox "Yanlış Şifre Girdiniz." & vbLf & "Tekrar Deneyiniz..!!", vbCritical, Application.UserName
End Sub

elinize sağlık çok teşekkürler

 

[Orion1]

elinize sağlık çok teşekkürler

Rica ederim.
İyi çalışmalar.