Auto Open

[alpay1]

Merhaba,
Excel dosyası açılırken AutoOpen ile açılan bir userformum var.Bu userformun herhangi bir
Hücredeki değerin değişmesi durumunda açılmamasını sağlayabilirmiyiz?
Ã?rneğin:Anasayfa A5 deki değer = 2 ise açılmasın.Mümkünmü acaba?
Teşekkürler.

 

[xxrt]

Sorunda ikili bir çelişki var..Ama yinede sen eksik kalan kısım olursa sorarsın.

açılan bir userformum var.Bu userformun herhangi bir
Hücredeki değerin değişmesi

Userformun hücrede değişmesi gibi bir olay olamaz.Userformda TextBox veya diğer nesneler bulunur.

AutoOpen ile açılan bir userformum var. açılmamasını sağlayabilirmiyiz?
Ã?rneğin:Anasayfa A5 deki değer = 2 ise açılmasın.

dersen Ve



Hücre olarak,Sayfalardaki Hücrelerden bahsediyorsan Sayfa Açılırken şu kodları Modüle Yazman Gerek.

Sub Auto_Open()
If Range("a5") <> 2 Then
UserForm1.Show
ActiveWorkbook.Save
Else
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub

Ama
Userformda Kullanıcı adı veya Þifresi şeklinde istersen.
Userformun Üzerine Bir TextBox,1 CommandButton1 aç.

Modülün İçine;

Sub Auto_Open()
Application.Visible = False
UserForm1.Show
End Sub
 
Sub Auto_Close()
Application.Visible = True
ActiveWorkbook.Save
End Sub

Kodları Yazın.
Daha Sonra CommandButton1 Tıklatın ve Kod sayfasına

Private Sub CommandButton1_Click()
If TextBox2.Value = 2 Then
MsgBox "Okey", , "xxrt__Excel.Web.tr"
Unload Me
Application.Visible = True
Else
MsgBox "Yanlış veya Eksik Þifre Girdiniz. Tekrar Deneyiniz!", vbCritical, "Geçersiz Þifre"
TextBox2 = ""
TextBox2.SetFocus
End If
End Sub

Burda Unutulmaması gerekn Makroları Devre Dışı olduğunda bunlar işe yaramıyacaktır.

 

[alpay1]

Yazdığınız kodlar için teşekkürler.

 

[ahmetbarlak3]

:yardim: bana yardırm edermisiniz. formları kullanarak program yazmak istiyorum fakat bir kaynak bulamadım şimdiden teşekkür.