Yeni sayfa ekleme sorunu

[yavuz829]

Merhaba arkadaşlar ekli dosyamda formda İhsan Tank hocamın eklediği kodlarla hücreleri koruma altına alabiliyorum. Ancak çalışma kitabının korumasını yapmiyor. Çalışma kitabının korumasını da yapmasını istiyorum ve aynizamanda çalışma kitabı korumalı olduğu halde UserForm3 de TextBox1 Yeni müşteri adını yazıp yeni müşteri ekle butonunu tıkladığım zaman o müşterinin adı ile yeni sayfa eklesin. Bu konuda yardımlarınızı bekliyorum. İyi çalışmalar.

Sayfa koruması şifresi : 123

kullanıcı adı: admin
şifre : 123

 

[yavuz829]

Arkadaşlar yeni sayfa eklemek için aşağıdaki kodları ekledim hata veriyor. Yardımlarınızı bekliyorum.

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
Dim i As Integer
For i = 1 To 32000
If (Sayfa2.Cells(i, 1) = "") Then
Sayfa2.Cells(i, 1) = TextBox1.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
ActiveSheet.Protect "123"
CommandButton2_Click
CommandButton3_Click
TextBox1.Text = ""
UserForm_Initialize
Exit Sub
End If
Next i
End Sub