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