FULL SCREEN VBA

[Mr. Köse]

Merhaba değerli üstadlar,

Aşağıdaki kodu yazarak sadece ilgili çalışma kitabımda kullanmak istiyorum. Ancak farkettim ki ilgili çalışma kitabımda kod çalışıyor, ancak tüm excel çalışma kitaplarımı da etkiliyor. Bu kodların sadece istediğim çalışma kitabında çalışabilmesi için çözüm nedir ?

ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False

 

[cems]

Sayın @Haluk 'a ait userformu tam ekran olarak açma kodları :


Private Sub UserForm_Initialize()

Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
Dim CX As Double, CY As Double
Dim MyCtrl As Control
X1 = Application.Width
Y1 = Application.Height
X2 = Me.Width
Y2 = Me.Height
CX = X1 / X2
CY = Y1 / Y2
Me.Width = X1
Me.Height = Y1
For Each MyCtrl In Me.Controls
MyCtrl.Top = MyCtrl.Top * CY
MyCtrl.Left = MyCtrl.Left * CX
MyCtrl.Width = MyCtrl.Width * CX
MyCtrl.Height = MyCtrl.Height * CY
On Error Resume Next
'MyCtrl.Font.Size = MyCtrl.Font.Size * CY
On Error GoTo 0
Next
end sub


Bu kodlar sadece ilgili dosyanın userformunu etkiler ve tam ekran açılır

 

[necati]

Merhaba değerli üstadlar,

Aşağıdaki kodu yazarak sadece ilgili çalışma kitabımda kullanmak istiyorum. Ancak farkettim ki ilgili çalışma kitabımda kod çalışıyor, ancak tüm excel çalışma kitaplarımı da etkiliyor. Bu kodların sadece istediğim çalışma kitabında çalışabilmesi için çözüm nedir ?

ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False

Merhaba,
Aynı makronun tersini ilgili kitabın "ThisWorkbook" kod sayfasına yazarsanız diğer kitapları açarken devreye girmez.

Private Sub Workbook_Deactivate()
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
End Sub