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

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