• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

vba'da giriş ekranı ve excel dönme sorunu

  • Konbuyu başlatan Konbuyu başlatan Faulkner
  • Başlangıç tarihi Başlangıç tarihi
Katılım
29 Ocak 2014
Mesajlar
132
Excel Vers. ve Dili
OpenOffice,
Office 365,
Google Sheets,
Excel Vba
Merhaba Arkadaşlar,

Ekteki dosyada,

iki tablo vardır.

şifre tablosu
6y5DLW.png


giriş tablosu
WG1XLL.png


Dosya Link
http://dosya.co/5crmff7j2cs8/DENEME_MAKRO_3_(GİRİŞ_EKRANI).xlsm.html


Arkadaşlar Vba öğrenmek için deneme dosyası ile işlem yapıyorum. Bu işlemlerde yapamadıklarım bölümler var yardımlarınızı bekliyorum.

Kod:
Excel dosyasını şu sıra ile açılmasını istiyorum;
1.excel dosyası açılacak.
2.[B]şifre tablosu[/B] ekranı çıkacak
3.şifre giricem
4.şifre girdikten sonra karşıma hiç excel ekranı olmadan [B]giriş tablosu[/B] çıkacak.
5.[B]giriş tablosunda[/B] excel butonu ile excel dönmek istiyorum.

sonra çıkışa basıp hem kayıt edip hem çıkmasını istiyorum.

Sorum:
Ben bu aşamada otomatik ekran açılmasını, şifre giridikten sonra giriş ekrana bağlanmasını ve excel dönmesini yapamadım.


yardımlarınızı bekliyorum. saygılarımla.
 
Modüle

Kod:
Sub AUTO_OPEN()
Application.Visible = False ' Exceli gizler
Userform2.Show '(Bu kısıma sizin direk açılmasını istediğin Userformun ismini yazmalısınız)
End Sub

Exceli görünür yapmak için Userform2 deki EXEL tuşaNA aşağıdaki kodu ekle
Kod:
Private Sub CommandButton4_Click()
Application.Visible = True ' Exceli gösterir
End Sub
 
Kaydederek çıkış için

Kod:
ThisWorkbook.Close Saved = True
 
Geri
Üst