Kullanıcıya Göre Sayfa Gizlemek ve Açmak

[1Al2Ver]

Merhaba,

Dosya açıldığında ekrana bir UserForm gelsin ve UserForm'da Kullanıcı isimleri olsun,

Yapılan seçime göre, gizlenmiş sayfalar, şifre girilerek açılsın,

Örneğin ;
Kullanıcı Ali ise sadece "TE" ve "MTF" açılsın,

Kullanıcı Mehmet ise sadece "MTL"ve "MTF" açılsın,
……….
…………………..
5 adet kullanıcım, 15 kadar sayfam var
Dosyada bu kodun bağlı çalıştığı diğer kodlar var,
O ayarları ve düzenlemeleri ben yapabilirim.

Daha pratik olacaksa "AYARLAR" diye bir sayfa açıp
bu tür yetkileri ve şifreleri oradan da düzenleye biliriz.

Teşekkür ederim.

http://s5.dosya.tc/server2/gszxye/ore__Sayfa__Gizleme_ve_Sifreleme__123456_.rar.html

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[1Al2Ver]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Sayın muygun, merhaba,

Çok teşekkür ederim,

Zaman ayırıp, emek harcadınız, sağ olun, elinize sağlık,

Sağlıcakla kalın,

Sevgi ve saygılarımla.

 

[Asri]

Alternatif,

http://s2.dosya.tc/server2/maktpv/KullaniciFormGirisi.zip.html

 

[1Al2Ver]

Alternatif,

http://s2.dosya.tc/server2/maktpv/KullaniciFormGirisi.zip.html

Sayın asri merhaba,

Öncelikle, emeğiniz ve zahmetiniz için teşekkür ederim.

Aslında yapmak istediğim çözüm, bir-iki ilave yaparak düzenlemeye de çalıştım ama olmadı,

Kullanıcılardan;

"basri" nin açmaya yetkili olduğu sayfalar, sayfa korumalı açılsın,

"asri" nin, "hayri" nin vb. açmaya yetkili olduğu sayfalar ise, sayfa koruması olmadan açılsın, istiyorum.

Bir-iki deneme yaptım, beceremedim galiba.Bir de "1xy63*y76xvc" yazan yeri değiştirdim ama bazı hatalar aldım,

Beni yönlendirirseniz memnun olurum.

Teşekkür ederim.

 

[Asri]

Mümkün olduğunca tüm açıklamaları ekledim.

Önemli bir nokta, şifre değiştirdiğinizde dosyayı kaydedin. Kapatıp açın.

USERFORM kod bölümünü aşağıdaki şekilde güncelleyiniz.

Dim kullanici As String

Sub hepsini_gizle()
  'Kitap koruması pasif ediliyor
  ActiveWorkbook.Unprotect adminsifre
  
  'Tüm sayfalar gizli yapılıyor "Menu" sayfası hariç
  For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Menu" Then Sheets(i).Visible = False
  Next i
  
  'Kitap koruması aktif ediliyor
  ActiveWorkbook.Protect adminsifre
End Sub

Private Sub CommandButton1_Click()
  'Tüm sayfaları gizleyen prosedür çağrılıyor
  Call hepsini_gizle
  
  'Kitap koruması pasif ediliyor
  ActiveWorkbook.Unprotect adminsifre
  
  'Kullanıcı adı ve şifre kontrolüne göre gösterilecek sayfalar
  If kullanicitext = "asri" And sifretext = "1" Then
    'Bu sayfaların sayfa koruması kaldırılıyor
    Sheets("TE").Unprotect sayfakoruma
    Sheets("MTF").Unprotect sayfakoruma
    
    'Bu sayfalar gösteriliyor
    Sheets("TE").Visible = True
    Sheets("MTF").Visible = True
    
    'Giriş formu gizleniyor
    UserForm1.Hide
  End If
  
  If kullanicitext = "basri" And sifretext = "2" Then
    'Bu sayfalar korumaya alınıyor
    Sheets("MTF").Protect sayfakoruma
    Sheets("MTL").Protect sayfakoruma
    
    'Bu sayfalar gösteriliyor
    Sheets("MTF").Visible = True
    Sheets("MTL").Visible = True
    
    'Giriş formu gizleniyor
    UserForm1.Hide
  End If
  
  'Kitap koruması aktif ediliyor
  ActiveWorkbook.Protect adminsifre
End Sub

MODUL1 deki kodu aşağıdaki şekilde güncelleyiniz.

'www.asriakdeniz.com - asriakdeniz@gmail.com 17.07.2016
Public adminsifre, sayfakoruma As String

Sub formgoster()
   'Application.EnableEvents = True
    UserForm1.Show
End Sub

Sub Auto_Open()
  'Buradaki şifreler değiştirilecek
  adminsifre = "1xy63*y76xvc"
  sayfakoruma = "876hnbgs537sjs"
  
  'Kitap koruması pasif ediliyor
  ActiveWorkbook.Unprotect adminsifre
  
  ' "Menu" sayfası hariç. Tüm sayfalar gizleniyor.
  For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Menu" Then Sheets(i).Visible = False
  Next i
  
  'Kitap koruması aktif ediliyor
  ActiveWorkbook.Protect adminsifre
End Sub

 

[halit3]

Alternatif olarak aşağıdaki linki irdeleyiniz.

http://www.excel.web.tr/f129/parola-ve-ifre-olu-turma-t86741.html#post472159

 

[1Al2Ver]

Sayın asri tekrar merhaba,

Teşekkür ederim, zahmet ve emeğiniz için,

"kitap koruma" yı kod da görünce eksik yada yanlış anlatmış olabileceğimi düşünüyorum.

Bir kez daha anlatmam gerekir ise ,

Kullanıcılardan;

"basri" nin açmaya yetkili olduğu sayfalar, sayfa ve kitap korumalı açılsın,

"asri" nin açmaya yetkili olduğu sayfalar , sayfa ve kitap koruması olmadan açılsın,

"hayri" nin açmaya yetkili olduğu sayfalar, sayfa korumasız, kitap korumalı açılsın.

Şayet zahmet olmayacak ise ve zamanınız müsait ise, bu kriterleri içeren bir çözüm rica edeceğim,

Eksik bilgilendirme için de özür diliyorum.

Teşekkür ederim.

 

[Asri]

Sayın asri tekrar merhaba,

Teşekkür ederim, zahmet ve emeğiniz için,

"kitap koruma" yı kod da görünce eksik yada yanlış anlatmış olabileceğimi düşünüyorum.

Bir kez daha anlatmam gerekir ise ,

Kullanıcılardan;

"basri" nin açmaya yetkili olduğu sayfalar, sayfa ve kitap korumalı açılsın,

"asri" nin açmaya yetkili olduğu sayfalar , sayfa ve kitap koruması olmadan açılsın,

"hayri" nin açmaya yetkili olduğu sayfalar, sayfa korumasız, kitap korumalı açılsın.

Şayet zahmet olmayacak ise ve zamanınız müsait ise, bu kriterleri içeren bir çözüm rica edeceğim,

Eksik bilgilendirme için de özür diliyorum.

Teşekkür ederim.

Kitap koruması genel için olması gereken bir kod.
Kitap koruması olamayacak ise, kişi bazlı sayfa gizleme yapılamaz.
Sağ tuş göster ile istediği sayfayı açar.

"asri" nin açmaya yetkili olduğu sayfalar , sayfa korumasız açılıyor.
"basri" nin açmaya yetkili olduğu sayfalar, sayfa korumalı açılıyor.

"hayri" nin yetkilerini "asri" ile aynı yapabilir siniz.

Tüm açıklamaları ekledim.
Kodları incelemeden ve uygulamasını yapmadan mesaj yazıyorsunuz.

Yapabileceklerim bu kadar.

İyi çalışmalar.

 

[1Al2Ver]

Alternatif olarak aşağıdaki linki irdeleyiniz.

http://www.excel.web.tr/f129/parola-ve-ifre-olu-turma-t86741.html#post472159

Sayın halit3 merhaba,

İnceledim, kendi dosyama uyarlamak için yönergelerinizi takip edeceğim, en azından alternatif bir çözüm daha elde etmiş oldum,

Teşekkür ederim.

 

[1Al2Ver]

Kitap koruması genel için olması gereken bir kod.
Kitap koruması olamayacak ise, kişi bazlı sayfa gizleme yapılamaz.
Sağ tuş göster ile istediği sayfayı açar.

"asri" nin açmaya yetkili olduğu sayfalar , sayfa korumasız açılıyor.
"basri" nin açmaya yetkili olduğu sayfalar, sayfa korumalı açılıyor.

"hayri" nin yetkilerini "asri" ile aynı yapabilir siniz.

Tüm açıklamaları ekledim.
Kodları incelemeden ve uygulamasını yapmadan mesaj yazıyorsunuz.

Yapabileceklerim bu kadar.

İyi çalışmalar.

Sayın asri merhaba,

Yaptıklarınız için teşekkür ederim, emeğe saygım var, ancak biraz haksız bir eleştiri yapmışsınız.

Kodları inceledim, denedim, hatta parolalar ile ilgili denemeler ile olayı çözdüm,

Ancak sizin kadar profesyonel olmadığım için bazı algılarda eksiğim olabilir,

Son isteklerimden birisi "kitap koruması" nın bazı kullanıcılarda olmaması yönünde idi, son ifadenizden de olmadığını öğrenmiş oldum, dolayısı ile olmuyorsa yapacak bir şey yoktur.

Önerileriniz doğrultusunda bir düzenleme yapacağım, tekrar teşekkür ederim.

Sağlıcakla kalın.

 

[Turkbey41]

Harika bir çalışma emeği geçenlere çok teşekkür ederim.