Soru On error Gor To HataMsg: - Hata olunca mesaj kutusu çıkıyor ama olmadığında da çıkıyor :)

[ptcsite]

Sub Ornek_Kod()

...... Kodlar Var Burada....

On Error GoTo HataMsg:

..... Kodlar Var Burada ....

HataMsg: "Hata Tespit Edildi"

ActiveSheet.Protect Password:="pswrd"
Sayfa7.Protect Password:="pswrd"

End Sub

Yukarıdaki kodu çalıştırdığımda hata alınca "Hata Tespit edildi" penceresi çıkıyor.
Hata almadan devam edince de "Hata Tespit Edildi" mesajı çıkıyor...
Evet satır satır okuma yaptığından o mesaj kutusunu her halükarda program okuyor.
Exit Sub kullanamıyorum her halukarda sayfalar kilitlensin istiyorum...

Nasıl birşey yazmalıyım?

 

[Necdet]

Merhaba,
HataMsg satırından önce Exit Sub demelisiniz