Runtime Error 1004

[excelapachi]

Sa. Excelde yaptığım bir sayfada Basic komutuyla Hücre birleştirme ve yazı biçimlendirme komutu kullandım. Sayfayı korumaya aldığım zaman Run-time error 1004;
Font sınıfının Fontstyle özelliği kurulamıyor. diye bi hata mesajı alıyorum nasıl çözebilirim. Teşk.

 

[hamitcan]

Sayfanız korumalı ise makro çalışmayabilir. Bu yüzden aşağıdaki şekilde deneyin.
ActiveSheet.UnProtect
.....
.....'Kodunuz
ActiveSheet.Protect

 

[excelapachi]

Private Sub Worksheet_Activate()
[b30] = [ı15] & [ı16] & [ı17] & [ı18]
ilk = InStr([b30], [ı17])
son = Len([ı17])
[b30].Characters(Start:=ilk, Length:=son).Font.FontStyle = "Kalın"
[b30].Characters(Start:=ilk, Length:=son).Font.Strikethrough = False
ActiveSheet.Protect

End Sub

Dediğiniz gibi yaptım ancak yine aynı hata iletisini aldım.

 

[hamitcan]

Dosyanızı ekler misiniz?

 

[excelapachi]

Dosyayı ekledim.

 

[hamitcan]

Eski kodunuzu aşağıdaki ile değiştirin.

Private Sub Worksheet_Activate()
ActiveSheet.Unprotect ""
[b30] = [ı15] & [ı16] & [ı17] & [ı18]
ilk = InStr([b30], [ı17])
son = Len([ı17])
[b30].Characters(Start:=ilk, Length:=son).Font.FontStyle = "Kalın"
[b30].Characters(Start:=ilk, Length:=son).Font.Strikethrough = False
ActiveSheet.Protect
End Sub

 

[excelapachi]

Tamam hata artık göstermiyor, sayfayı korumasız bıraktık. Bu sayfaya nasıl koruma yapabiliriz ? Teşekkürler.

 

[hamitcan]

Verdiğim kod önce korumayı açıyıor, sonra kapatıyor.

 

[excelapachi]

Çok teşk. hücreleri kilitlemememişim oldu.