ptcsite
Altın Üye
- Katılım
- 8 Nisan 2016
- Mesajlar
- 123
- Excel Vers. ve Dili
- M.OFFICE 2016 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 26-12-2027
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?
...... 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?