ekran görünümü

[airborne]

çalışma sayfalarındaki görünümün görüntü.jpeg yerine görüntü1.jpeg gibi görünmesi için ne gibi kod yazmak gerekir

 

[Ferhat Pazarçevirdi]

Merhabalar

Öncelikle çalışma sayfası üzerinde iki adet buton(düğme) yerleştirin.

Daha sonra aşağıdaki kodları bir modül sayfasına kopyalayıp. Herbirini bir düğmeye atayın. Biri istediğiniz görüntüyü elde etmenizi, diğeri eski görünüme dönmeyi sağlayacaktır.

Sub Goruntu1()
With Application
    .DisplayFullScreen = True
    .CommandBars("Worksheet Menu Bar").Enabled = False
End With
End Sub

Sub Goruntu()
With Application
    .DisplayFullScreen = False
    .CommandBars("Worksheet Menu Bar").Enabled = True
End With
End Sub

 

[airborne]

görüntü alt yordamını aşağıdaki kodların arasına nasıl yerleştirebiliriz.


Private Sub Cikis_Click()
Cevap = MsgBox("Personel Takip Programı içerisinde yaptığınız değişiklikleri kaydetmek istiyor musunuz?", vbYesNoCancel + vbInformation, "Personel Programından Çıkmak İstiyormusunuz?")
If Cevap = vbNo Then
Unload Me
Application.DisplayAlerts = False
Application.Quit
ElseIf Cevap = vbCancel Then
Exit Sub
Else
ActiveWorkbook.Save
Unload Menu
Application.Quit
End If
End Sub

 

[Ferhat Pazarçevirdi]

Şöyle :

Private Sub Cikis_Click()
Cevap = MsgBox("Personel Takip Programı içerisinde yaptığınız değişiklikleri kaydetmek istiyor musunuz?", vbYesNoCancel + vbInformation, "Personel Programından Çıkmak İstiyormusunuz?")
If Cevap = vbNo Then
   Unload Me
   Call Goruntu
   Application.DisplayAlerts = False
   Application.Quit
ElseIf Cevap = vbCancel Then
   Exit Sub
Else
   ActiveWorkbook.Save
   Unload Menu
   Call Goruntu
   Application.Quit
End If
End Sub
Sub Goruntu()
With Application
    .DisplayFullScreen = False
    .CommandBars("Worksheet Menu Bar").Enabled = True
End With
End Sub