Seçilen Hücreye Şifre ile Veri Girişi

[rhombeus]

Merhabalar,

Hocalarım size bir sorum olacaktı. Ekteki dosyada S3:S120 arasında bir hücre seçildiğinde. Userform1 çıkıyor.Userform1 basit bir şifre sorgulama ekranı. Şifre girişi yapıldıktan sonra eğer doğruysa kim tarafından doldurulduysa ...... tarafından dolduruldu şeklinde hücreye veri girişi yapıyor.

Ben yukarıdan aşağıya gideceği için kodlama olarak boş - dolu satır mantığıyla çalıştım. Örneğin 5. satırda bir işlem yaptığımızda (üst tarafta kayıt yok) normal olarak belirlediğim alandaki (s3:s120) yukarıdaki boş olan alana bu notu yazıyor. Veya kayıt yaptığım bir hücre için tekrar şifre girişini yaparsam bir altına bu notu yazıyor.
1. Bu olayı nasıl düzeltebilirim?
2. Daha evelden kayıt yaptığım bir hücre için tekrar şifre girişi yaptığımda üzerine yazdırmam mümkünmü?
3. Belirlediğim o alanda (s3:s120) el ile hücreye veri girişi engellenebilirmi?

Şimdiden çok teşekkür ederim.

Saygı ve Sevgilerimle....

 

[Ömer]

Merhaba,

Kodları detaylı incelemedim. Boş satır bulma yerine ActiveCell kullansanız olur sanırım.

Private Sub CommandButton1_Click()
If ComboBox1.Text = "Emre" And TextBox2.Text = "001122" Or ComboBox1.Text = "Kemal" And TextBox2.Text = "112233" Or ComboBox1.Text = "Mehmet" And TextBox2.Text = "223344" Then
ActiveCell.Value = UserForm1.ComboBox1 & "  tarafından onaylandı"
ComboBox1.Text = ""
TextBox2.Text = ""
Unload UserForm1
UserForm1.Hide
Else
MsgBox "YANLIŞ ŞİFRE VEYA KULLANICI ADI", vbCritical, "DİKKAT"
ComboBox1.Text = ""
TextBox2.Text = ""
ComboBox1.SetFocus
End If
End Sub

Sayfanın kod bölümüne,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("S3:S120")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If UserForm1.Visible = True Then GoTo 10
    UserForm1.Show
10
If UserForm1.Visible = True Then
    ActiveSheet.Unprotect
Else:
    ActiveSheet.Protect
End If
End Sub

.

 

[rhombeus]

Ömer Bey çok teşekkür ederim.