Username Göre Sütun Kilitleme

[askm]

Hayırlı akşamlar. Şifre ile sayfa kilitleme yapılabiyor. Kullanıcı adı ile sayfa1 K ve L sütunları kilitlenebilir mi. A kullanıcısı açarsa açık. B C açarsa kilitli gibi.

 

[Korhan Ayhan]

Sayfa koruma ayarlarını size bırakıyorum.

Aşağıdaki yapı işinizi görecektir.

Private Sub Workbook_Open()
    Dim S1 As Worksheet, Kullanici As String
    
    Set S1 = Sheets("Sayfa1")
    Kullanici = Application.UserName
    
    Select Case Kullanici
        Case "A"
            S1.Unprotect "12345"
        Case "B", "C"
            S1.Protect "12345"
        Case Else
            MsgBox "Kayıtlı kullanıcı değilsiniz!" & Chr(10) & "Dosya kapanacaktır.", vbCritical
            Application.Quit
    End Select
End Sub

 

[askm]

Sayın Korhan Bey teşekkürler ederim. Burada şifreyi bir şekilde gören B veya C kullanıcısı hatta farklı bir kullanıcı bile kiliti açabilir. Ben direkt username e göre olabilir mi. diye merak ediyorum.

 

[Korhan Ayhan]

VBA bölümüne şifre koyarsanız bir nebze çözüm olabilir. İşin ehli olmayan kullanıcılar için bu şekilde kullanabilirsiniz.

 

[BedriA]

Hayırlı akşamlar. Şifre ile sayfa kilitleme yapılabiyor. Kullanıcı adı ile sayfa1 K ve L sütunları kilitlenebilir mi. A kullanıcısı açarsa açık. B C açarsa kilitli gibi.

Bu konuyla ilgili basit bir örnek paylaşabilir misiniz? Ayrıca Korhan Hoca'nın yazdığı kod nereye yazılacak acaba?

Selam ve saygılarımla.

 

[askm]

Kodları BuÇalışmaKitabı kısmına yapıştırın. Çalışacaktır.

 

[BedriA]

Kodları BuÇalışmaKitabı kısmına yapıştırın. Çalışacaktır.

Peki dediğiniz gibi sadece sayfadaki sütunları mı kilitliyor yoksa sayfanın tamamını mı ?

 

[askm]

Bu kodlar tüm sayfayı kilitler. Öncelikle hüclerin tamamını seçip kilitlerini kaldırın. Sonra kilitlenmesini istediğiniz sütunu sağ tıklayarak hücre biçimlendir koruma kısmından kilit işaretini aktif yapın.