Korumalı sayfada butonu çalıştırmak

[ASLAN7410]

Merhaba arkadaşlar hayırlı cumalar.

Ekteki sayfamı korumalı olarak kullanıyorum, sayfa korumalı olduğu için sayfa üzerindeki butona bastığımda debug veriyor.

Benim istediğim butona bastığımda sayfa korumasını kaldırın uyarısı vermesini ve sayfa korumasını kaldırdıktan sonra butona bastığımda makro çalışıp İşlem tamam uyarısını vermesini istiyorum.

Yardım edecek arkadaşlara teşekkür ediyorum.

 

[Orion1]

Buyurun.

If Sheets("Sayfa1").ProtectContents Then
    MsgBox "Sayfa korumasını kaldırınız!", vbCritical, "UYARI"
    Exit Sub
End If
a = Cells(Rows.Count, "b").End(xlUp).Row
Range("B2:f" & a).Sort Key1:=[b2], Order1:=xlAscending
For b = 2 To a
Cells(b, "a") = WorksheetFunction.CountIf(Range("B2:B" & b), Cells(b, "b").Value)
Next
MsgBox "Bilgileriniz sıralandı"

 

[ASLAN7410]

Sayın Evren Bey ilginiz için çok teşekkür ediyorum, tam istediğim gibi oldu.

Hayırlı günler diliyorum.