DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Userformun hücrede değişmesi gibi bir olay olamaz.Userformda TextBox veya diğer nesneler bulunur.alpay1' Alıntı:açılan bir userformum var.Bu userformun herhangi bir
Hücredeki değerin değişmesi
dersen Vealpay1' Alıntı:AutoOpen ile açılan bir userformum var. açılmamasını sağlayabilirmiyiz?
Ã?rneğin:Anasayfa A5 deki değer = 2 ise açılmasın.
Sub Auto_Open()
If Range("a5") <> 2 Then
UserForm1.Show
ActiveWorkbook.Save
Else
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub
Sub Auto_Open()
Application.Visible = False
UserForm1.Show
End Sub
Sub Auto_Close()
Application.Visible = True
ActiveWorkbook.Save
End Sub
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