Gruplanmıs kolona sifre atama

[akronium]

merhabalar bir sou ile rahatsız etmek istiyorum
fiyat kolonunu ilgili kişilere actırmak istiyorum - sifre veya yetkilendirme ile
uygun bir çözüm VBA yada excel menüsünde mümkün mü ?

A kolonu B kolonu C kolonu
Müsteri Fiyat Satıs Adedi

Selim 32 500
Ali 12 450
Metin 5 650

Tesekurler

Selim

 

[cems]

VBA kodu ile

Private Sub Workbook_Open()
    ' Fiyat kolonunu (C Kolonu) korumak için
    Columns("C").Locked = True
    ' Şifreli yetkilendirme
    Dim userPassword As String
    userPassword = InputBox("Fiyat Kolonunu Düzenlemek İçin Şifrenizi Girin", "Şifre Girişi")

    If userPassword = "1234" Then
        ' Doğru şifre girildiğinde Fiyat kolonunu aç
        Columns("C").Locked = False
        MsgBox "Fiyat kolonunu düzenleyebilirsiniz!", vbInformation
    Else
        MsgBox "Yanlış şifre!", vbCritical
    End If
End Sub

bu kodu thisworkbook alanına kopyalayın save edip kapatın acın c kolonu gizleyerek açar ve şifre sorar. Yanlış şifrede kolonu açmaz. Siz de kolonu ve kişiyi ayarlarsınız