Show Desktop using VBA

[pfarmer]

Is there a way via VBA to have the desktop items disappear?

The idea I have is when using an Excel form that no desktop items are visible so the user doesn't surf the net on a kiosk type of machine.

Perry

 

[Ivan F Moala]

You can also just hide the Icons on the deskTop

Option Explicit


Private Declare Function FindWindowEx _
    Lib "user32" _
        Alias "FindWindowExA" ( _
            ByVal hWnd1 As Long, _
            ByVal hWnd2 As Long, _
            ByVal lpsz1 As String, _
            ByVal lpsz2 As String) _
As Long

Private Declare Function ShowWindow _
    Lib "user32" ( _
        ByVal hwnd As Long, _
        ByVal nCmdShow As Long) _
As Long

Function DesktopIconsShow()
    Dim hwnd As Long
    hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
    ShowWindow hwnd, 5
End Function


Function DesktopIconsHide()
    Dim hwnd As Long
    hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
    ShowWindow hwnd, 0
End Function

 

[pfarmer]

You can also just hide the Icons on the deskTop

Option Explicit


Private Declare Function FindWindowEx _
    Lib "user32" _
        Alias "FindWindowExA" ( _
            ByVal hWnd1 As Long, _
            ByVal hWnd2 As Long, _
            ByVal lpsz1 As String, _
            ByVal lpsz2 As String) _
As Long

Private Declare Function ShowWindow _
    Lib "user32" ( _
        ByVal hwnd As Long, _
        ByVal nCmdShow As Long) _
As Long

Function DesktopIconsShow()
    Dim hwnd As Long
    hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
    ShowWindow hwnd, 5
End Function


Function DesktopIconsHide()
    Dim hwnd As Long
    hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
    ShowWindow hwnd, 0
End Function

I'll play with this a little bit more.

I think I figured out the set problem, will test to see if I actually did. What I think may be occurring is I already have a function that hides the buttons on the userforms title bar named the same as the one that catches the name to keep it from being hidden. This is located in the userform code so will see what occurs if I add the two together.

Perry

 

[pfarmer]

You can also just hide the Icons on the deskTop

Now to disable the Windows Key, will have to search for that one.

Perry