Yazar ismini degistirememek hk.

[zetkatamet]

Arkadaslar,
Excelde yazar isminin degistirilememesi için ne yapılabilir?
Kitleme gibi.
Şimdiden tesekkurler.

 

[Merhum İdris SERDAR]

.

Öyle bir şey var mı? Bilmiyorum.
.......................

Bir şeyler yazdım ama bir işe yaramayacağını düşündüğüm için sildim.

.

 

[zetkatamet]

Bence olması gerekiyor diye dusunuyorum. Yazar o çalışmayı yapan, emegi veren kisi ise, isminin de birisi tarafından kolaylıkla değiştirilmemesi hoş olurdu.

 

[Murat OSMA]

Dosya Salt Okunur olursa neden olmasın.​

 

[Merhum İdris SERDAR]

Dosya Salt Okunur olursa neden olmasın.​

.

Merhaba,

Yanılmıyorsam, Dosyayı Save as > Farklı kaydet ile bunun üstesinden geliniyor.

.

 

[Korhan Ayhan]

Makro ile dosya kapanışında otomatik olarak düzeltilebilir. Fakat bu da aşılabilecek bir durumdur. Sadece örnek olması açısından vermek istedim.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With ActiveWorkbook.BuiltinDocumentProperties
        .Item("Author") = "Deneme"
    End With
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With ActiveWorkbook.BuiltinDocumentProperties
        .Item("Author") = "Deneme"
    End With
End Sub

 

[zetkatamet]

Cevaplarınız için teşekkür ederim.
İyi günler.

 

[baydeniro]

Makro ile dosya kapanışında otomatik olarak düzeltilebilir. Fakat bu da aşılabilecek bir durumdur. Sadece örnek olması açısından vermek istedim.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With ActiveWorkbook.BuiltinDocumentProperties
        .Item("Author") = "Deneme"
    End With
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With ActiveWorkbook.BuiltinDocumentProperties
        .Item("Author") = "Deneme"
    End With
End Sub

Üstad kod için çok teşekkürler. Elinize sağlık. Klasör altında bulunan dosyaların dosyaları açmadan "Yazar" kısmında toplu düzeltme yapılması mümkün müdür ?