ThisWorkbook ile herhangi bir sayfadaki kodu bağdaştırmak

[qrrxz]

arkadaşlar hepinize merhaba,

ThisWorkbook'da bulunan aşağıdaki kodları

Private Sub Workbook_Open()
Dim cb As CommandBar
Application.DisplayFormulaBar = False
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub

Sayfa1'de bulunan bu;

Private Sub Label1_Click()
Do
DoEvents
''Menu.Caption = Format(Now, "hh:mm:ss")
Label1.Caption = Now
Loop
End Sub

kod ile bağdaştırmak istiyorum. yani ben kliklemeden label1 kodum devreye girsin. veya başka fikri olanlar bu saati label üzerinde açılışa ekleyip hemen devreye girmesini sağlamama yardımcı olabilir mi?

teşekkür ederim.

 

[Orion1]

Label1_click prosedürünü silip Workbooks_Open prosederüne Aşağıdaki koyu yeşil renkli kodları ilave edin.
Ve onun altında bulunan workbooks_activite prosederünüde Çalışma sayfasının kod bölümüne yazarak deneyebilirsiniz.
Private Sub Workbook_Open()
Dim cb As CommandBar
Application.DisplayFormulaBar = False
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Do
DoEvents
''Menu.Caption = Format(Now, "hh:mm:ss")
Sheets("Sayfa1").Label1.Caption = Now
Loop
End Sub

==============================
Private Sub Worksheet_Activate()
Do
DoEvents
''Menu.Caption = Format(Now, "hh:mm:ss")
sheets("Sayfa1").Label1.Caption = Now
Loop

End Sub

 

[hamitcan]

Alternatif;
Not:İki koduda, ThisWorkbook kısmına yerleştirin.

Private Sub Workbook_Open()
Dim cb As CommandBar
Application.DisplayFormulaBar = False
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
 calis
End Sub

Sub calis()
Do
DoEvents
''Menu.Caption = Format(Now, "hh:mm:ss")
Sayfa1.Label1.Caption = Now
Loop
End Sub

 

[qrrxz]

teşekkür ederim..