Hata mesajı yerine istediğim bir mesaj çıkabilir mi

[xternet]

Merhaba arkadaşlar.

Bir sayfada belli bir hücre grubunda yapılan sıralamayı makro olarak kaydettim. Kodu çalıştırınca sıralama yapılıyor. Ancak sayfa genel olarak koruma altında. Bu durumda da sıralama makrosu çalıştırılınca sayfa korumalı olduğundan hata mesajı veriyor. İşi bilen biri için sorun yok. End ile hatayı sonlandırıp korumalar kaldırılıyor ve işleme devam edilebiliyor.

İsteğim şu: sıralama makrosu çalıştırıldığında eğer sayfa korumalı ise sıralama makrosu çalıştırılmadan "Önce sayfa korumalarını kaldırınız" şeklinde bir mesaj versin ve "tamam" butonu ile makro sonlandırılsın.

İyi çalışmalar. Kolay gelsin.

 

[Necdet]

Merhaba,

Kod içinde sıralamadan önce sayfa korumasını kaldırıp, sıralama yaptıktan sonra tekrar sayfa koruması konabilir.

Böyle daha iyi olmaz mı?

 

[xternet]

Onu düşündüm aslında ama 30-40 sayfalık bir çalışma olduğu için her defasında bütün sayfalar kullanıcının önünden geçiyor.
Yinede pratik bir çözüm bulamazsak öyle yapıcam. İlginizden dolayı teşekkür ederim.

 

[Necdet]

Tekrar Merhaba,

Zaten kod çalışıyor, bu durumda sıralama yapan kodun önüne şifre kaldırmayı, sonuna ise şifre koymayı yapan kodu ekleyince işlem biter zaten.

Şifre Kaldırmak İçin :

ActiveSheet.Unprotect Password:="[B]Şifreniz[/B]"

Şifre Koymak İçin :

ActiveSheet.Protect Password:="[B]Şifreniz[/B]", DrawingObjects:=True, Contents:=True, Scenarios:=True

 

[xternet]

Sub sifrele()
For a = 1 To Sheets.Count
Sheets(a).Protect "123" = True
Next
End Sub

Sub sifreac()
For a = 1 To Sheets.Count
Sheets(a).Unprotect "123" = True
Next
End Sub

Benim kullandığım şifre kodu bu. Bu kodda tüm sayfaların kodu ard arda çözülüyor. Sizin verdiğiniz kod sadece aktif sayfa için mi geçerli?

 

[Necdet]

Evet Benim verdiğim kod sadece aktif sayfa için geçerli.

Sizin istediğiniz hata kontrolu :

Public Sub sırala()
On Error GoTo Hata
Range("A1:D12").Sort Key1:=[A1]
GoTo Son
Hata:
If Err.Number = 1004 Then
    MsgBox "Sayfa Korumasını Kaldırınız"
    Exit Sub
End If
Son:
End Sub

 

[xternet]

Teşekkür ederim Necdet Bey. Tam düşündüğüm gibi oldu.

İyi çalışmalar.

 

[Necdet]

Güle güle kullanınız sayın xternet.