en el CommandButton agregar el siguiente codigo:
Private Sub CommandButton1_Click()
Dim USERNAME, PASWORD As String
USERNAME = TextBox1.Text
PASWORD = TextBox2.Text
If USERNAME = "FORMULARIOS" And PASWORD = "DIAN" Then
MsgBox "CONTRASEÑA CORRECTA", vbInformation
Unload Me
Else
MsgBox "CONTRASEÑA INCORRECTA", vbCritical
ActiveWordBook.Close
End If
End Sub


Pero para que muestre esto tan pronto se abra el archivo se debe pegar lo siguiente en el WorkBook
ResponderEliminarPrivate Sub Workbook_Open()
UserForm1.Show
End Sub