• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Kullanıcı Giriş Ekranı (VBA User Login Screen)

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
RBozkurt

RBozkurt

Yeni Üye
Katılım
25 Ara 2021
Mesajlar
322
Çözümler
36
Aldığı beğeni
205
Excel V
Office 2021 TR
Konu Sahibi
Merhaba excelcozum ailesi

Hazırlamış olduğum çalışmaya giriş ekranı eklemeyi düşündüm.
Ekte bulunan Login Ekranı dosyasında ki userform üzerinden giriş yaptırmak istiyorum.
Giriş için şifre olmayacaktır. Giriş sorgusunu 2 değere atamak istiyorum. Bunlar altta link bıraktığım konudaki mantıkla çalışacaktır.
Olayı açıklamaya çalışacağım.

Kullanmış olduğumuz bilgisayarın bağlı olduğu domain: Örnek123Test ve kullanıcı adı ise rbozkurt olsun.

Öncelikle
Domain = CreateObject("WScript.Network").Userdomain bu kod ile domain adı biliniyor. Makro içine yazacağım değer ile bu çağrılan değer aynı ise makro çalışacak.

Domain = "Örnek123Test" Or Domain = "desktop12" Then gibi birden fazla domain eklenebilir.

İkinci kıstas ise login ekranındaki textbox..
Buraya sadece kullanıcı adı girilecektir. Yukarıdaki vermiş olduğum bilgilerde dosyayı açınca textbox içine rbozkurt yazarsam ve PC de Örnek123Test domainine bağlı ise dosya açılacak. (Domain sorgusu ekranda gözükmeyecek, işlem arka planda sessiz.)

rbozkurt yazdım ama PC farklı bir domainde bağlı ise ekrana x bir hata mesajı gelsin ve tamam ile excel kapansın.

Kullanıcı Adı = CreateObject("WScript.Network").UserName


Yukarıdaki işlemleri en son alttaki kodlar ile çalışma sonunda direk açılışa getireceğim.
Dosyayı açınca örnek eklediğim Örnek Açılış dosyası gibi olacak.


Diğer konu: Çözüldü - Açılışa Domain ve Kullanıcı Kontrolü Ekleme

Userform Kapatma Kodu
HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Dosyayı Direk Userform Ekranı Olarak Çalıştırma Kodu
HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
arschimet
:D tekrar merhaba,
öncelikle dosyanız gümlemedi bunu söyleyeyim.
yeni bir excel dosyası açın, geliştirici sekmesinden visual basic'i tıklayın (ya da alt+f11)
dosyayı minimize edin ve gümledi dediğiniz dosyanızı açıp görev çubuğundan tekrar visual basic penceresini aktif edin.
sol tarafta bulunan vba project kısmından gümleyen dosyanızın adını seçip dur tuşuna basın.

Neyse gelelim asıl meseleye,
kodlarda sıralama hatası yapmışım, dosyayı yeniden düzenleyerek ekledim,
kolaylıklar dilerim.
Tarihe göre sırala Oylara göre sırala
Merhabalar,
Aşağıdaki dosyada istediğiniz şekilde basit bir prosedür oluşturdum,
Modül içerisindeki kodların yanlarına gerekli açıklamaları yaptım
Devamı size kalıyor :)
İyi günler dilerim
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Konu Sahibi
arschimet' Alıntı:
Merhabalar,
Aşağıdaki dosyada istediğiniz şekilde basit bir prosedür oluşturdum,
Modül içerisindeki kodların yanlarına gerekli açıklamaları yaptım
Devamı size kalıyor :)
İyi günler dilerim
Genişletmek için tıkla...

Merhaba sayın arschimet

Kullanıcı3 olarak CreateObject("WScript.Network").UserName değerini nasıl eşitleyebilirim?

Const kullanıcı2 = CreateObject("WScript.Network").UserName gibi denedim olmadı
 
Olumlu oy 0 Negatif oyla
Const olanlara bu şekilde değil string değer yazmalısınız,
örnek
Const kullanıcı2="ahmet"

prosedür içerisindeki kodlarda ise;
kullanıcıadı = CreateObject("WScript.Network").UserName

if kullanıcıadı = kullanıcı2 then şeklinde karşılaştırma yapmalısınız.
 
Olumlu oy 1 Negatif oyla
Konu Sahibi
arschimet' Alıntı:
Const olanlara bu şekilde değil string değer yazmalısınız,
örnek
Const kullanıcı2="ahmet"

prosedür içerisindeki kodlarda ise;
kullanıcıadı = CreateObject("WScript.Network").UserName

if kullanıcıadı = kullanıcı2 then şeklinde karşılaştırma yapmalısınız.
Genişletmek için tıkla...

Teşekkür ederim şimdi çözüldü. Biraz test yapayım farklı bir işlem olursa konu kapanmasın yazamıyorum D:
Gün içinde konuyu kapatırım. Elinize sağlık.
 
Olumlu oy 0 Negatif oyla
RBozkurt' Alıntı:
Teşekkür ederim şimdi çözüldü. Biraz test yapayım farklı bir işlem olursa konu kapanmasın yazamıyorum D:
Gün içinde konuyu kapatırım. Elinize sağlık.
Genişletmek için tıkla...
rica ederim, kolaylıklar dilerim, iyi günler.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
arschimet' Alıntı:
rica ederim, kolaylıklar dilerim, iyi günler.
Genişletmek için tıkla...

Sayın arschimet
Userformdaki X kapatma işaretine basınca giriş ekranı veri yazmadan sayfalar açılıyor.

Açılışa
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Userforma'da
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Ekledim. Bu sefer doğru girsem bile kapatıyor :D Dosya gümledi. Yedekten tekrar düzenledim.
 
Olumlu oy 0 Negatif oyla
:D tekrar merhaba,
öncelikle dosyanız gümlemedi bunu söyleyeyim.
yeni bir excel dosyası açın, geliştirici sekmesinden visual basic'i tıklayın (ya da alt+f11)
dosyayı minimize edin ve gümledi dediğiniz dosyanızı açıp görev çubuğundan tekrar visual basic penceresini aktif edin.
sol tarafta bulunan vba project kısmından gümleyen dosyanızın adını seçip dur tuşuna basın.

Neyse gelelim asıl meseleye,
kodlarda sıralama hatası yapmışım, dosyayı yeniden düzenleyerek ekledim,
kolaylıklar dilerim.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst