Hücre içeriği

[muratgunay48]

Arkadaşlar sayın hocalarım, gözden geçir bölümünde sayfa koruması yaparken, hücrelere yazı yazılsın ama silinmesin mümkün mü? Ben göremedim.
Yoka bunun için makro mu gerekir.
Şimdiden teşekkür ederim saygılarımla.

 

[Korhan Ayhan]

Forumda Locked ifadesi ile arama yaparsanız arşiv konularına erişebilirsiniz.

Bazıları;

Çözüldü - Veri Girişi Sonrayı Hücreyi Kilitleme

Merhaba, Excelde B ve C stunlarında veri girişi sonrası değişiklik yapılmasını önlemek istiyorum. Bunu nasıl yapabilirim? Bu işlemi dosyayı kaydettikten sonra da yapabilir. Yardımlarınız için şimdiden çok teşekkür ederim.

www.excel.web.tr

Çözüldü - Veri Girilen Hücreyi Kilitli Hale Getirme

B ve G sütunlarında veri girilip sonraki satıra inildiğinde yalnızca veri girilen hücrenin kilitlenmesini istiyorum. Tablonun hemen hemen tamamı kilitli. Yalnızca 2 sütun veri girişine müsait. Kayıtlar tek seferlik olsun, sonradan girilip değişiklik yapılamasın istiyorum. Tablo ektedir...

www.excel.web.tr

Otomatik hücre kilitleme

Selam arkadaşlar ekte olan bir çalışma dosyam var ben hücrelere değer girdiğimde ve dosyayı kayıt ettiğimde değer girilen hücreler kilitlesin,ekte buna benzer kod var ama eğer değeri yanlış girmişsem açamaya gidiyorum hücreden ayrılınca hemen kilitleniyor ben hemen kilitlenmesini istemiyorum ne...

www.excel.web.tr

Daha önce girilmiş verilerin değiştirilmesini engelleme

Merhabalar Bir kitap takip dosyam var. Bazen yanlışlıkla daha önce girilmiş veriler değiştirilebiliyor. Buda veri kaybına sebep oluyor. Yapmak istediğim: Daha önce B D ve F sütunlarındaki hücrelere veri girilmişse bu verilerin değiştirilmesini engelleme. Makro dışında yapılamayacaığını...

www.excel.web.tr

Soru - Excel Tablosunda Yalnızca Bir Gün Değişiklik Yapma

Merhaba, Excel dosyasında sadece bugün veri girişi yapılabilsin istiyorum. Dün ve ondan önceki günlerde girilen verilerde değişiklik yapılmasını önlemek istiyorum. Bunu nasıl sağlayabilirim. Şimdiden çok teşekkür ederim.

www.excel.web.tr

Şarta göre hücreyi kilitleme

Merhaba R21 hücresinde veri doğrulama ile "Hayır veya Evet" seçiyorum. Aşağıdaki kod çalıştığında U21 hücresi kilitlenmesini veya açılmasını istiyorum. Kodu çalıştırıyorum ama hiçbir şey olmuyor. Yardımcı olabilir misiniz? Private Sub Worksheet_Change(ByVal Target As Range) Call Kilitle...

www.excel.web.tr

 

[muhasebeciyiz]

Sub KorumaUygula()
Cells.Locked = False
ActiveSheet.Protect Password:="Şifre", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Bu yöntem, hücrelere yazı yazılmasını sağlamak ve ardından hücrelerin silinmemesini sağlamak için bir çözüm sunar. Ancak, kullanıcılar makro çalıştırma yetkisine sahip olmalıdır ve makro çalıştırma güvenlik ayarlarını etkinleştirmiş olmalıdır.

 

[muratgunay48]

Sub KorumaUygula()
Cells.Locked = False
ActiveSheet.Protect Password:="Şifre", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Bu yöntem, hücrelere yazı yazılmasını sağlamak ve ardından hücrelerin silinmemesini sağlamak için bir çözüm sunar. Ancak, kullanıcılar makro çalıştırma yetkisine sahip olmalıdır ve makro çalıştırma güvenlik ayarlarını etkinleştirmiş olmalıdır.

Hocam deneyeceğim. Umarım doğru anlatabilmişimdir. "Sayfa1"de veri girişi her zaman serbest olacak. Ancak silinemeyecek.

 

[muratgunay48]

Forumda Locked ifadesi ile arama yaparsanız arşiv konularına erişebilirsiniz.

Bazıları;

Çözüldü - Veri Girişi Sonrayı Hücreyi Kilitleme

Merhaba, Excelde B ve C stunlarında veri girişi sonrası değişiklik yapılmasını önlemek istiyorum. Bunu nasıl yapabilirim? Bu işlemi dosyayı kaydettikten sonra da yapabilir. Yardımlarınız için şimdiden çok teşekkür ederim.

www.excel.web.tr

Çözüldü - Veri Girilen Hücreyi Kilitli Hale Getirme

B ve G sütunlarında veri girilip sonraki satıra inildiğinde yalnızca veri girilen hücrenin kilitlenmesini istiyorum. Tablonun hemen hemen tamamı kilitli. Yalnızca 2 sütun veri girişine müsait. Kayıtlar tek seferlik olsun, sonradan girilip değişiklik yapılamasın istiyorum. Tablo ektedir...

www.excel.web.tr

Otomatik hücre kilitleme

Selam arkadaşlar ekte olan bir çalışma dosyam var ben hücrelere değer girdiğimde ve dosyayı kayıt ettiğimde değer girilen hücreler kilitlesin,ekte buna benzer kod var ama eğer değeri yanlış girmişsem açamaya gidiyorum hücreden ayrılınca hemen kilitleniyor ben hemen kilitlenmesini istemiyorum ne...

www.excel.web.tr

Daha önce girilmiş verilerin değiştirilmesini engelleme

Merhabalar Bir kitap takip dosyam var. Bazen yanlışlıkla daha önce girilmiş veriler değiştirilebiliyor. Buda veri kaybına sebep oluyor. Yapmak istediğim: Daha önce B D ve F sütunlarındaki hücrelere veri girilmişse bu verilerin değiştirilmesini engelleme. Makro dışında yapılamayacaığını...

www.excel.web.tr

Soru - Excel Tablosunda Yalnızca Bir Gün Değişiklik Yapma

Merhaba, Excel dosyasında sadece bugün veri girişi yapılabilsin istiyorum. Dün ve ondan önceki günlerde girilen verilerde değişiklik yapılmasını önlemek istiyorum. Bunu nasıl sağlayabilirim. Şimdiden çok teşekkür ederim.

www.excel.web.tr

Şarta göre hücreyi kilitleme

Merhaba R21 hücresinde veri doğrulama ile "Hayır veya Evet" seçiyorum. Aşağıdaki kod çalıştığında U21 hücresi kilitlenmesini veya açılmasını istiyorum. Kodu çalıştırıyorum ama hiçbir şey olmuyor. Yardımcı olabilir misiniz? Private Sub Worksheet_Change(ByVal Target As Range) Call Kilitle...

www.excel.web.tr

Hocam ilginize teşekkür ederim. Hepsini kontrol edip deneyeceğim.

 

[Muzaffer Ali]

Merhaba.
Sayfanın kod kısmına kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Range
    For Each Bak In Target.Cells
        If Bak.Value = "" Then
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
            Exit For
        End If
    Next
End Sub

 

[muratgunay48]

Merhaba.
Sayfanın kod kısmına kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Range
    For Each Bak In Target.Cells
        If Bak.Value = "" Then
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
            Exit For
        End If
    Next
End Sub

Çok teşekkür ederim hocam. Bu tam oldu.
Emeğinize sağlık.

 

[muratgunay48]

Merhaba.
Sayfanın kod kısmına kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Range
    For Each Bak In Target.Cells
        If Bak.Value = "" Then
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
            Exit For
        End If
    Next
End Sub

Hocam, tekrar yazdım sizi rahatsız ettim ama ben bu dosyayı, Korhan hocamın yazdığı kodları kullanarak kendi dosyama uyarladım.
Şimdi dosyanın kullanıcıları var, (örneğin Ahmet, Ali, Mehmet)
Bu kullanıcılar giriş yapıyor. Giriş yapanı kaydediyor.
Korhan hocamın kodlarıyla da ne değişiklik yaptı onu kaydediyor.
Aslında sayfa korumaya alsak kolay olurdu ama giriş yapan kullanıcı adı ve ne yaptığını yazamıyor. Hata veriyor. Sayfa korumalı yazılamadı diyor.
Ben bunun için istemiştim.
Yazdığınız kod mükemmel çalışıyor.
Tek bir şey dışında, yazılıyor silinemiyor. Ancak üzerine başka bir şey yazılabiliyor.
Bizim elamanlar zaten birbirine suç atmayı çok sever. A3 hücresindeki giriş yapan kullanıcı adını değiştirir.
Bunun önüne geçmek mümkün mü? Bir kere yazılsın tamam.
Biraz uzun oldu özür dilerim. Umarım doğru anlatabilmişimdir.
Teşekkür ederim.
Saygılarımla.

 

[Muzaffer Ali]

Doğru anladıysam aşağıdaki işinizi görecektir.

Dim Kontrol As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Range
    For Each Bak In Target.Cells
        If Bak.Value = "" Or Kontrol Then
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
            Exit For
        End If
    Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then
        Kontrol = True
    ElseIf Target.Value <> "" Then
        Kontrol = True
    Else
        Kontrol = False
    End If
End Sub

 

[muratgunay48]

Doğru anladıysam aşağıdaki işinizi görecektir.

Dim Kontrol As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Range
    For Each Bak In Target.Cells
        If Bak.Value = "" Or Kontrol Then
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
            Exit For
        End If
    Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then
        Kontrol = True
    ElseIf Target.Value <> "" Then
        Kontrol = True
    Else
        Kontrol = False
    End If
End Sub

Evet hocam. Böylece içerik değiştiremezler.
Çok teşekkür ederim. Emeğinize sağlık. Var olun.