I have you a challenge. I asked ChatGPT to write Access VBA code to close all open programs (pdfs, word, excel, notepad, etc)  EXCEPT Access.  The following is what I was given, but was hoping someone would look at it before I excute it to see if they see any red flags.  

Option Explicit

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long

Const WM_CLOSE = &H10
Const GW_HWNDNEXT = 2
Const GW_CHILD = 5

Sub CloseOtherPrograms()
    Dim hWnd As Long
    Dim wndTitle As String
    
    ' Get the handle of the Access application window
    Dim accessHWnd As Long
    accessHWnd = FindWindow("OMain", Application.Caption)
    
    ' Loop through all top-level windows
    hWnd = GetWindow(Application.hWndAccessApp, GW_CHILD)
    Do While hWnd <> 0
        ' Skip the Access application window
        If hWnd <> accessHWnd Then
            ' Get the window title
            wndTitle = GetWindowCaption(hWnd)
            ' Close specific programs except Access
            Select Case GetProcessName(wndTitle)
                Case "Acrobat" ' Adobe Acrobat (PDF)
                    PostMessage hWnd, WM_CLOSE, 0&, 0&
                Case "WINWORD" ' Microsoft Word
                    PostMessage hWnd, WM_CLOSE, 0&, 0&
                Case "EXCEL"   ' Microsoft Excel
                    PostMessage hWnd, WM_CLOSE, 0&, 0&
                Case "Notepad" ' Notepad
                    PostMessage hWnd, WM_CLOSE, 0&, 0&
            End Select
        End If
        ' Move to the next window
        hWnd = GetWindow(hWnd, GW_HWNDNEXT)
    Loop
End Sub

Function GetProcessName(windowTitle As String) As String
    Dim processName As String
    processName = Split(windowTitle, " - ")(0)
    GetProcessName = Trim(processName)
End Function

Function GetWindowCaption(hWnd As Long) As String
    Dim captionLength As Long
    Dim caption As String
    captionLength = GetWindowTextLength(hWnd) + 1
    caption = Space(captionLength)
    GetWindowText hWnd, caption, captionLength
    GetWindowCaption = Left(caption, captionLength - 1)
End Function