• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre içeriği

muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,485
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
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.
 
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 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 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 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 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 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 www.excel.web.tr
 
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.
 
muhasebeciyiz' Alıntı:
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.
Genişletmek için tıkla ...

Hocam deneyeceğim. Umarım doğru anlatabilmişimdir. "Sayfa1"de veri girişi her zaman serbest olacak. Ancak silinemeyecek.
 
Korhan Ayhan' Alıntı:
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 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 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 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 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 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 www.excel.web.tr
Genişletmek için tıkla ...
Hocam ilginize teşekkür ederim. Hepsini kontrol edip deneyeceğim.
 
Merhaba.
Sayfanın kod kısmına kopyalayınız.
Kod: 
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
 
Muzaffer Ali' Alıntı:
Merhaba.
Sayfanın kod kısmına kopyalayınız.
Kod: 
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
Genişletmek için tıkla ...

Çok teşekkür ederim hocam. Bu tam oldu.
Emeğinize sağlık.
 
Muzaffer Ali' Alıntı:
Merhaba.
Sayfanın kod kısmına kopyalayınız.
Kod: 
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
Genişletmek için tıkla ...

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.
 
Doğru anladıysam aşağıdaki işinizi görecektir.

Kod: 
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
 
Muzaffer Ali' Alıntı:
Doğru anladıysam aşağıdaki işinizi görecektir.

Kod: 
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
Genişletmek için tıkla ...

Evet hocam. Böylece içerik değiştiremezler.
Çok teşekkür ederim. Emeğinize sağlık. Var olun.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst