Я использую такой код:  
 
Private Sub B_Transpar_Click()  
   If Me.B_Transpar.Value Then  
       Dim transpar As Integer: transpar = 155 ' для примера  
       If transpar > 30 And transpar < 256 Then SetTransparent FindWindow(vbNullString, Me.Caption), CByte(transpar)  
   Else  
       SetVisible FindWindow(vbNullString, Me.Caption), 255  
   End If  
End Sub  
 
 
Public Function SetTransparent(hWnd As Long, Layered As Byte) As Boolean    'регулирует прозрачность формы  
   On Error GoTo 1    'hWnd - манипулятор окна, Layered - степень прозрачности от 0 до 255  
   Dim Ret As Long: Ret = GetWindowLong(hWnd, GWL_EXSTYLE)    'Определяем стиль нужного окна  
   Ret = Ret Or WS_EX_LAYERED    'Задаём стиль окна как заслоённый  
   SetWindowLong hWnd, GWL_EXSTYLE, Ret  
   SetLayeredWindowAttributes hWnd, 1, Layered, LWA_ALPHA    'Задём степень прозрачности окна  
   SetTransparent = True: Exit Function  
1   beepL  
   Exit Function  
End Function  
 
Public Function SetVisible(hWnd As Long, Layered As Byte) As Boolean    'возвращает видимость форме  
   On Error GoTo 1    'hWnd - манипулятор окна, Layered - степень прозрачности от 0 до 255  
   SetWindowLong hWnd, GWL_EXSTYLE, 257    'Задаём стиль окна как незаслоённый (возвращаем прежнее значение)  
   SetLayeredWindowAttributes hWnd, 1, Layered, LWA_ALPHA    'Задём степень прозрачности окна  
   SetVisible = True: Exit Function  
1   beepL  
   Exit Function  
End Function

Спасибо огромное, я попробовал чуть видоизменить код, чтобы разместить код в модуле листа и запускать макрос при инициализации либой формы в документе, для этого создал переменную, которой присваиваю имя запускаемой формы Per = Me.Name  
и далее использую в макросе TransEnab  
hWnd = FindWindow(vbNullString, Per.Caption)  
Но так как ламер, что-то делаю не так, посмотрите пожалуйста файл.

Сделал как Вы сказали, ошибку теперь не выдает, но и форма прозрачной не становится.  
 
Private Sub UserForm_Initialize()  
   Per = Me.Caption  
   Call TransEnab  
End Sub  
 
Const LWA_ALPHA = &H2, GWL_EXSTYLE = (-20), WS_EX_LAYERED = &H80000  
 
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _  
(ByVal hWnd As Long, ByVal nIndex As Long) As Long  
 
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _  
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long  
 
Public Declare Function SetLayeredWindowAttributes Lib "user32" _  
(ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, _  
ByVal dwFlags As Long) As Long  
 
Public Declare Function GetActiveWindow Lib "user32" () As Long  
 
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _  
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long  
 
Sub TransEnab()  
   Dim aStyle As Long  
   Dim Transparent As Byte  
   Transparent = 200  
   hWnd = FindWindow(vbNullString, Per)  
   aStyle = GetWindowLong(hWnd, GWL_EXSTYLE)  
   aStyle = aStyle Or WS_EX_LAYERED  
   Call SetWindowLong(hWnd, GWL_EXSTYLE, aStyle)  
   Call SetLayeredWindowAttributes(hWnd, 0, Transparent, LWA_ALPHA)  
End Sub

Еще один коротенький вопрос, как в макрос задания прозрачности вставить код закрытия соответствующей формы?  
Sub TransEnab()  
Dim aStyle As Long  
Dim Transparent As Byte  
Transparent = 200  
hWnd = FindWindow(vbNullString, Per)  
aStyle = GetWindowLong(hWnd, GWL_EXSTYLE)  
aStyle = aStyle Or WS_EX_LAYERED  
Call SetWindowLong(hWnd, GWL_EXSTYLE, aStyle)  
Call SetLayeredWindowAttributes(hWnd, 0, Transparent, LWA_ALPHA)  
 
Unload .... (ни Me ни Per не подходит)  
 
End Sub

Вроде должно быть как-то просто: нужно в коде формы переменной присвоить данные этой формы (имя или что-то еще), а в коде модуля закрыть эту форму с помощью этой переменной.  
Но я не могу понять как?

Вот что в итоге получилось.  
Может этот файл в копилку примеров?  
В нем сразу несколько вариантов решений:  
1. Запрет закрытия формы по крестику;  
2. Запрет перемещения формы;  
3. Открытие формы с заданной прозрачностью;  
4. Закрытие формы с эффектом затухания;  
 
5. Еще бы добавить открытие формы с проявлением - тогда полный набор, у меня не получилось.

Класс, я как раз думал чтобы еще такого из красивостей можно было сделать и вот готовый вариант.

Спасибо, Slav, оказалось так все просто.  
Результат во вложении.

Вариант.