Makro ile sütun gizleyip şifreleme

[alican41]

Merhaba arkadaşlar..
Forumda araştırdım , sutun gizleyebiliyoruz ancak gizli olan sutunu şifreleyemiyoruz.

C ve D sutununu makro ile gizliyorum.Yine makro ile göster dediğimde şifre girmeden göstermesin.Bu Arada sayfa her iki durumda da şifre korumalı olması gerekiyor.
Dosya ektedir yardım edebilecek arkadaşlara şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

    ActiveSheet.Unprotect
    deg = InputBox("Şifrenizi giriniz.")
    If deg = 123 Then
    Columns("B:E").Select
    Range("B2").Activate
    Selection.EntireColumn.Hidden = False
    Else
    End If
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

 

[alican41]

    ActiveSheet.Unprotect
    deg = InputBox("Şifrenizi giriniz.")
    If deg = 123 Then
    Columns("B:E").Select
    Range("B2").Activate
    Selection.EntireColumn.Hidden = False
    Else
    End If
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Bu şekilde yaptım


Sub kapat()
'
' kapat Makro
' gizle
'
' Klavye Kısayolu: Ctrl+k
'
ActiveSheet.Unprotect
Columns("C").Select
Range("C2").Activate
Selection.EntireColumn.Hidden = True
ActiveSheet.Protect "123"
End Sub
Sub göster()
'
' göster Makro
' göster
'
' Klavye Kısayolu: Ctrl+g
'
ActiveSheet.Unprotect
deg = InputBox("Şifrenizi giriniz.")
If deg = 123 Then
Columns("C").Select
Range("C2").Activate
Selection.EntireColumn.Hidden = False
Else
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Bu sefer açarken iki kere şifre soruyor ilk önce sayfa korumasının şifresini sonrada sütun şifresini.

bu dosya yı iki kişi kullanıyor 1. kişi işçi:sayfa koruma şifresini biliyor satış fiyatlarını düzenleyebilir ama kesinlikle alış fiyatlarını görmemesi gerekiyor,dolayısı ile sayfa korumasını kaldırıp sutunu elle seçip göster deyip alış fiyatlarını görebilir.buradaki amaç C ve D sutunundaki fiyatları 2.kişilan patron haricinde kimsenin görememesi.

 

[N.Ziya Hiçdurmaz]

yanıt

İşçi sayfa korumasını kaldırmadan gerekli yerlere giriş yapabilir, patronda şifre ile kendi sütununa girip düzenleme yapabilir.Bu şekil revize ettim.

Sub kapat()
'
' kapat Makro
' gizle
'
' Klavye Kısayolu: Ctrl+k
'
    ActiveSheet.Unprotect "123"
    Cells.Locked = False
    Columns("C:D").Select
    Range("C2").Activate
    Selection.EntireColumn.Hidden = True
    ActiveSheet.Protect "123"
End Sub

Sub göster()
'
' göster Makro
' göster
'
' Klavye Kısayolu: Ctrl+g
'
  ActiveSheet.Unprotect "123"
    deg = InputBox("Şifrenizi giriniz.")
    If deg = 123 Then
      Columns("C:D").Select
    Range("C2").Activate
    Selection.EntireColumn.Hidden = False
    Else
    End If
    ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[alican41]

N.Ziya Hiçdurmaz İlgilendiğin için çok teşekkür ederim.
Artık işçiye koruma şifresini veremicez bu durumda,sanırım bundan baska da çözümü yok gibi gözüküyor.Tekrar teşekkürler sağolasın.