Sayfa koruma ve kaldırma hakkında

[muhittinemmi]

Butona tıklandığında sayfa koruması kalkıyor a3 teki veriyi alıp yeni bir sayfa olarak kaydediyor fakar işlem sonunda sayfa korumasını kapatmıyor.

Kod: Tümünü seç

Private Sub CommandButton2_Click()
ActiveSheet.Unprotect "123"

Dim NewName As String
    ActiveSheet.Copy before:=Sheets(2)
    'ActiveSheet.Copy Before:=ActiveSheet
NewName = Sheets(2).Range("A3").Value
On Error Resume Next
ActiveSheet.Name = NewName
 ActiveSheet.Shapes("CommandButton1").Delete
 ActiveSheet.Shapes("CommandButton2").Delete
 ActiveSheet.Shapes("CommandButton3").Delete
 ActiveSheet.Buttons.Delete

 ActiveSheet.Protect "123"
End Sub

Sayfa korumasının aktif olması için ne önerirsiniz

[Tarkan VURAL]

Merhaba,
ActiveSheet ilk kod çalışması esnasında kullandığınız sayfa oluyor. Sonra bir sayfa ekliyorsunuz ve ActiveSheet artık yeni sayfa haline geliyor. Korumayı da muhtemelen yeni sayfa için yapıyor olmalı.

Şu şekilde kontrol edilebilir :

Kod: Tümünü seç

Private Sub CommandButton2_Click()
Set Aktif = ActiveSheet
ActiveSheet.Unprotect "123"
Dim NewName As String
    ActiveSheet.Copy before:=Sheets(2)
    'ActiveSheet.Copy Before:=ActiveSheet
NewName = Sheets(2).Range("A3").Value
On Error Resume Next
ActiveSheet.Name = NewName
 ActiveSheet.Shapes("CommandButton1").Delete
 ActiveSheet.Shapes("CommandButton2").Delete
 ActiveSheet.Shapes("CommandButton3").Delete
 ActiveSheet.Buttons.Delete

 ActiveSheet.Protect "123" ' Yeni sayfanızı korur
 Aktif.Protect "123" ' Asıl sayfanızı korur
End Sub

Her iki sayfayı da korur halde kaydeder.

[muhittinemmi]

Açıklayıcı bilgi için teşekkürler.

Ayrı bir konu başlığı olabilir belki fakat konu kirliliği yapmamak adına buradan sormak isterim.

Kolarda bulunan
ActiveSheet.Buttons.Delete

Yeni kopyalanan sayfadaki tüm butonları siliyor.

Sadece" buton 154" (satır sil) butonunu silmek istediğimde
ActiveSheet.Shapes("satır sil").Delete veya ActiveSheet.Shapes("buton 154").Delete yaptığımda buton silinmiyor. Command butonlarda problem yok

İşlemi gerçekleştiremediğim için ActiveSheet.Buttons.Delete kodunu kullanarak tüm butonları siliyorum.

makro butonu command buton gibi isteğe bağlı silinemiyormu

[Murat OSMA]

Merhaba,
Dosyanızı iletebilirseniz net bir çözüm sunabilirim.