(16/05/2021, 13:06)feraz yazdı:(16/05/2021, 09:30)Oğuz Türkyılmaz yazdı: .unprotect"171717"Söylermisin abey bu kod hangi sayfanın korumasını kaldırıyor?
Ayrıca başka konunuzda anlatmıştım.Bir const ile şifre tanımlayıp bir defada klit aç ve kilitkapat gbi sub yazsaydınız her yere aynı şifre yazmak zorunda kalmazdınız.
Sub tanımlama aklımda bir türlü oraya sıra gelmedi. Bu kod ana_sayfada güncelle ve silme kodlarında geçiyor. Aşağıdaki güncelleme kodlarının 22.satırında.
Kod:
Dim SonSatir, SatirSil, aranan As Variant
Dim Guncelle As Long
'Const sifre As String = "171717"
Private Sub btn_Guncelle_Click()
With ThisWorkbook.Worksheets("Ana_Sayfa")
If Trim(ComboBox_FirmaUnvani.Value) = "" Then
MsgBox "Veriler bos oldugu icin güncelleme iptal edildi.", vbCritical, "Hata"
Exit Sub
End If
Guncelle = CLng(Me.ComboBox_FirmaUnvani.Tag)
If MsgBox("Yaptığınız Değişiklikler Kaydedilerek, Bilgiler Güncellenecektir, Emin misiniz...?", vbExclamation + vbYesNo, "Firma Tanımlama Formu") = vbNo Then Exit Sub
'Debug.Print .Cells(Guncelle, 1).Address, TextBox_ID.Value
.Unprotect "171717"
.Cells(Guncelle, 1) = TextBox_ID.Value
.Cells(Guncelle, 2) = TextBox_FirmaAdi.Value![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)
