Şifreli hücreler (Korunan Hücreler) Farklı Renkte Olabilirmi

[sawWweb]

Arkadaşlar diyelimki bir veri giriş sayfam var sadece verilerin girildiği hücreler beyaz renkte olurken veri girilmeyen veya içinde formul bulunduran korunmuş hücreler farklı renkte olabilirmi. Eğer olabilirse bir de bunun çıktısı alınırken siyah beyaz (renksiz) yazdırılabilir mi? Teşekkürler

 

[Seyit Tiken]

Bu kodu bir deneyiniz. Koşullu Biçimlendirme ile de yapılabilir bence.
Çıktı alırken renkli hücrelerin çıkmaması için : Dosya > Sayfa Yapısı > Çalışma Sayfası > çıkan pencerede "Siyah Beyaz" kutucuğunu bulup ve işaretleyiniz.

Kod :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.HasFormula Then
With Selection.Interior
.ColorIndex = 39
End With
ActiveCell.Offset(0, 1).Select
End If
End Sub

 

[sawWweb]

malesef olmadı, şifreli hücrelerim yine beyaz.

 

[GAYSERİLİ]

benceSeyit Tiken, in kodları işinizi görmesi lazım.
acaba sayfa bölümüne yazılan kodları modülde denediniz mi?

[vb:1:518f8a2e62]Sub formul_renkli()
'bu makro sayfadaki formüllü hücreleri renkli yapar
'***************************************************************
If ActiveCell.HasFormula Then 'eğer aktif hücre formüllü ise
With Selection.Interior 'seçilen obje içinde
.ColorIndex = 39 index numarası 39 a denk gelen renk
End With 'içinde son
ActiveCell.Offset(0, 1).Select 'aktif hücrenin bir yanındaki hücre seçilir
End If 'eğerli kod sonu
'******************************************************************
With ActiveSheet.PageSetup ' aktif sayfa ayarları içinde
.BlackAndWhite = True ' siyah ve beyaz işaretleniyor
End With 'içinde son
ActiveWindow.SelectedSheets.PrintPreview 'aktif pencerede seçili sayfanın yazıcı önizlemesi
End Sub[/vb:1:518f8a2e62]