Excel de Tarih eklemek

[halilbay2]

Arkadaaşlar Merhaba
Sitemizden aldığım Tarih ekleme dosyasına ihtiyacım olan sayfaları aktardım.
orada tarih ekleme sayfa koruması olan ancak hücresi açık sayfada çalışmadı. Ben sayfa korumalı dosyada çalıştırmak istiyorum aşağıda verdiğim kod o ek dosyadan alınmıştır. " Set ChtObj = ActiveSheet.ChartObjects.Add(0, 0, 20, 20) " satırında hata veriyor. sebebi ne olabilir acaba? Yardımlaroınızı bekliyorum.
Herkezin yeni yılını kutlar nice yıllar dilerim.

Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" _
(ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Declare Function GetWindowRect Lib "user32" _
(ByVal HWND As Long, _
lpRect As RECT) As Long
Declare Function GetDC Lib "user32" _
(ByVal HWND As Long) As Long
Declare Function ReleaseDC Lib "user32" _
(ByVal HWND As Long, _
ByVal hdc As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Const HWNDDESKTOP As Long = 0
Const LOGPIXELSX As Long = 88
Const LOGPIXELSY As Long = 90
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Sub ShowAtCell()
Dim DC As Long
Dim WinFont As Integer
Dim ZoomFactor As Single
Dim winRect As RECT
Dim hWndXL As Long
Dim hWndXLDesk As Long
Dim hWndXLChart As Long
Dim ChtObj As ChartObject
Dim TargetRange As Range
'Set TargetRange = Range("A1") '(any visible range)
Set TargetRange = ActiveCell.Offset(0, 1)
Set ChtObj = ActiveSheet.ChartObjects.Add(0, 0, 20, 20)
With ChtObj
.Top = TargetRange.Top
.Left = TargetRange.Left
.Activate
End With
hWndXL = FindWindow("XLMAIN", Application.Caption)
hWndXLDesk = FindWindowEx(hWndXL, 0&, "XLDESK", vbNullString)
hWndXLChart = FindWindowEx(hWndXLDesk, 0&, "EXCELE", vbNullString)
GetWindowRect hWndXLChart, winRect
ChtObj.Delete
DC = GetDC(HWNDDESKTOP)
WinFont = GetDeviceCaps(DC, LOGPIXELSX)
ReleaseDC HWNDDESKTOP, DC
ZoomFactor = (ActiveWindow.Zoom - 100) * 0.005
With UserForm1
.StartUpPosition = 0
.Top = (winRect.Top * 72 / WinFont) + ZoomFactor
.Left = (winRect.Left * 72 / WinFont) + ZoomFactor
.Show
End With
End Sub





MODÜL 2

Sub ac()
[a1] = ActiveWindow.Top
[b1] = ActiveCell.Top
[a2] = ActiveWindow.Left
[b2] = ActiveCell.Left

End Sub