Kullanıcı girişini birden fazla kişi için özelleştirmek

[Elzemnur]

Merhaba
Excel de çok yeniyim ve sizlerin kodları ile birşeyler yapmaya çalışıyorum
Sorunum sa şöyle
Sizlerden edindiğim bir makro ile Program açılışında Tekt Box'a girilen şifre ADMİN ise Gizli sayfaları görünür yapıyorum.. Değil ise açılmıyor.. Tabi Admin olunca hepsi görünür oluyor ama Ben bir de USER kullanıcısı için sadece belli sayfaların görünür olmasını istiyorum Bunu yapmak mümkün müdür?

Elimdeki kod böyle birşey

Private Sub CommandButton1_Click()
If TextBox1.Text = "Admin" Then
MsgBox " KULLANICI DOĞRULANDI ANA MENÜYE YÖNLENDİRİLDİNİZ.LÜTFEN BEKLEYİNİZ... ", vbSystemModal, " Çalışma Bilgi "
Unload sifre
Sheets("AnaSayfa").Select
For i = 2 To Worksheets.Count - 1
ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Next i
Application.ScreenUpdating = True
Application.Visible = True
acilis.Show
Else
MsgBox "Şifreniz Tanımlanamadı, Lütfen Kontrol Edip Tekrar Deneyiniz", vbExclamation, "Yetkili Giriş"
TextBox1.SetFocus
End If
End Sub

İlginize şimdiden teşekkür ederim

 

[Orion1]

Tabii bunları yapabilirsiniz ama bir hatırlatma yapayım.
Güvenlik seviyesini en yükseğe çekerek makrolar devre dışı bırakılarak isteyen yine istediği sayfaya ulaşabilir.Belki bu durum,kodlara kitap kuruması ilave edilerek ve çıkış esnasında tüm sayfaları gizleyerek bu bir nebze önlenebilir,ama syfa koruma şifresini ve kitap koruma şifresini kırmak o kadar kolay ki.Herkes kırabilir.
Kolay gelsin.

 

[Elzemnur]

Öncelikle ilginize çok teşekkür ederim Evren Bey

Benim için kırılması sorun değil.

Bahsettiğiniz gibi çıkışta yada sayfaları gizlettirererk kayıt oluşturduğum için açıklışta diğer sayfalar gözükmüyor sadece ilk sayfa görünüyor.

Şifre hatalı olunca da dolayısıyla açılmıyor..

Benim sizden istediğim altta yazdığım kod un içine bir de USER için giriş yazmanız ve USER girişinde sadece benim izin vereceğim sayfaları görmesi

Admin girişine tüm sayfaların gösterilmesi ni yazmışlar sağolsun arkadaşlar ama USER ı ne yaptıysam ekleyemedim...

Yani şöyle birşey yazıyorum ama Bazı sayfaların görünür hale getirlmesinin kodunu bilmediğim için olmuyor.


Private Sub CommandButton1_Click()
If TextBox1.Text = "Admin" Then
MsgBox " ADMİN DOĞRULANDI ANA MENÜYE YÖNLENDİRİLDİNİZ.LÜTFEN BEKLEYİNİZ... ", vbSystemModal, " Çalışma Bilgi "
Unload sifre
Sheets("AnaSayfa").Select
For i = 2 To Worksheets.Count - 1
ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Next i
Application.ScreenUpdating = True
Application.Visible = True
acilis.Show
If TextBox1.Text = "USER" Then
MsgBox " SINIRLI KULLANICI DOĞRULANDI ANA MENÜYE YÖNLENDİRİLDİNİZ.LÜTFEN BEKLEYİNİZ... ", vbSystemModal, " Çalışma Bilgi "
Unload sifre
Sheets("AnaSayfa").Select
For i = 2 To Worksheets.Count - 1
ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Next i
Application.ScreenUpdating = True
Application.Visible = True
acilis.Show

Else
MsgBox "Şifreniz Tanımlanamadı, Lütfen Kontrol Edip Tekrar Deneyiniz", vbExclamation, "Yetkili Giriş"
TextBox1.SetFocus
End If
End Sub

 

[Elzemnur]

Tabii bunları yapabilirsiniz ama bir hatırlatma yapayım.
Güvenlik seviyesini en yükseğe çekerek makrolar devre dışı bırakılarak isteyen yine istediği sayfaya ulaşabilir.Belki bu durum,kodlara kitap kuruması ilave edilerek ve çıkış esnasında tüm sayfaları gizleyerek bu bir nebze önlenebilir,ama syfa koruma şifresini ve kitap koruma şifresini kırmak o kadar kolay ki.Herkes kırabilir.
Kolay gelsin.

Evren Bey müsaitseniz sizden haber bekliyorum

 

[Orion1]

Sayfa gizlime kodu:
2nci sayfa için,

sheets(2).visible=false

sayfa gösterme kodu,

sheets(2).visible=true

Gerisi size kalmış.