Kullanıcı adı ve parola tanımlı yetkilendirme ADMİN VE KULLANICI

[emrecvs]

selamlar

arkadaşlar excel calışma sayfama 2 kullanıcı tanımlamak istiyorum 'admin' ve 'kullanıcı' olarak admin tam yetkılı ancak kullanıcı belirlenen sayfaları görebilmeli böyle bi makro kodunuz varmıdır yardımcı olursanız sevinirim

şimdiden teşekkürler ...

 

[emrecvs]

yokmu böyle bi kod kullanıcılara sayfaları sınırlamak imkansız bişey değil umarım ??

 

[emrecvs]

arkadaşlar bu konuda koca excel sayfasında destek yokmu lütfen ?

 

[Muhammet Okumuş]

Sayfa adlarını gizli hale getirirsiniz. Anasayfadan sayfa geçişlerini sağlayabilirsiniz.

 

[emrecvs]

10 adet sayfa var ve admin giriş yaptıgında düzenlemeler yapıcagında her seferınde tek tek gösterıp geri gizlemeyle ugrasmasın istedik cıkarken gizlemeyi unutursa ne olucak ?

 

[Muhammet Okumuş]

Sayfalar otamatik gizlenir.

 

[emrecvs]

biraz acarmısınız nasıl olucak detaylıca yazarsanız sevinirim

 

[Muhammet Okumuş]

Açar açmaz bir tane Kullanıcı adı ve şifre içeren Userform çağırırız. Girilen bilgilere göre admin veya normal olarak tanımlarız. Kişi sayfa adlarına tıkladığında yetkili değilse bu sayfaya giriş izniniz yok uyarısı çıkar ve sayfa açılmaz.

 

[emrecvs]

yaşaaaa vallaa hocam nedir kod

 

[Muhammet Okumuş]

Nedir kod derken sayfa üzerinde derleme yapmak gerek. Dosya mevcut mu?

 

[emrecvs]

siz userform için ve yetkilendirme için gerekli makroların yazın ben yerleştriirim zaten

 

[Muhammet Okumuş]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("G3:G13")) Is Nothing Then Exit Sub
If Target.Offset(0, 1) = "Admin" And Range("H1") = "Normal" Then
MsgBox "Bu sayfaya giriş yetkiniz yok."
Exit Sub
Else
Sheets(Target.Text).Select
End If
End Sub


Bu sayfa seçimi

 

[Muhammet Okumuş]

Private Sub CommandButton1_Click()
On Error GoTo 10
x = WorksheetFunction.Match(TextBox1, Range("C1:C50"), 0)
ad1 = "r" & TextBox2.Value
If ad1 = "r" & Cells(x, 4).Value Then
Range("H1") = Cells(x, 5).Value
Unload Me
Else

MsgBox "Yanlış Şifre"
End If
10
End Sub

Bu da Userform1 kodları

 

[Korhan Ayhan]

Merhaba,

Forumda daha önce işlenen bir konudur. Yardım istemeden önce detaylıca arama yapmalısınız. Arama yaparken seçeceğiniz ifadelerde konuya ulaşmanız için önemlidir. Yanlış ifadelerle arama yaparsanız aradığınıza ulaşamazsınız.

Aşağıdaki linkte benzer bir konu işlenmiş. İnceleyiniz.

http://www.excel.web.tr/f47/kullanycy-bazly-sutun-gizleme-t161599.html