Excel Vba Forum Excelce.Net Açıldı.

http://www.excelce.net/forum

Excelce.Net;
Microsoft Excel baÅŸta olmak üzere, Word, Outlook gibi Ms Office programları hakkında ücretsiz örnek kod ve dosya paylaşımı ile soru-cevap forumu yanında, talebe göre kiÅŸilere veya kurumlara özel ücretli programlar hazırlamayı hedefleyen, ilerleyen zamanda da Open Office hakkında da paylaşımlar sunmayı amaçlayan geniÅŸ kapsamlı bir excel vba sitesidir.Â
2010 yılının ilk gününde açılan site yönetiminin, Excel Vba tecrübesi çok eskiye dayanmakta olup, pek çok yerli ve yabancı siteden edinilen bilgi ve tecrübeler ışında, derli toplu ve seviyeli paylaşımı ilke edinmiştir.

Outlook açılışına şifre koymak için aşağıdaki gibi bir yol izleyebiliriz;

ThisOutlookSession’a yazılacak kodlar:

[code]Private Sub Application_Startup()
frmBulent_Giris.Show 1
MsgBox "İyi çalışmalar.", vbInformation
End Sub[/code]

frmBulent_Giris isimli forma yazılacak kodlar:
[code]Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Lütfen şifreyi giriniz...", vbCritical, "Outlook'u Açmak İçin Şifre Girmelisiniz"
End If
End Sub

Private Sub CommandButton1_Click()
Static bulent As Integer

If TextBox1 = "1234" Then
    Unload Me
Else
    ListBox1.AddItem TextBox1 & " başarısız deneme.":
    bulent = bulent + 1
    If bulent >= 3 Then
        ActiveWindow.Close
        Application.Quit
    End If
End If
End Sub[/code]

Not:Form üzerinde 1 adet Textbox, 1 adet Listbox ve 1 Adet CommandButton olacak.

Outlook Giriş Şifre Ekranı