visual studio da giriş paneli

[bjk42]

visual studio da giriş paneli yaptım ama acemiyim bunu microsoft office proğramına eklemek istiyorum yani şifre ve isim girince powerpoınt açılsın bu kodlar lazım örnek ekte kodlarım yazıyor.
şuanda powerpoınte çalışma yapıyorum.
bunu sırayla excell
world gibi proğramlarada uyarlamak istiyorum
başka bir şifre uygulaması koyabileceğim giriş sistemi varsa oda olabilir illa bu proğram olması şart değil

 

[BedriA]

visual studio da giriş paneli yaptım ama acemiyim bunu microsoft office proğramına eklemek istiyorum yani şifre ve isim girince powerpoınt açılsın bu kodlar lazım örnek ekte kodlarım yazıyor.
şuanda powerpoınte çalışma yapıyorum.
bunu sırayla excell
world gibi proğramlarada uyarlamak istiyorum
başka bir şifre uygulaması koyabileceğim giriş sistemi varsa oda olabilir illa bu proğram olması şart değil

1- Ekte örnek yok.
2- Bir excel dosyasının açılışına kullanıcı adı ve şifre ekranı mı atamak istiyorsunuz?

 

[bjk42]

eklemeyi unttum sanırım

 

[BedriA]

Ekteki excel dosyasını inceleyiniz.
Sizin yaptığınızın Excel VBA versiyonu
ancak sizin Visual Studio'da yazdığınız kod
sanırım çalışmıyor.
"Elself" yerine "Else" yaparak deneyiniz.

Kullanıcı adı: bjk42
şifre: 1905

 

[Asri]

visual studio da giriş paneli yaptım ama acemiyim bunu microsoft office proğramına eklemek istiyorum yani şifre ve isim girince powerpoınt açılsın bu kodlar lazım örnek ekte kodlarım yazıyor.
şuanda powerpoınte çalışma yapıyorum.
bunu sırayla excell
world gibi proğramlarada uyarlamak istiyorum
başka bir şifre uygulaması koyabileceğim giriş sistemi varsa oda olabilir illa bu proğram olması şart değil

Powerpoint in ve excel in zaten kısayolları var. Yada exe sini bulup çift tıklama ile açılabilir. Bu giriş formunu yada yöntemini tam olarak nasıl kullanmak istiyorsunuz.

Excel de dosyaların açılışına şifre konabiliyor. Kayıt sırasında bunu belirleyebiliyorsunuz.

 

[bjk42]

bedria
yaptığınız olmuş ama başka birini eklemek istersem nerden yapacam
şifre belirleyeceğim yeri bulamadım.
visual studio yazdığım çalışıyor ama bunu powerpoınte ekleyemedim şifreyi kullanıcı doğru girince powerpoıntı kulansın değilse çıksın gibi daha doğrusu kodu yazamadım

 

[bjk42]

video ekledim ama yüklendi mi acaba

 

[BedriA]

video ekledim ama yüklendi mi acaba

Aşağıdaki kodu butona atanmış kod ile değiştiriniz.

Sayfa 1'in a1 hücresine kullanıcı adını, b1 hücresine şifreyi yazınız.
a2 ve b2 ye başka bir kullanıcı adı ve şifre,

a3 ve b3'e başka...

Bu kod ile en fazla üç kişi giriş yapabilir.

Private Sub CommandButton1_Click()

If TextBox1.Text ="" And TextBox2.Text ="" Then
msgbox "Kullanıcı adınızı ve şifrenizi giriniz.", vbInformation, "         Uyarı"
Exit Sub
End If

If TextBox1.Text = Sheets("sayfa1").Range("a1").Value And TextBox2.Text = Sheets("sayfa1").Range("b1").Value Then
kullanici = Sheets("sayfa1").Range("a1").Value
ElseIf TextBox1.Text = Sheets("sayfa1").Range("a2").Value And TextBox2.Text = Sheets("sayfa1").Range("b2").Value Then
kullanici = Sheets("sayfa1").Range("a2").Value
ElseIf TextBox1.Text = Sheets("sayfa1").Range("a3").Value And TextBox2.Text = Sheets("sayfa1").Range("b3").Value Then
kullanici = Sheets("sayfa1").Range("a3").Value

MsgBox "Giriş yapıldı.", vbInformation, kullanici
Unload Me
UserForm2.Show
Else

MsgBox "Kullanıcı adı veya şifre hatalı.", vbInformation, "       Giriş Başarısız"
End If

End Sub

 

[BedriA]

Veya aşağıdaki dosyayı indiriniz.

 

[bjk42]

bedria yaptığın çalışmıyor gibi ilk yaptığın çalışıyor
birde visual da yazdığım kodlar çalışıyor sadece sisteme dogru kullanıcı girişi yaptığında masa üstünde bulunan powerpoınt açılsın veya powerpoınt ilk girişte şifre paneli gelsin video yükleyemedim yüklense dahi anlatırdım

 

[BedriA]

bedria yaptığın çalışmıyor gibi ilk yaptığın çalışıyor
birde visual da yazdığım kodlar çalışıyor sadece sisteme dogru kullanıcı girişi yaptığında masa üstünde bulunan powerpoınt açılsın veya powerpoınt ilk girişte şifre paneli gelsin video yükleyemedim yüklense dahi anlatırdım

Aşağıdaki ile değiştirin.

Private Sub CommandButton1_Click()

If TextBox1.Text = "" And TextBox2.Text = "" Then
MsgBox "Kullanıcı adınızı ve şifrenizi giriniz.", vbInformation, "         Uyarı"
Exit Sub
End If

If TextBox1.Text = Sheets("sayfa1").Range("a1").Value And TextBox2.Text = Sheets("sayfa1").Range("b1").Value Or TextBox1.Text = Sheets("sayfa1").Range("a3").Value And TextBox2.Text = Sheets("sayfa1").Range("b3").Value Or TextBox1.Text = Sheets("sayfa1").Range("a2").Value And TextBox2.Text = Sheets("sayfa1").Range("b2").Value Then
kullanici = Sheets("sayfa1").Range("a1").Value



MsgBox "Giriş yapıldı.", vbInformation, "     Giriş"
Unload Me
UserForm2.Show
Else

MsgBox "Kullanıcı adı veya şifre hatalı.", vbInformation, "       Giriş Başarısız"
End If

End Sub

 

[bjk42]

https://www.facebook.com/bjk0042/
bir link ekledim video için ama facede bakabilir misiniz

 

[BedriA]

https://www.facebook.com/bjk0042/
bir link ekledim video için ama facede bakabilir misiniz

Görünmüyor.

 

[bjk42]

https://www.facebook.com/pg/bjk0042/videos/?ref=page_internal
birde buna bakabilir misiniz görünüyor mu