[ÇÖZÜLDÜ] sayfa korumasındaki uyarı yazısı

[Ömer]

Merhaba arkadaşlar..
excel çalışma sayfasına bazı hücrelerin değiştirilememesi için sayfayı korumalı yaptım...değiştirmek istendiğinde cıkan uyarı yazısı ;

Microsoft Excel

Değiştirmeye çalıştığnız dosya hücre korumalı yada grafik korumalı ve bu nedenle salt okunur....vs...

gibi bir uyarı veriyor...bu uyarı komutunun kendi belirlediğim bir uyarı komutu ile değiştirmem mümkünmüdür..

Örnek verirsem...

Lütfen harflerle yazılı olan bölgeleri değiştirmeye çalışmayınız...gibi bir yazı olsun istiyorum...

bunula ilgili yardımlı olabilirseniz cok sevinirim..

şimdiden ilgilenen herkeze teşekkür ederim..

 

[Ferhat Pazarçevirdi]

Koruma mesajının değiştirilip değiştirilemeyeceği konusunda emin değilim. Ancak, korumaya bile gerek kalmadan şunu yapabilirsiniz.

Değiştirilmesini istemediğiniz hücrenin üzerine gelin. Menüden;

Veri->Doğrulama->Ayarlar sekmesinde

"İzin Verilen"i ->"Özel" Seçin. "Formul" yazan kutucuğa, rastgele uzun bir metin yazın. Örneğin "fgsdlfksdlfkdslşfksmm oerkwelşasdfasldasdsaşld" bunun gibi...

Hata Uyarısı sekmesine geçin. Burada göstermek istediğiniz mesajı düzenleyebilirsiniz. Yukarıda ratgele yazılan metin; tam olarak girilmedikçe, bu hücreye veri girişi mümkün olmayacaktır.

 

[Ömer]

teşekkür ederim size, yalnız kısa bir metin olsa bunu yapmak kolay olabilirdi fakar içinde 50 çalışma sayfası ve her bir sayfada da minumum 150 adet hücre var koruma altında olan..hepsine doğulama yapmam cok uzun zamanımı almazmı ??

 

[Korhan Ayhan]

Selamlar,

Bu durumda devreye makro girecektir. Aşağıdaki kod ile çalışmanızdaki tüm sayfalardaki metin içeren hücrelere VERİ DOĞRULAMA otomatik olarak eklenecektir.

Sub TÜM_SAYFALARA_VERİ_DOĞRULAMA_EKLE()
    For X = 1 To Sheets.Count
    For Each ALAN In Sheets(X).Cells.SpecialCells(xlCellTypeConstants, 2)
    With ALAN.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="XXXXXXXXXXXXXXXXXXXXXXXXX"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "Sn. " & Application.UserName
        .InputMessage = ""
        .ErrorMessage = _
        "Lütfen harflerle yazılı olan bölgeleri değiştirmeye çalışmayınız..."
        .ShowInput = True
        .ShowError = True
    End With
    Next: Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin. Korumalı hücre seçilince uyarı mesajı çıkacaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.AllowEdit = False Then MsgBox "Lütfen harflerle yazılı olan bölgeleri değiştirmeye çalışmayınız...", 48, "UYARI !"
End Sub

 

[Ömer]

Yardımcı olan herkese cok teşekkür ederim..