Satır Sütun Ekleme Silme Engelleme

[hakki83]

Merhaba

Tarih ve saatlerden oluşan sayfada satır sütun değişikliğinin olamaması için,

satır eklemeyi, sütun eklemeyi
ve
satır silmeyi, sütun silmeyi

engeleyecek bir kod oluşturabilir miyiz?

(Bu sayfada Protect-Unprotect ya da Koruma kullanamıyorum)

 

[dEdE]

Sütun silmeyi engellemek için, Forumda ScrollArea sözcüğünü aramak yararlı olabilir.

 

[hakki83]

Dede hocam teşekkürler.
Arama sonuçlarına baktım ama satır/sütun ekleme/silmeyle engellemeyle ilgili bir sonuç göremedim.

 

[dEdE]

Merhaba,
Örneğin A,B,C sütunları silinemesin, değiştirilemesin ve aralarına sütun eklenmesin, kullanıcı sadece D:M sütunlarında işlem yapsın, M sütunundan sonrasını da kullanamasın istiyorsanız, Sayfa Özellikleri(Properties)/ScroolArea kısmına $D:$M yazmanız yeterli olacaktır. Hatta siz D:M yazarsanız, başka satıra tıkladığınızda $ işareti otomatik olarak yazılır. Böylece kullanıcı sadece D'den M'ye kadar olan sütunlarda işlem yapabilir.

 

[hakki83]

Hocam bu faydalı olmadı maalesef.

Tek talebim,
A: AP alanında satır sütun ekleme silme yapılamaması.

Onun dışında diğer her şey yapılabilmeli doğal olarak.

Ctrl +
Ctrl - ve
sağ tıklayarak satır sütun ekleme silme yapılamamalı. Engellenmeli.

 

[dEdE]

A: AP alanında satır sütun ekleme silme yapılamaması.
Onun dışında diğer her şey yapılabilmeli doğal olarak.

Bu beni aşar.
Üstatlar el atarsa biz de öğreniriz.

 

[hakki83]

Sağ olunuz hocam

 

[tahsinanarat]

Sn. @hakki83 Elimde böyle bir kod mevcut ama dediğiniz şekilde işinizi görürmü bilemedim, denemelisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
     On Error GoTo dur
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A:AP")) Is Nothing Then
        If Target.Count > 0 Then Application.Undo
        If Target.Value = "" Then Application.Undo
    End If
devam:
    Application.EnableEvents = True
    Exit Sub
dur:
    MsgBox Err.Description
    Resume devam
End Sub

 

[hakki83]

Tekrar merhaba

Biraz araştırmam sonucu yüklediğim örnek dosyadaki kodlara ulaştım.

Fakat "ben yaptım" dediğim kısımları, biraz tahmini olarak ben sonradan ilave ettim.

Galiba ID numaraları yanlış oldu. Çünkü sayfadan sayfaya geçişte ve çıkışta hata veriyor.

Amacımı tekrar edeyim hocalarımıza.

Gerçek dosyamın bir sayfasında,
Hücrede ekleme / silme
Satırda ekleme / silme
Sütunda ekleme / silme
ve
CTRL +
CTRL -
olaylarını pasif yapmak istiyorum.

Tabi başka sayfaya geçerken ya da dosyadan çıkarken yine aktif olmalı her şey.

Dosyada hatam nerededir? Neden hata veriyor?

ve

Bir de kesme işareti arasındaki kısımları çıkışta Enable yapmak nasıl oluyor?

 

[hakki83]

Merhaba


Bir de hata videosu çektim