Sayfa koruma ve kaldırma hakkında

UserForm TextBox CommandButton
ComboBox ListBox CheckBox
OptionButton İmage Label
Frame ToggleButton MultiPage
VBE Penceresi ScrollBar SpinButton
TreeView ListView ToolBar
StatusBar ProgressBar SpreadSheet
MsgBox
Cevapla
muhittinemmi
Mesajlar: 18
Kayıt: Cmt Haz 24, 2023 5:51 pm
Adınız: Muhittin
Soyadınız: Sancak

Sayfa koruma ve kaldırma hakkında

Mesaj gönderen 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
En son muhittinemmi tarafından Prş Tem 06, 2023 11:38 pm tarihinde düzenlendi, toplamda 3 kere düzenlendi.
Kullanıcı avatarı
Tarkan VURAL
Doğrulandı
Site Admin
Mesajlar: 59
Kayıt: Prş Haz 22, 2023 12:03 am
Lokasyon: İstanbul
Web Sitesi: http://www.tarkanvural.com.tr
Meslek: Yazılım ve Veri Tabanı Uzmanı
Adınız: Tarkan
Soyadınız: VURAL
İletişim:

Re: Sayfa koruma ve kaldırma hakkında

Mesaj gönderen 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.
Konu Dışı
Logo Yazılım, Özel Yazılım, Entegrasyon işlemleri, Excel VBA kodlama, Raporlama, Eğitim.. gibi konulardaki destek ihtiyaçlarınız içinhelpdesk@evnyazilim.com.trile irtibata geçebilirsiniz.
muhittinemmi
Mesajlar: 18
Kayıt: Cmt Haz 24, 2023 5:51 pm
Adınız: Muhittin
Soyadınız: Sancak

Sayfa koruma ve kaldırma hakkında

Mesaj gönderen 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
Doğrulandı
Mesajlar: 7
Kayıt: Sal Tem 04, 2023 11:12 pm
Lokasyon: İstanbul
Web Sitesi: https://excelarsivi.com
Meslek: Eğitim Danışmanı
Adınız: Murat
Soyadınız: OSMA

Re: Sayfa koruma ve kaldırma hakkında

Mesaj gönderen Murat OSMA »

Merhaba,
Dosyanızı iletebilirseniz net bir çözüm sunabilirim.
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj