• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

SEKMELERE ŞİFRE KOYMA

  • Konbuyu başlatan Konbuyu başlatan wahap70
  • Başlangıç tarihi Başlangıç tarihi
W

wahap70

Altın Üye
Katılım
14 Aralık 2012
Mesajlar
60
Excel Vers. ve Dili
Office 365 Türkçe
Arkadaşlar Şöyle Bir Sorum Olacak Birtane Excel Dosyamız Olacak Bu Tamamen Şifresiz Olacak Ama İçinde Bulunan Sekmelerin Her Biri Bir Kişiye Ait Olacak Mesela Sekme İsimleri AHMET,MEHMET,HÜSEYİN ve Bu kişilerin Ayrı Bir şifresi Olacak Kimse Kimsenin Sekmesini tıklayıp açamayacak şifreyi bilmiyorsa Bunu Yapmak Mümkün mü ?
 
Merhaba

Talebiniz mümkündür.
Ekteki dosyada sekmelere şifre konulmuştur.
İlgili sekme tıklandığında şifre sorulmakta, yanlış şifre girilirse o sekmenin içeriği gösterilmemektedir.

Kolay olsun diye ben her sayfanın şifresi olarak o sayfanı adını belirledim.
Siz ihtiyaca göre şifreleri değiştirirsiniz.

Birde excel vba sayfasının yani kod bölümünün açılması için sadece sizin bildiğiniz bir şifre atarsınız.
Başkaları bu kod sayfasına şifresiz giremeyeceği için sayfalara belirlediğiniz şifreleri sadece siz görebilir ve şifreleri sadece siz kontrol edebilirsiniz.
Ben Kod Sayfasına girme şifresini Ali olarak belirledim. Siz isteğinize göre değiştiriniz.

Şifrenizi değiştirirken mümkün olduğunca çok sayıda karakterden ve karmaşık karakterler kullanarak oluşturmanız şifrenizin kırılmasını engeller.
Aksi takdirde Office dosyalarının şifrelerini kırabilen bir çok program mevcut, şifre koymanızın bir manası kalmaz.

Selamlar.
Sağlıcakla Kalınız...
 

Ekli dosyalar

Son düzenleme:
üstad bu şifreyi nasıl koyduğunuzu bana tarif edebilirmisiniz. VBA hiç kullanmadım.
 
Merhaba

Vba Kod sayfasında sol taraftaki ilgili dosyanızın üzerini farenin sol tuşuyla tıklayıp seçince farenizin sağ tuşuna tıkladığınızda aşağıdaki resimdeki menü açılır.

213011


VBAProject Properties... menüsünü tıklayınca aşağıdaki resimde görülen şifre belirleme ekranı çıkar.
Sizde şifrenizi belirlersiniz.

Kolay gelsin.

213012
 
kulomer46' Alıntı:
Merhaba

Vba Kod sayfasında sol taraftaki ilgili dosyanızın üzerini farenin sol tuşuyla tıklayıp seçince farenizin sağ tuşuna tıkladığınızda aşağıdaki resimdeki menü açılır.

Ekli dosyayı görüntüle 213011


VBAProject Properties... menüsünü tıklayınca aşağıdaki resimde görülen şifre belirleme ekranı çıkar.
Sizde şifrenizi belirlersiniz.

Kolay gelsin.

Ekli dosyayı görüntüle 213012
Genişletmek için tıkla ...
teşekkür ederim üstadım.
 
sadece vba kodları paylaşmanız mümkün mü acaba
 
u.L.a.s' Alıntı:
sadece vba kodları paylaşmanız mümkün mü acaba
Genişletmek için tıkla ...

Merhaba

Ali isimli sayfanın makro kodlarını ekliyorum. Diğer sayfalarda benzer şekilde hazırlanacaktır.

Selamlar...

Kod: 
Private Sub Worksheet_Activate()
'10.01.2020    15:40

Cells.EntireRow.Hidden = True
c = InputBox(ActiveSheet.Name & "  Sayfasını Görünür yapmak için Açılış Şifresini Giriniz", "AÇILIŞ ŞİFRESİ")
If c = "Ali" Then 
    Cells.EntireRow.Hidden = False
    Cells(1, 1).Select 
Else
    MsgBox "Şifreyi Yanlış Girdiniz."
End If

End Sub

İlgili resim
213015
 
kulomer46' Alıntı:
Merhaba

Ali isimli sayfanın makro kodlarını ekliyorum. Diğer sayfalarda benzer şekilde hazırlanacaktır.

Selamlar...

Kod: 
Private Sub Worksheet_Activate()
'10.01.2020    15:40

Cells.EntireRow.Hidden = True
c = InputBox(ActiveSheet.Name & "  Sayfasını Görünür yapmak için Açılış Şifresini Giriniz", "AÇILIŞ ŞİFRESİ")
If c = "Ali" Then
    Cells.EntireRow.Hidden = False
    Cells(1, 1).Select
Else
    MsgBox "Şifreyi Yanlış Girdiniz."
End If

End Sub

İlgili resim
Ekli dosyayı görüntüle 213015
Genişletmek için tıkla ...


İlginiz için teşekkür ederim bir şey daha istesem mümkün mü acaba ? Sekmelerin Sahipleri Kendi şifrelerini Oluşturabilmeleri ve İstediklerinde Değiştirebilmeliler Bunu Yapmak Mümkün mü ? Yine VBA şifresini benim bilmem yeterli Fakat olurda şifrelerini değiştirmek isterlerse bana sormadan veya VBA şifresini girmeden kendi sayfalarında VBA penceresinde şifremi değiştir diye bir seçenekle eski şifrelerini girip sayfayı açıktan sonra değiştirebilirler mi ? veya sayfayı açmadan da değiştirebilirler mi ? Böyle birşey yaparsak çok güzel olur.


**Birde şuanda yapılan dosyada En son kimin sayfası açıksa Excel dosyasını kapatıp tekrar açtığımızda şifresiz direk ordan açılıyor.

**Dosyayı kapatırken Run-time error "9" Subscriptout of range hatası veriyor
 
Son düzenleme:
Merhaba

Yukardaki #8 nolu mesajınızdaki taleplerinizi okudum ve taleplerinizi anladım.
İlk fırsatta dosya üzerinde çalışıp taleplerinize uygun hale getirilmiş dosyayı burdan paylaşıma açmaya çalışacağım

Selamlar...
 
Değerli Arkadaşlar Tekrar Merhabar

Yukarda #2 nolu mesajımda eklediğim dosyamı taleplerinize uygun olarak revize edip yeni değişiklikler ekledim.
Dosyanın revize edilerek yenilenmiş hali Ek' tedir.

Selamlar...
 

Ekli dosyalar

kulomer46' Alıntı:
Değerli Arkadaşlar Tekrar Merhabar

Yukarda #2 nolu mesajımda eklediğim dosyamı taleplerinize uygun olarak revize edip yeni değişiklikler ekledim.
Dosyanın revize edilerek yenilenmiş hali Ek' tedir.

Selamlar...
Genişletmek için tıkla ...
Hocam İndirip Baktım şimdi de Bi değişiklik göremedim Şifre değiştirmek ile alakalı Acaba ilk dosyayı yeniden mi yüklediniz?

Hata düzeltilmiş teşekkür ederim. Fakat Dediğim gibi Kişi kendi şifresini değiştirmek isterse VBA içine girmeden nasıl değiştirebilir çünkü VBA şifresini herkes bilirse herkes herkesin şifresini de bilir.
 
wahap70' Alıntı:
Hocam İndirip Baktım şimdi de Bi değişiklik göremedim Şifre değiştirmek ile alakalı Acaba ilk dosyayı yeniden mi yüklediniz
Genişletmek için tıkla ...

Merhaba

İlk dosyada şifreli sayfa açıkken kaydedip çıktığınızda ve tekrar dosyayı açtığınızda şifreli sayfa açık olarak gelebiliyordu.
Bu gibi durumları önleyen kodlar üzerinde çalıştım yeni dosyada.
#10 numaralı mesajımda eklediğim dosyanın genel durumu ve formatı, en yukardaki #2 numaralı mesajda eklenen ilk dosyanın genel durumu ve formatı ile aynıdır.

Selamlar...
 
Son düzenleme:
kulomer46' Alıntı:
Merhaba

İlk dosyada şifreli sayfa açıkken kaydedip çıktığınızda ve tekrar dosyayı açtığınızda şifreli sayfa açık olarak gelebiliyordu.
Bu gibi durumları önleyen kodlar üzerinde çalıştım yeni dosyada.
Zaten #10 numaralı mesajımda eklediğim dosyanın genel durumu ve formatı, en yukardaki #2 numaralı mesajdaki ilk dosya ile aynıdır.

Selamlar...
Genişletmek için tıkla ...
Teşekkür Ederim Emeğinize Sağlık Kişi kendi şifresini değiştirmek isterse VBA içine girmeden nasıl değiştirebilir Konusunun imkanı Yok Sanırım
 
kulomer46' Alıntı:
Merhaba

Ali isimli sayfanın makro kodlarını ekliyorum. Diğer sayfalarda benzer şekilde hazırlanacaktır.

Selamlar...

Kod: 
Private Sub Worksheet_Activate()
'10.01.2020    15:40

Cells.EntireRow.Hidden = True
c = InputBox(ActiveSheet.Name & "  Sayfasını Görünür yapmak için Açılış Şifresini Giriniz", "AÇILIŞ ŞİFRESİ")
If c = "Ali" Then
    Cells.EntireRow.Hidden = False
    Cells(1, 1).Select
Else
    MsgBox "Şifreyi Yanlış Girdiniz."
End If

End Sub

İlgili resim
Ekli dosyayı görüntüle 213015
Genişletmek için tıkla ...
Teşekkürler üstad
 
wahap70' Alıntı:
Teşekkür Ederim Emeğinize Sağlık Kişi kendi şifresini değiştirmek isterse VBA içine girmeden nasıl değiştirebilir Konusunun imkanı Yok Sanırım
Genişletmek için tıkla ...


Değerli Arkadaşım
Tekrar Merhaba

Bir program aslında hiçbir zaman tam olarak bitmez. Çünkü zaman içinde ortaya çıkan yeni ihtiyaçlara ve durum değişikliklerine göre eklenmesi yada çıkartılması gereken noktalar, revize edilmesi gereken kod satırları her zaman bulunur.

Ek' teki dosya önceki özelliklerine ek olarak, kişilerin her sayfa için kendi şifrelerini VBA Kod sayfasına girmeden sayfaya atanmış bir düğme yardımıyla değiştirebilmelerini sağlamaktadır.

Faydalı olması umuduyla...

Selamlar...
 

Ekli dosyalar

kulomer46' Alıntı:
Değerli Arkadaşım
Tekrar Merhaba

Bir program aslında hiçbir zaman tam olarak bitmez. Çünkü zaman içinde ortaya çıkan yeni ihtiyaçlara ve durum değişikliklerine göre eklenmesi yada çıkartılması gereken noktalar, revize edilmesi gereken kod satırları her zaman bulunur.

Ek' teki dosya önceki özelliklerine ek olarak, kişilerin her sayfa için kendi şifrelerini VBA Kod sayfasına girmeden sayfaya atanmış bir düğme yardımıyla değiştirebilmelerini sağlamaktadır.

Faydalı olması umuduyla...

Selamlar...
Genişletmek için tıkla ...
Çok Teşekkür Ederim Emeğinize Sağlık Hakkınızı Helal Edin Sizi Yordum
 
Vba şifresini yazmanız mümkün mü . Kodu kendi sayfama eklemek istiyorum da.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst