Forumlar
Yeni Mesajlar
CerezExtra
EĞLENCE ↓
Şans Kurabiyesi
Renk Falınız
ÇerezRADYO
Sevgiliye Özel
ÇerezDERGİ
Hızlı Okuma Testleri
Pratik Çözümler
Yeniler
Yeni Mesajlar
Yeni ürünler
Yeni kaynaklar
Son Aktiviteler
İndir
En son incelemeler
Dükkan
Giriş
Kayıt
Yeniler
Yeni Mesajlar
Menu
Giriş
Kayıt
Uygulamayı yükle
Yükle
Merhaba
Ziyaretçi
.
"Yapay Zeka Objektif " Fotoğraf Yarışması başladı. İlgili konuya
BURADAN
ulaşabilirsiniz. Sizi de bu yarışmada görmek isteriz...
Forumlar
Bilgisayar & Cep & Teknoloji
Office Programları
Outlook'a Açılış Şifresi Koyma
JavaScript devre dışı bırakıldı. Daha iyi bir deneyim için, devam etmeden önce lütfen tarayıcınızda JavaScript'i etkinleştirin.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Konuya cevap yaz
Mesaj
<blockquote data-quote="Murat OSMA" data-source="post: 394229" data-attributes="member: 78136"><p>Merhaba Arkadaşlar, </p><p>Outlook kod sayfasına aşağıdaki kodları yazarakta açılış şifresi koyabilirsiniz; </p><p></p><p><strong><span style="color: #FF0000">Not:</span></strong> Form üzerinde 1 adet Textbox, 1 adet Listbox ve 1 Adet CommandButton olacak.</p><p></p><p></p><p><strong>ThisOutlookSession'a yazılacak kodlar:</strong></p><p></p><p>[CODE]Private Sub Application_Startup()</p><p>UserForm1.Show 1</p><p>MsgBox "İyi çalışmalar.", vbInformation, "ExcelVBA.Net"</p><p>End Sub[/CODE]</p><p></p><p><strong>UserForm1 isimli forma yazılacak kodlar:</strong></p><p></p><p>[CODE]Private Sub UserForm_Initialize()</p><p>TextBox1.SetFocus</p><p>End Sub[/CODE]</p><p></p><p>[CODE]Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)</p><p>If CloseMode = vbFormControlMenu Then</p><p>Cancel = True</p><p>MsgBox "Lütfen şifreyi giriniz...", vbCritical, "Outlook'u Açmak İçin Şifre Girmelisiniz"</p><p>End If</p><p>End Sub</p><p>[/CODE]</p><p>[CODE]Private Sub CommandButton1_Click()</p><p>Static evn As Integer</p><p></p><p>If TextBox1 = "1234" Then</p><p> Unload Me</p><p>Else</p><p> ListBox1.AddItem TextBox1 & " başarısız deneme.":</p><p> evn = evn + 1</p><p> If evn >= 3 Then</p><p> ActiveWindow.Close</p><p> Application.Quit</p><p> End If</p><p>End If</p><p>End Sub[/CODE]</p><p></p><p>Saygılarımla </p><p>MuratOSMA</p></blockquote><p></p>
[QUOTE="Murat OSMA, post: 394229, member: 78136"] Merhaba Arkadaşlar, Outlook kod sayfasına aşağıdaki kodları yazarakta açılış şifresi koyabilirsiniz; [B][COLOR="#FF0000"]Not:[/COLOR][/B] Form üzerinde 1 adet Textbox, 1 adet Listbox ve 1 Adet CommandButton olacak. [B]ThisOutlookSession'a yazılacak kodlar:[/B] [CODE]Private Sub Application_Startup() UserForm1.Show 1 MsgBox "İyi çalışmalar.", vbInformation, "ExcelVBA.Net" End Sub[/CODE] [B]UserForm1 isimli forma yazılacak kodlar:[/B] [CODE]Private Sub UserForm_Initialize() TextBox1.SetFocus End Sub[/CODE] [CODE]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 [/CODE] [CODE]Private Sub CommandButton1_Click() Static evn As Integer If TextBox1 = "1234" Then Unload Me Else ListBox1.AddItem TextBox1 & " başarısız deneme.": evn = evn + 1 If evn >= 3 Then ActiveWindow.Close Application.Quit End If End If End Sub[/CODE] Saygılarımla MuratOSMA [/QUOTE]
Alıntıları ekle...
İsim
Spam kontrolü
En iyi yönetim şekli?
Cevapla
Forumlar
Bilgisayar & Cep & Teknoloji
Office Programları
Outlook'a Açılış Şifresi Koyma
Top
Bottom