BAŞLIK ÇUBUĞUNA İSİM SOY İSİM YAZMAK

[SCAMP64]

Merhabalar başka bir kullanıcıya bir excel şablonu vereceğim fakat yapanın benim olduğunun bilinmesini istiyorum bazı videolarda görüyorum başlık çubuğunda isim yazıyor. E-imzam ile dijital imza denedim fakat görmüyor. Nasıl yapabilirim.

 

[uzmanamele]

Merhaba

Çalışma kitabı ThisWorkbook kod bölümüne yazıp Vba şifresi koyarsanız istediğiniz kısmen olur.

Option Explicit
    Dim oHostApp As Excel.Application
    
    Private Sub Workbook_Open()
    On Error Resume Next
      Set oHostApp = Application
Application.StatusBar = "Süleyman Özyüksel & uzmanamele@gmail.com"
End Sub

Eğer sayfanın çıktısı alınıyorsa; her çıktı alındığında üst veya alt bilgiye adınızı da yazdırabilirsiniz.

 

[SCAMP64]

Çıktı alınacak bir sayfa değil.Tam olarak demek istediğimi resim olarak ekliyorum. Sağ üst köşede bir isim yazıyor.

 

[uzmanamele]

Merhaba
İnternette paylaştığım birçok dosya var.
Bazı özellikli dosyalarda StatusBar'da isim yazmak, sayfa üzerine isim yazmak, hepsini silse bile çıktı alırken isim yazmak vs gibi küçük şeyler ekliyorum.
Dosya açılışında makroların etkinleştirilmesi lazım, yine kod ile bu sağlanır.
Bunların kaldırılmaması için Vba şifresi olması lazım vs.

Bir tarihte böyle bir dosyanın şifresini ısrarla isteyen biri vardı. Sordum, ne için istiyorsunuz şifreyi diye.
Seninkinin yerine kendi adımı yazacağım dedi ))

 

[uzmanamele]

Çıktı alınacak bir sayfa değil.Tam olarak demek istediğimi resim olarak ekliyorum. Sağ üst köşede bir isim yazıyor.




Ekli dosyayı görüntüle 234248

Merhaba
Buraya da benzer şekilde İsim yazılır, StatusBar aklımda kalmış ama bu bölgenin adı neydi unuttum.
Yalnız bunu denediğim zaman kullanışlı olmamıştı. Aklıma gelince bir daha deneyeyim bakalım oluyormu.

 

[ÖmerFaruk]

Application.Caption = "Dilaver"

Bu işinizi görüyor mu?

 

[SCAMP64]

Application.Caption = "Dilaver"

Bu işinizi görüyor mu?

kusura bakmayın bilmediğimden soruyorum nereye yazmam gerekiyor bu kodu

 

[Necdet]

Merhaba,
Sanırım istediğiniz menü çubuğunu özelleştirmeden geçiyor.

Buraya Bakın

 

[ÖmerFaruk]

Excel dosyanızın VBA penceresinde boş bir modül ekleyip modül içine aşağıdaki Kodu yapıştırın
Yönerge için aşağıdaki sayfadan yaralanabilirsiniz
https://analysistabs.com/excel-vba/run-macro-automatically-opening-workbook/

Yapıştıracağınız Kod

Sub Auto_Open()
ActiveWindow.Caption = ActiveWindow.Caption + " Dilaver Bey "
End Sub

 

[uzmanamele]

Merhaba

Ömer beyin önerdiği Application.Caption da bir seçenek, benim söyleyip aklıma gelmeyen
Sizin istediğiniz menü çubuğunun özelleştirilmesinden geçiyor.
Bu ise kendi makinenizde çalışır, dosya ile taşınmaz.
Dosya içine de koyulur ancak uzun hikaye.

Ben başka yol önereyim.
Örneğin, A1 hücresine adınızı yazın.
Kullanıcı bunu silecektir, olsun.
Dosya açıldığında, kaydedildiğinde, yazdırıldığında, sayfa aktif olduğunda vs yazı tekrar yazdırılır.

Yalnız vba bilen kullanıcı bunun üstesinden gelebilir, aklınızda bulunsun.

 

[SCAMP64]

Merhaba

Ömer beyin önerdiği Application.Caption da bir seçenek, benim söyleyip aklıma gelmeyen
Sizin istediğiniz menü çubuğunun özelleştirilmesinden geçiyor.
Bu ise kendi makinenizde çalışır, dosya ile taşınmaz.
Dosya içine de koyulur ancak uzun hikaye.

Ben başka yol önereyim.
Örneğin, A1 hücresine adınızı yazın.
Kullanıcı bunu silecektir, olsun.
Dosya açıldığında, kaydedildiğinde, yazdırıldığında, sayfa aktif olduğunda vs yazı tekrar yazdırılır.

Yalnız vba bilen kullanıcı bunun üstesinden gelebilir, aklınızda bulunsun.

bu dediğiniz nasıl olacak peki

 

[Korhan Ayhan]

Sizin görsel olarak paylaştığınız durum için kayıtlı bir microsoft uyumlu mail adresi ile oturum açmanız gerekir. Sonrasında isminiz sağ ust köşede paylaştığınız gorseldeki gibi görünecektir. Bu durum yeni ofis sürümlerinde geçerlidir.

 

[SCAMP64]

Sizin görsel olarak paylaştığınız durum için kayıtlı bir microsoft uyumlu mail adresi ile oturum açmanız gerekir. Sonrasında isminiz sağ ust köşede paylaştığınız gorseldeki gibi görünecektir. Bu durum yeni ofis sürümlerinde geçerlidir.

evet 365 satın almam gerekiyormuş. Teşekür ederim.

 

[Necdet]

evet 365 satın almam gerekiyormuş. Teşekür ederim.

Sizin yapacağınız excel uygulaması olsa da başkasında kendi adı görünecektir. Bu da sizin istediğiniz olmayacaktır.
Önerimi değerlendirdiniz mi?

 

[SCAMP64]

Sizin yapacağınız excel uygulaması olsa da başkasında kendi adı görünecektir. Bu da sizin istediğiniz olmayacaktır.
Önerimi değerlendirdiniz mi?

denedim fakat bulamadım tam olarak nereden yapabileceğimi

 

[uzmanamele]

Sizin görsel olarak paylaştığınız durum için kayıtlı bir microsoft uyumlu mail adresi ile oturum açmanız gerekir. Sonrasında isminiz sağ ust köşede paylaştığınız gorseldeki gibi görünecektir. Bu durum yeni ofis sürümlerinde geçerlidir.

Bende bunu biryerden hatırlıyorum diyordum.
Oturumu kapattığım için bende yazı çıkmıyor.

 

[ÖmerFaruk]

Zaten Görselle İmza kısmındaki verisyonlar farklı olunca ben de cevap vermekten çekinmiştim.
Hangisi doğru verisyon halen de anlamış değilim.

 

[Necdet]

denedim fakat bulamadım tam olarak nereden yapabileceğimi

Ömer Faruk Bey'in kodlarını denediniz mi? Bence pratik kod.

 

[SCAMP64]

Ömer Faruk Bey'in kodlarını denediniz mi? Bence pratik kod.

Evet kullandım gayet güzel fakat makro aktifleştirilmemiş bir bilgisayarda de çalışıyor mu deneyemedim.

 

[ÖmerFaruk]

Makro aktif edilmezse makro çalışmaz, görünmez diye düşünüyorum. Deneyin yine de.