Belirli çalışma sayfalarının yalnız ve yalnız silinmesini engelleme?

[krizantem_kasimpati]

Arkadaşlar merhaba!

Yapılabilir mi bilmiyorum ama istediğim,belirli çalışma sayfalarının hiç bir şekilde silinememesi(içeriğine müdahale edilebilmeli).Haricinde sayfa ekleme ve silme yapılabilmeli.Yardımlarınızı bekler şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

VBA da "Bu çalışma kitabı" sayfasına kopyalayın. Kaydedip kapatın ve tekrar açın.
Dosyayı kapatmadan önce şifrelenecek sayfa adlarını kendinize göre düzenlersiniz.

Dim syf()

Private Sub Workbook_Open()

    Dim i As Integer, j As Byte
    
    syf = Array("Sayfa1", "Sayfa3") 'şifreli sayfalar
    
    For i = 1 To Worksheets.Count
        For j = 0 To UBound(syf)
            If Sheets(i).Name = syf(j) Then
                Sheets(i).Unprotect
                Sheets(i).Cells.Locked = True
                Sheets(i).Protect
                Exit For
            Else
                Sheets(i).Unprotect
            End If
        Next j
    Next i
    
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    Dim i As Byte, deg

    ActiveWorkbook.Unprotect

    For i = 0 To UBound(syf)
        If ActiveSheet.Name = syf(i) Then
            ActiveWorkbook.Protect
            Exit Sub
        End If
    Next i
            
    For Each deg In ActiveWindow.SelectedSheets
        For i = 0 To UBound(syf)
            If deg.Name = syf(i) Then
                MsgBox "Seçili Sayfaların Arasında Şifreli Sayfalar Var"
                Exit Sub
            End If
        Next i
    Next deg

End Sub

Not: Detaylı deneme yapmadım.

.

 

[krizantem_kasimpati]

Öncelikle alakanız için teşekkür ederim.
Becerememiş olabilirim lakin yazdıklarınızı uyguladıktan sonra malesef ilgili sayfa, üzerinden sağ tuş ile silinebiliyor.Bir yerde hata yapıyor olabilir miyim?

 

[Ömer]

Eki inceleyin.

Sayfa1 ve Sayfa3 şifreli.

.

 

[krizantem_kasimpati]

Evet inceledim.Kendi çalışma kitabı'ma uyarladım.Şöyle arz edeyim.Sayfalar arasında veri alışverişi (copy-past) yapılamıyor.Halihazırda kullanmakta olduğum makrolarda "Sheets.Add, Sheets(A).Copy After:=Sheets(1)" ve bunun gibi komut satırları hata veriyor.Bunun bir çözümü oluşturulabilir mi? Saygılarımla..

 

[Ömer]

Örneğinizi görmeden yorum yapmam zor.

Hata aldığınız dosyayı ekleyerek, hangi durumlarda hataların alındığını açıklar mısınız.

.

 

[krizantem_kasimpati]

Durumu şöyle özetlemek isterim.Örneğin,göndermiş olduğunuz ekli dosyada "sayfa1"e yazdığım değerleri kopyalayıp hiç bir sayfaya hiç bir şekilde yapıştıramıyorum(tüm korumaları kaldırmama rağmen).Bir de ilgili sayfalardaki "ekle" komutunu aktif hale getirebilir miyiz? Yalnızca silinememesi yeterli.Saygılar sunarım..

 

[Ömer]

Sayfa aktif olduğunda makro çalıştığı için kopyalama iptal oluyordur.

Üzerinde çalışmak gerek. Boş vaktimde incelerim.

.

 

[krizantem_kasimpati]

Ben şöyle bir çözüm yolu buldum sanırım.Silinmemesi istenen sayfanın kod protokolüne aşağıdaki komutları yazdım.

Private Sub Worksheet_Deactivate()
ThisWorkbook.Protect , True
Application.OnTime Now, "UnprotectBook"
End Sub


Bu makronun çalışabilmesi için de yeni açarak oluşturduğum "Module1" protokolünün içine de aşağıdaki kodları yazdım.Ve gerçekten istediğim oldu.

Sub UnprotectBook()
ThisWorkbook.Unprotect
End Sub


Yalnız yine silinmemesini istediğim sayfalar arası copy-past yapılamıyor.Bir de excel programı bazen çalışmayı durduruyor.Fırsatını bulup incelerseniz sevinirim.