Executar macro apenas num livro

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Tela cheia este código fica dentro do EstaPasta_de_Trabalho
    AppReset (True)    '<- AppRest controls Full Screen
End Sub

Private Sub Workbook_Open()
''''''''''''''''''''''''''''''''''''''''''''''''
'Show FullScreen
''''''''''''''''''''''''''''''''''''''''''''''''
    AppReset False
End Sub
Private Sub Workbook_Activate()
    AppReset (False)
End Sub
Private Sub Workbook_Deactivate()
    AppReset (True)
End Sub
'|----outra parte----|
Option Explicit
'Essecódigo fica dentro da planilha em especicamente escolhida
'para somente essa ceitar esse comando
Sub AppReset(OK As Boolean)
    Application.DisplayFullScreen = Not OK
    '  ActiveWindow.DisplayHeadings = OK
    On Error Resume Next
    Application.OnKey "{ESC}", ""
    Application.CommandBars("Full Screen").Visible = False
    On Error GoTo 0
End Sub