Merhaba arkadaşlar ekli dosyamda 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. Yardımlarınız için şimdiden teşekürler.

Sayfa koruması şifresi : 123

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

Örneği incelermisiniz istediğniz şekildemi.

Hocam eğer oluyorsa çalışma sayfasınında korumalı olmasını istiyorum. Aşağıdaki kodu ekledim hata veriyor.

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
Sheets("ŞABLON").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = (TextBox1.Text)
ActiveSheet.Range("b1").Value = (TextBox1.Value)
'Call VeriSayfasinaKaydet
MsgBox ("Yeni firma başarıyla oluşturuldu.")
ActiveSheet.Protect "123"
End Sub

Arkadaşlar ActiveSheet.Unprotect "123" - ActiveSheet.Protect "123" kodları ActiveWorkbook.Unprotect "123" - ActiveWorkbook.Protect "123" kodları ile değiştirdim sayfaları koruma altına aldı. Ancak Sayfalardaki verileri ListBox1 e ve liste sayfasına getirmiyor bu konuda yardımlarınızı bekliyorum.

Sayfa ve hücre koruması şifresi:123

Kullanıcı adı: admin
Şifre : 123

Yeni dosya ekliyorum. Benim istediğim yeni müşteri eklediğim zaman müşterinin adını liste sayfasına getirsin ve ayni zamanda o müşteriye ait girilen borç, alacak ve bakiyeyi de liste sayfasına getirsin ve ayni zamanda ListBox1 de göstersin. Yardımlarınız için şimdiden teşekürler.

Sayfa ve hücre koruması şifresi:123

Kullanıcı adı: admin
Şifre : 123

Dosyayı şimdi ekliyorum.