Sayfa Silme ve Kopyalamayı Engeleme

[Seyit Tiken]

Çalışma Kitabımda "Rapor" isimli sayfa var. Bu sayfa "Kopyalandığında veya Silindiğinde" engelensin ve mesaj uyarısı versin. Mesaj uyarısı : "Bu Sayfayı Silemesiniz ve Kopyalaya masınız?" Eğer engeleme imkansız ise sadece mesaj uyarısı versin.

Kullandığım Kodlar :
Sayfa Kopyalama(ekleme) :

Private Sub CommandButton2_Click()
On Error Resume Next
If Worksheets.Count > 251 Then Exit Sub
MsgBox "Artık Sayfa Ekleyemesiniz"
ActiveSheet.Copy before:=Worksheets(Worksheets.Count)
End Sub

Sayfa Silme :

Private Sub CommandButton3_Click()
On Error Resume Next
Application.DisplayAlerts = False
ActiveSheet.Delete
Range("B3").Select
End Sub

Saygılarımı sunuyorum.

 

[Levent Menteşoğlu]

Kopyalama ve silmeyi engellemenin en iyi yolu çalışma kitabına koruma koymaktır. Aşağıdaki kod rapor sayfası seçildiğinde çalışma kitabına koruma koyar, diğer sayfalarda korumayı kaldırır. Bu kodu Thisworkbook sayfasına kopyalayın.

[vb:1:3fba08c923]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Rapor" Then
ActiveWorkbook.Protect "", True, True
Else
ActiveWorkbook.Unprotect ""
End If
End Sub
[/vb:1:3fba08c923]