Outlook açılışına şifre koymak

[Bülent Öztürk]

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



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.