Sütun Şifreleme

[bilgisayarji]

iyi akşamlar arkadaşlar
stoklarımı tutuğum bir dosyam var bu dosyada J K L ve sütünlarını gizlemem gerekiyor diğer arkadaşlar görmesin diye
" SAYFA KORU" dan şifrelediğimde bazı özelliklede iptal oluyor örnegin o dosyayı süzemiyorum
nasıl bir yol izlemem lazım ? sütün ve satırlar normal çalışın fakat şifreyi bilmeyen arkadaşlar J K L Sütünlarını göremesin

teşekkürler

 

[Korhan Ayhan]

Sayfa koruması işleminde filtre seçeneğini aktif hale getirirseniz kullanabilirsiniz. Başka seçeneklerde var.

 

[bilgisayarji]

peki hocam makro ile bunu otomatikleştirmek mümkün mü ?
iş hali bazen gerekli satırları gizlemeyi unutuyorum excel kapanırken o sayfadaki o sutunları otomatik olarak gizeleye bilirmi ?
sonra bir butona basıp şifremizi girdiğimizde acılması gibi mesela ?

 

[bilgisayarji]

Sub gizle()
Columns("I:K").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select

End Sub

bu makro ile sütünları gizliyorum


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call gizle
ThisWorkbook.Save
End Sub
Bu kodla Kaptırken Makronun Çalışmasını Sağlıyorum

Sub goster()
Columns("I:K").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select

End Sub

bu kodlada tekrar gosteriyorum fakat şifresiz

sadece şifre ile göstermek kaldı sanırım hocam

 

[muratboz06]

Sayfa1 isimli çalışma sayfasını muratboz06 şifresiyle korumaya alır.
Gözden Geçir>Sayfa Korumasını Kaldırı tıklayarak muratboz06 şifresiylede sayfanın kilidini kaldırarak ilgili sütunları göster diyebilirsiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call gizle
Worksheets("Sayfa1").Protect Password:="muratboz06"
ThisWorkbook.Save
End Sub

Bir buton aracılığıyla hem şifreyi açmak hem de sütunları göstermek isterseniz aşağıdaki makro kodunu butona veya başka bir şekile vb. atayabilirsiniz.

Sub SutunlarıGoster()
    Dim sifre As String
    sifre = InputBox("Şifre giriniz.")
    Worksheets("Sayfa1").Unprotect Password:=sifre
    If Worksheets("Sayfa1").ProtectContents = FALSE Then
        Columns("I:K").Select
        Selection.EntireColumn.Hidden = FALSE
        Range("A1").Select
    End If
    
End Sub

 

[bilgisayarji]

Sub gizle()
Columns("J:L").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select

End Sub


Sub goster()
Columns("J:L").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select

End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call gizle
ThisWorkbook.Save
End Sub

bu kodlar sorunsuz çalıştı tek sorun şifre kaldı sanırım hocam

 

[bilgisayarji]

Sayfa1 isimli çalışma sayfasını muratboz06 şifresiyle korumaya alır.
Gözden Geçir>Sayfa Korumasını Kaldırı tıklayarak muratboz06 şifresiylede sayfanın kilidini kaldırarak ilgili sütunları göster diyebilirsiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call gizle
Worksheets("Sayfa1").Protect Password:="muratboz06"
ThisWorkbook.Save
End Sub

Bir buton aracılığıyla hem şifreyi açmak hem de sütunları göstermek isterseniz aşağıdaki makro kodunu butona veya başka bir şekile vb. atayabilirsiniz.

Sub SutunlarıGoster()
    Dim sifre As String
    sifre = InputBox("Şifre giriniz.")
    Worksheets("Sayfa1").Unprotect Password:=sifre
    If Worksheets("Sayfa1").ProtectContents = FALSE Then
        Columns("I:K").Select
        Selection.EntireColumn.Hidden = FALSE
        Range("A1").Select
    End If
   
End Sub

hocam bu şekilde süz ve hücre bicimlendirmeler çalışmıyor özellikle süz benim için önemli

 

[bilgisayarji]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call gizle
Worksheets("Sayfa1").Protect Password:="muratboz06"
ThisWorkbook.Save
End Sub




Sub SutunlarıGoster()
Dim sifre As String
sifre = InputBox("Şifre giriniz.")
Worksheets("Sayfa1").Unprotect Password:=sifre
If Worksheets("Sayfa1").ProtectContents = False Then
Columns("I:K").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
End If

End Sub


Sub gizle()
Columns("I:K").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select

End Sub


bu kodlar işimi görüyor sadece tek kalan sıkıntı bütün fonksiyonlar çalışsın
fakat gizle yada göster şifre ile olsun

 

[Korhan Ayhan]

Siz ilk olarak koruma menüsündeki seçenekleri inceleyin. Oradaki işlemleri aktif hale getirebilirsiniz. Onun dışındakiler koruma ekleyince kilitlenir.

 

[bilgisayarji]

inceledim hocam hepsini tek tek işaretledim tek tek kaldırdım maalesef işimi görmedi
stok programından hücre kes ekle değiştir gibi şeyler yapmam gerekiyor
ayrıca filitreleme yapmamda gerekiyor sututnlarla hücrelerle ilgili işaretleri tıklıyorum bu sefer GİZLE/GÖSTER menüsü de
aktif hale geliyor

 

[Korhan Ayhan]

Excelde benim bildiğim kadarıyla hem tüm işlemlerin serbest olacağı hem de sayfa korumasının olacağı bir yöntemi ben bilmiyorum. Korumadaki amaç sayfada kurulan yapının bozulmasını engellemektir.

Eğer bu sütunlar çok önemli ise başka sayfaya alıp sayfayı gizleyebilirsiniz. Ya da başka bir excel dosyasına alırsınız sadece sizde kalır.