KULLANICI ADI VE ŞİFRE

[ocamsul]

KULLANICI ADI VE ÞÝFRE

EXCEL'İ AÇTIÐIMDA PROGRAMIN USERFORM EÞLİÐİNDE KULLANICI ADI VE ÞİFRE SORMASINI İSTİYORUM. YARDIMCI OLURMUSUNUZ ARKADAÞLAR.

 

[Haluk]

Merhaba;

Ekli dosya 3 kullanıcı için tanımlanmıştır.

             Kullanıcı                               Şifre
           -------------                         --------------
              Raider                                  rweb
              Alpen                                   aweb
              Ocamsul                                 oweb

Kullanıcı adları ve şifreler küçük - büyük harf duyarlıdır.

 

[ocamsul]

RAİDER Sayfayı açar açmaz Run-Time Error (1004) uyarısı verdi. Acaba neden

 

[Haluk]

Bilemiyorum... Office2000 de böyle bir sorun yok.

Eğer OfficeXP kullanıyorsanız, güvenlik ayarlaraında "VB Project erişimine güven" gibilerinden bir seçenek olması lazım. Başka bir Excel dosyasında onu aktif hale getirip, bu dosyayı tekrar açmayı deneyin.

 

[ocamsul]

TEÞEKKÜR EDERİM OLDU.

 

[birol_mumcu]

merhaba;
syn raider örneğinizdeki kodları aşağıdaki kodlarla birleştirip kullanmak istiyorum
Const strTxtFile As String = "F:\YY\Sirket.txt"
Sub Autpen()
If Dir(strTxtFile) <> Empty Then
ThisWorkbook.IsAddin = False
Else
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
nasıl yaparım
denmelerimde hatalarla kaşılaştım gözden kaçırdığım birşeyler var muhakkak
not; bu kodlarda sitemizden
teşekkürler

 

[siar]

harika bir çalışma bu. merak ettiğim bir konu kullanıcılara göre yetkilendirme gibi bir fonksiyon dahil edilebilir mi?

 

[Haluk]

..... merak ettiğim bir konu kullanıcılara göre yetkilendirme gibi bir fonksiyon dahil edilebilir mi?

Yapılabilir tabii. Sonucta, dosyayı başarıyle açan kullanıcıya göre kodlarda bazı tanımlamalar yaparak, her kullanıcıya ayrı ayrı olmak üzere Excel'in bazı menülerini kısıtlanabilir.

 

[birol_mumcu]

merhaba;
syn raider örneğinizdeki kodları aşağıdaki kodlarla birleştirip kullanmak istiyorum
Const strTxtFile As String = "F:\YY\Sirket.txt"
Sub Autpen()
If Dir(strTxtFile) <> Empty Then
ThisWorkbook.IsAddin = False
Else
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
nasıl yaparım
denmelerimde hatalarla kaşılaştım gözden kaçırdığım birşeyler var muhakkak
not; bu kodlarda sitemizden
teşekkürler

 

[Haluk]

Merhaba;

Ekli dosya, yine benzer bir konu hakkında sorulan bir soru için hazırladığım cevaptı.

Dosya açıldığında, aşağıdaki resimde de görüldüğü gibi File (Dosya) menüsü altında "Dosya erişimi" etiketli yeni bir menü yer almaktadır.

Bu menüyü tıkladığınızda gelecek kutuya şifre olarak Raider yazarsanız, dosya ilk olarak açıldığında konulan bazı menü kısıtlamaları ortadan kalkar.

Artık her 2 dosyanın kodlarını inceleyerek, bu işi kullanıcı bazında yapmak size ait.

 

[Haluk]

Birol bey;

Mesajınızı görüyorum da, şu anda 38,5 derece ateşliyim...... kafamı toplamam zor.

 

[birol_mumcu]

geçmiş olsun
kendine dikkat et hocam :hey:
ben beklerim
selamlar

 

[birol_mumcu]

merhabalar;

Birol bey;

Mesajınızı görüyorum da, şu anda 38,5 derece ateşliyim...... kafamı toplamam zor.

hocam cevaplara bakılırsa ateşin düşmüş anlaşılan :hey:
sevindim tekrar geçmiş olsun

 

[Hüseyin]

Mesajınızı görüyorum da, şu anda 38,5 derece ateşliyim...... kafamı toplamam zor.

:shock:
Daha yeni gördüm.
Gözden kaçmış.

Geçmiş olsun Raider.
Aman kendine iyi bak, sen bize lazımsın. :dua:

 

[Haluk]

Geçmiş olsun Raider.

Teşekkürler arkadaşlar.

İdare etmeye çalışıyoruz işte...

 

[birol_mumcu]

merhaba;
syn raider örneğinizdeki kodları aşağıdaki kodlarla birleştirip kullanmak istiyorum
Const strTxtFile As String = "F:\YY\Sirket.txt"
Sub Autpen()
If Dir(strTxtFile) <> Empty Then
ThisWorkbook.IsAddin = False
Else
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
nasıl yaparım :?
denmelerimde hatalarla kaşılaştım gözden kaçırdığım birşeyler var muhakkak :?
not; bu kodlarda sitemizden
teşekkürler

:dua: :dua:

 

[fatihkonac]

Geçmiş olsun Raider.

 

[TheGreatest]

Sayin Raider gecmis olsun,

Arkadaslar ekteki ornek cesitli Excel forumlarindan ve calismalarindan esinlenerek hazirlanmistir,umarim isinize yarar.

Kullanici Adi: Admin - Password: Admin (Degisiklik yapma haklarina sahip)

Kullanici Adi: Test - Password: Test (Kisitli kullanici)

 

[neo]

:hey: merhaba arkadaşlar dostum bu çalışmanız güzel çok güzele benziyor yanlız bir hata mesajı veriyor

Compile error;
Can't find projet or library nasıl öözebilirim

 

[siar]

Merhaba Bay Raider

Ben kısıtlı menünüzü uygulamaya çalışıyorum lakin bir yerde takıldım... Sayfaların maximum korumasını da bu koda dahil etmeye çalıştım lakin beceremedim. Acaba bu konuyla ilgili yol gösterebilir misiniz?