Friday, August 26, 2016

Full Screen WorkBook Excel


Kode Full Screen WorkBook Excel

Letakkan Kode Pada Modul ThisWorkBook

Private Sub Workbook_Activate()
    On Error Resume Next
    With Application
        .DisplayFullScreen = True
        .CommandBars("Worksheet Menu Bar").Enabled = False
    End With
   
End Sub

Private Sub Workbook_Deactivate()
    On Error Resume Next
    With Application
        .DisplayFullScreen = False
        .CommandBars("Worksheet Menu Bar").Enabled = True
    End With
   
End Sub

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon