Soru Excelde kişiye özel hücre kilitleme

[Seli]

Herkese merhabalar, ben bir şey merak ediyorum olup olmadıgını bilmiyorum sormak istedim..
Bir excelde örneğin a1 hücresi Ahmet'e kullanma açık sadece, b1 hücresi Hakan'a açık ve diğer tüm hücreler kitli şeklinde bir düzenleme yapılabilir mi? Şimdiden teşekkür ederiim..

 

[balanar]

Bende merak etmekteyim bu konuyu

 

[PColik]

Peki Excel'e Ahmet'i, Mehmet'i, Ali'yi, Ayşe'yi hangi yöntemle tanıttıracaksınız. Mesela dosya açılırken kullanıcı adı şifre mi isteyeceksiniz?

 

[Seli]

Kullanıcı açınca zaten kendi ismi cıkıyor hocam.. İsim ve maille önceden tanıtmayı düşünmüştüm.

 

[PColik]

Hocam tanımlamayı tam olarak nasıl gerçekleştirdiğinizi bilemediğimden aşağıdaki gibi bir örneği kendinize uyarlamayı deneyebilirsiniz. İf bloklarını artırarak kullanıcılara göre hücre kilidi açabilirsiniz.

Private Sub Workbook_Open()
ActiveSheet.Unprotect Password:="123456"
Cells.Locked = True
If kullanıcı = "ahmet" Then
Range("A1").Locked = False
ActiveSheet.Protect Password:="123456"
End If
Cells.Locked = True
ActiveSheet.Protect Password:="123456"
End Sub

 

[Seli]

Hocam cok tesekkur ederım ancak sıfrelı olmasını ıstemıyorum, cok uzun olur ve paylasacagım kısılerın onaylayacagını dusunmuyorum.. Şifresiz yapamaz mıyız hocam

 

[PColik]

Kodların içindeki Password yazan bölümleri silmeniz yeterlidir
Ancak şifresiz olursa sayfa korumasını herkes kaldırıp istedikleri gibi müdahale edebilirler. (Tabi kullanacak kişiler Excel'i iyi biliyorlarsa o zaman VBA'ya da şifre koymanız gerekir)

 

[Seli]

Hocam ben suan sadece bır hucreye veya ıkı hucre dıyelım kullanıcı "Ahmet" erişebilir sadece seklınde duzenlemek ıstıyorum aslında.. Bu sekılde yıne degısıklık yapılabilir hucrelerde..

 

[tacettinsal]

Merhaba,
Şu şekilde bir uygulama yapabilirsiniz. Bu kodu A1 için uyguladığınızda kullanıcı eğer "Ahmet" değilse hücreyi hiçbir zaman seçemeyeceği için değişiklik de yapamaz. Tabi burada hesap adının doğru olduğundan emin olunuz.

İlgili sayfaya kodları yazıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Row = 1 And Target.Column = 1 Then

    a = Application.UserName
    If a <> "Ahmet" Then
    Range("B1").Select
    End If
    
End If

End Sub

 

[Seli]

Hocam bu kodu module mı yazmak gerekır, sayfaya mı?

 

[tacettinsal]

Hocam bu kodu module mı yazmak gerekır, sayfaya mı?

Sayfaya yazılması gerekir.

 

[Seli]

Çok teşekkür ederiim..