Program Başlangıcı Kodlarını Çalıştırma

Program Başlangıcı Kodlarını Çalıştırma isimli kod ile Excel’de otomatik olarak başlatma işlemlerini yerine getirebilirsiniz.

Global Baslik As String

Sub Auto_Open()
    Application.Visible = False
    Application.StatusBar = ThisWorkbook.Name & " ExcelDepo (c) 2020"
    Başlık = "Kod Bankası"
    Dosya_Adı = ThisWorkbook.Name
    Windows(Dosya_Adı).Activate
    Gizlenecek
End Sub

Sub Cikis()
    Gorunecek
    Application.StatusBar = ""
    Application.Quit
    Application.Visible = True
    ThisWorkbook.Close SaveChanges:=False
End Sub

Sub Gizlenecek()
    With ActiveWindow
        .DisplayWorkbookTabs = Not .DisplayWorkbookTabs
    End With
    Application.CommandBars.ActiveMenuBar.Enabled = False
    Application.DisplayFullScreen = True
    Application.CommandBars("Full Screen").Enabled = False
End Sub

Sub Gorunecek()
    With ActiveWindow
        .DisplayWorkbookTabs = True
    End With
    Application.CommandBars.ActiveMenuBar.Enabled = True
    Application.DisplayFullScreen = False
    Application.CommandBars("Full Screen").Enabled = True
End Sub

Program Başlangıcı Kodlarını Çalıştırma Uygulama Adımları

1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
2. Project – VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
3. Araç çubuklarından Insert -> Module yazısına tıklayın.
4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
6. Üstteki kodu yapıştırın.

Kod Açıklaması

Buradaki kodları kullanarak Excel dosyalarınızı başlatırken otomatik işlemler yaptırabilirsiniz. Ayrıca, VB Penceresini Açma kodunuz da inceleyebilirsiniz. Eklediğimiz bu Hazır Excel Makro kodunun, böyle bir ihtiyacı olan kullanıcılara fayda sağlamasını temenni ederiz.