Ventana.SetFocus
 

Private Declare Function SetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Private Sub Command1_Click()
    Focus "escritorio"
End Sub
 
Private Sub Focus(titulo$)
Dim hwndventana&
hwndventana = FindWindow(vbNullString, titulo)
If hwndventana <> 0 Then
    ShowWindow hwndventana, 1
End If
End Sub
 

Private Sub Command1_Click()
On Error GoTo Error
Dim Archivo$
Archivo = "c:\documento.doc"
If Dir$(Archivo) = "" Then Exit Sub
Dim Word As Object, Docu As Object
Set Word = CreateObject("Word.Application")
Set Docu = Word.Documents.Open(Archivo, , , , "1234")
Word.Documents.Close
Set Word = Nothing
Set Docu = Nothing
MsgBox "Password Correcto"
Exit Sub
Error:
If Err.Description <> "" Then
    MsgBox "Password Incorrecto"
End If
End Sub
 

Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
 
Private Sub Form_Load()
    SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, &H1 Or &H2
End Sub
 

Set Documento = ObjPowerPoint.presentacion.Open(Archivo, , , , "1234")'--> Error
 
ObjPowerPoint.presentacion.Close 'Cerrando el objeto
 

Set Documento = ObjPowerPoint.Presentations.Open(Archivo, , , , "1234")'--> Error
 
ObjPowerPoint.Presentations.Close 'Cerrando el objeto