Excel Kitabının Sadece Görev Çubuğundaki Simgesini Değiştirmek

[Ergün Güler]

Selam,

İstediğimiz herhangi bir excel kitabının görev çubuğunda görünen klasik simgesini VBA, API v.s. ile değiştirebilmek mümkün müdür? Değişiklik sadece istediğimiz kitabta olsun. diğerleri klasik görünsün.

Bir de excel kitabının isminin görev çubuğunda deneme.xls değil de deneme şeklinde görünmesini sağlayabilir miyiz?

 

[Ergün Güler]

Selam,
2.soruma cevap buldum.
aşağıdaki gibidir:

Option Explicit
Private Declare Function FindWindow _
Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText _
Lib "user32" Alias "SetWindowTextA" _
(ByVal hwnd As Long, _
ByVal lpString As String) As Long

Sub AlterExcelCaption(strCaption As String)
SetWindowText FindWindow("XLMAIN", Application.Caption), strCaption
End Sub

Private Sub Workbook_Activate()
'AlterExcelCaption "Just testing"
'AlterExcelCaption ThisWorkbook.Name
AlterExcelCaption Replace(ThisWorkbook.Name, ".xls", "")
End Sub

1.sorum için hala yardım bekliyorum.