kayseri
  asdas
 

 

Private Sub Worksheet_Activate()

Range("A65536").Select
If InputBoxsahabiye= "" Then
Range("A1").Select
Else
MsgBox ("Þifre Yanlış")
Sheets("Sayfa1").Select
End If

End Sub
 
 
  
  Bugün 5 ziyaretçi (6 klik) kişi burdaydı!  
 
hosgeldin Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol