sayın m_demir,

konunuzun 2.mesajında yer alan tavsiyeye yönelik olarak;

hem belirli alanların içeriklerinin temizlenmesini hem de ilgili sayfada sadece veri girişlerinin yapılacağı A6:E25,G6:G25 ve J6:J25 alan aralıklarının korumasız bırakılıp sayfadaki diğer hücrelerin korumalı olmasını sağlayacak şekilde,

ilgili yeni butonun içeriğini

'1) önce,hücre içeriği temizleniyor...









    Range("A6:E25,G6:G25,J6:J25").Select

    Range("J6").Activate

    Selection.ClearContents

    Range("A6").Select

    

    

'2) sonra,hücre korumaya alınıyor...









    Range("A6:E25,G6:G25,J6:J25").Select

    Range("J6").Activate

    Selection.Locked = False

    Range("A6").Select

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

yukarıdaki kodlar ile değiştirerek kullanmayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.