Belirli kolonları şifrelemek

[benmutlu]

Merhabalar,

tools>>protection kısmını biraz karıştırdım ama yapamadım.
ekte verdiğim tabloda şifreye sahip kişiler, sadece "durumu" ve "oneri hangi departmanda" kolonlarına müdahale edebilsin. Süper şifre gibi başka bir şifreye sahip birisi ise bütün kolonlara müdahale edebilsin istiyorum. bunu nasıl yapabilirim.

Yardımlarınız için teşekkürler, herkese iyi çalışmalar.

 

[aqif1]

istiediyiniz 2 sütun şifreli. şifre: 123
diyer sütunlara veri girişi yapılabilir.

 

[aqif1]

Merhabalar,

tools>>protection kısmını biraz karıştırdım ama yapamadım.
ekte verdiğim tabloda şifreye sahip kişiler, sadece "durumu" ve "oneri hangi departmanda" kolonlarına müdahale edebilsin. Süper şifre gibi başka bir şifreye sahip birisi ise bütün kolonlara müdahale edebilsin istiyorum. bunu nasıl yapabilirim.

Yardımlarınız için teşekkürler, herkese iyi çalışmalar.

bi de şunu inceleyin...

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_Activate()
ActiveSheet.Unprotect "123"
Cells.Locked = True
ActiveSheet.Protect "123"
normal = InputBox("NORMAL KULLANICI VEYA SÜPER KULLANICI !. Şifrenizi giriniz.")
If normal = "123456" Then GoTo git
If normal = "123" Then
ActiveSheet.Unprotect "123"
Cells.Locked = True
Columns("c:d").Locked = False
ActiveSheet.Protect "123"
End If
Exit Sub
git:
ActiveSheet.Unprotect "123"
Cells.Locked = False
ActiveSheet.Protect "123"
End Sub

 

[EErkut]

Basit bi örnekte benden olsun

 

[benmutlu]

Herkese teşekkürler arkadaşlar. Sorunumu çözmeye en yakın örnek Ziya Bey'inki idi ama onda da şöyle bir sorun var: 123 şifresini giren normal kullanıcı tools>>protection>>unprotect sheet dediği zaman kendi 123 şifresi ile kendi sınırlamasını kaldırabiliyor. Özünde bunu süper kullanıcının yapabilmesi lazım tabi.

 

[EErkut]

ActiveSheet.Unprotect "123"
ActiveSheet.Protect "123"

sayfa koruma şifresini belirler bunları istidiğiniz gbi değiştiriniz sayfa koruma şifresi değişecektir.

 

[benmutlu]

teşekkürler. ben hep unprotectleri değiştiriyordum. sonra da niye hata veriyor diyordum.