@
feraz hocam bu hatanın çıktığı iyi oldu çünkü bende sayfa koruma kodu ile ilgili kafa karışıklığı var. Ben sayfaları korumaya aldım evet ama güncelleme ve silme kodlarımda işlem öncesi .unprotect "şifre" ve işlem bitiminde de .protect "sifre" kodları kullanıldı ama kayıt ekleme kodlarında artık bu kodlar yok. çalışma mantığı önce korumayı kaldır kodu çalıştır ve işlemi gerçekleştir sonra sayfayı tekrar korumaya al bu şekilde. Çalışma kitabında da bir sub tanımlı zaten , kitap açıldığında tüm sayfalar korumalı modda açılsın diye ki öyle açılıyor.
Kod:
Private Sub Workbook_Open()
strPassword = "171717"
..........
velhasıl kelam kayıt_ekle kodu sayfa koruması kaldırılmadan nasıl çalışıyor bunu anlamadım. Dolayısı ile yapmamı söylediğiniz sayfa koruması ile ilgili eklentiyi nereye koyacağımı da anlamadım. Aşağıdaki şekilde yaptım oda hata verdi.
Kod:
.unprotect"171717"
ThisWorkbook.Worksheets("WHATSAPP").Cells(Rows.Count, 1).End(3)(2, 1).NumberFormat = "@"
ThisWorkbook.Worksheets("WHATSAPP").Cells(Rows.Count, 1).End(3)(2, 1).Value = "+90" & TextBox_Gsm.Value
Whatsapp Sayfa korumasını manuel olarak kaldırıp denediğimde kaydı 19 nolu satıra yaptı. Sayfada daha önce 18 satırlık bilgi vardı ben tamamını manuel olarak seçip sildim (Userform üzerinden tek tek çağırıp silmedim sanırım bu yüzden bu satıra kaydetti.)