Gizli Veri (A1) hücresi

[nane]

Merhabalar,
Kullandığım excelde her kitapta ve her sayfada, yeni eklenecek sayfalar da dahil olmak üzere kullanıcı adı veya belirleyecegim kelimenin A1 hücresine gelmesin istiyorum.
Birde gizli olabilirmi, yazıcıdan çıktı alındığında sol üst tarafta 8 karekter olarak çıkmalı.
Örnek kelime "Yb®" gibi
Excel 2007
yardımlarınız için şimdiden teşekkürler

Yb®

 

[nane]

Merhabalar,
Konu günceldir cevaplarınızı bekliyorum.
Teşekkürler
Yb®



Hayırlı cumalar

 

[uzmanamele]

Merhaba
Her zaman A1 hücreye başka bir şey yazdırmak doğru olmayabilir, mevcut veriyi kaybedebilirsiniz.
Fikir edinmeniz açısından aşağıdaki kodu deneyiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[a1] = Application.UserName & " " & [a1]
[a1].Characters(Start:=1, Length:=10).Font.Color = -1003520
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[a1] = Application.UserName
[a1].Characters(Start:=1, Length:=10).Font.Color = -1003520
End Sub

 

[nane]

teşekkürler uzmanamele

Yalnız hiçbir işlem olmadı kodu kopyalayıp yapıştırdım sayfada önizleme yaptığımda veya yazıcıdan çıktı aldığımda hiçbir şey çıkmadı.
Kod 1 de & "Yb" & yazdım fakat çıkmadı.
Acaba nerede hata yapıyorum
Yb®

 

[bedersu]

Sayın nane,
Kodları nereye yapıştırdınız?

 

[nane]

Sayın nane,
Kodları nereye yapıştırdınız?

Merhabalar,
Kodları kod sayfasına yapıştırdım.
Nasıl yapmam gerekiyordu ?
Yardımcı olun lütfen

 

[Korhan Ayhan]

Merhaba,

Çalışma kitabınızı açın.
ALT+F11 tuşlarına basarak kod penceresini açın.
Sol üst tarafta kitabınızın ismini ve içindeki sayfaları göreceksiniz.

ThisWorkbook yazan bölüme önerilen kodları uygulayın.