Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Diğer Office Programları => Microsoft Outlook Soru ve Örnek Kodları => Konuyu başlatan: Bülent Öztürk - 26 Temmuz 2010, 16:24:55

Başlık: Outlook açılışına şifre koymak
Gönderen: Bülent Öztürk - 26 Temmuz 2010, 16:24:55

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

(http://img819.imageshack.us/img819/7558/outlookgiris.jpg)

ThisOutlookSession'a yazılacak kodlar:

Kod: [Seç]

Private Sub Application_Startup()
frmBulent_Giris.Show 1
MsgBox "İyi çalışmalar.", vbInformation, "Excelce.net/forum"
End Sub
frmBulent_Giris isimli forma yazılacak kodlar:

Kod: [Seç]

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
Not:Form üzerinde 1 adet Textbox, 1 adet Listbox ve 1 Adet CommandButton olacak.