Sayfa Koruma

[okan32]

Aşağıdaki kodla çalışma sayfasındaki tüm hücreleri koruyorum.Benim amacım belli hücre aralığındaki yerin korunmasını sağlamak. Yardımlarınızı bekliyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Sheets("Sayfa1").Select
    MsgBox prompt:="Sayfaya giriş izniniz yok! - A.K", _
    Buttons:=vbOKOnly + vbCritical, Title:="YASAK BÖLGE"

End Sub

 

[turist]

"Sayfa1" isimli sayfanızın kodunu aşağıdaki gibi uygulayıp, deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C10,G8:G14")) Is Nothing Then ' Range(".......") kısmına korumak istediğiniz hücre adreslerini yazın.
ActiveSheet.Unprotect "şifreniz" ' şifre gerekmezse  "şifreniz" yazan kısmı silebilirsiniz
    Cells.Locked = False
    FormulaHidden = False
    Target.Locked = True
    FormulaHidden = True
ActiveSheet.Protect "şifreniz" ' şifre gerekmezse  "şifreniz" yazan kısmı silebilirsiniz
 MsgBox prompt:="Bu HÜCREYE giris izniniz yok! - A.K", _
    Buttons:=vbOKOnly + vbCritical, Title:="YASAK BÖLGE"
    End If
End Sub

 

[okan32]

Ilginiz için tşk ederim turist

 

[Garuramon]

Arkadaşlar macro ile kafama takılan bir şey var. Diyelim ki excel sayfasını açtı ve macro çalıştı yasak bölgeye giriş yapamıyor daha sonra sayfaya sağ tıkladı ve kod görüntüleye girdi ve yazılı olan kodu kaldırdı. yetkisiz kişi bunu yapabiliyor ise macro koymanın ne anlamı var.

 

[turist]

Sayın Garuramon,
Çözüm olarak(Alternatif):
VBA sayfasında iken Tools/VBAProject-Project Properties seçilerek
Protection tabında PASSWORD koruması yapılabilir.
Module, Userform ve sayfalardaki kodlar şifre olmadan görüntülenemez.


Bu şekilde şifre korumaları ancak, başlangıç veya orta düzey kullanıcılara dönüktür.Bir şekilde güvenlik sağlayabilir.
Tabii ki; hiçbir şifre çözümlenemez, kırılamaz değildir.Uzman olan kişi mutlaka bunu da çözer.

Burada verilen bilgiler, genel amaçlı eğitim sağlamak, kod geliştirmek içindir.
Kod çözümleme veya kırmak, Forum Kurallarına göre "YASAK" tır.

 

[Garuramon]

Sayın Garuramon,
Çözüm olarak(Alternatif):
VBA sayfasında iken Tools/VBAProject-Project Properties seçilerek
Protection tabında PASSWORD koruması yapılabilir.
Module, Userform ve sayfalardaki kodlar şifre olmadan görüntülenemez.


Bu şekilde şifre korumaları ancak, başlangıç veya orta düzey kullanıcılara dönüktür.Bir şekilde güvenlik sağlayabilir.
Tabii ki; hiçbir şifre çözümlenemez, kırılamaz değildir.Uzman olan kişi mutlaka bunu da çözer.

Burada verilen bilgiler, genel amaçlı eğitim sağlamak, kod geliştirmek içindir.
Kod çözümleme veya kırmak, Forum Kurallarına göre "YASAK" tır.

Sayın Turist,

Tam olarak düşündüğüm şey buydu çok sağ olun çözüm öneriniz için.

 

[emre67z]

"Sayfa1" isimli sayfanızın kodunu aşağıdaki gibi uygulayıp, deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C10,G8:G14")) Is Nothing Then ' Range(".......") kısmına korumak istediğiniz hücre adreslerini yazın.
ActiveSheet.Unprotect "şifreniz" ' şifre gerekmezse  "şifreniz" yazan kısmı silebilirsiniz
    Cells.Locked = False
    FormulaHidden = False
    Target.Locked = True
    FormulaHidden = True
ActiveSheet.Protect "şifreniz" ' şifre gerekmezse  "şifreniz" yazan kısmı silebilirsiniz
MsgBox prompt:="Bu HÜCREYE giris izniniz yok! - A.K", _
    Buttons:=vbOKOnly + vbCritical, Title:="YASAK BÖLGE"
    End If
End Sub

Çok güzel bir uygulama olmuş ellerinize sağlık. Ama uygulayınca bana zararı olan birşey farkettim. Sayfada ki tüm düzenlemeleri kapatıyor maalesef oysaki ben, Forum doldururken sadece hücreyi kitlesin yukarıdaki menülerden düzenleme yapmamıza izin versin istiyorum bu mümkün müdür acaba ?

 

[turist]

Çok güzel bir uygulama olmuş ellerinize sağlık. Ama uygulayınca bana zararı olan birşey farkettim. Sayfada ki tüm düzenlemeleri kapatıyor maalesef oysaki ben, Forum doldururken sadece hücreyi kitlesin yukarıdaki menülerden düzenleme yapmamıza izin versin istiyorum bu mümkün müdür acaba ?

Aşağıdaki Link'i inceleyiniz.Ona göre çözüm bulabilirsiniz.
AÇIKLAMA