设置代码如下：

Dim a As String
a = InputBox("请输入密码", "提示信息")
        If a = "设置的密码" Then
        Else
            MsgBox "密码不正确，请重试！", vbInformation, "提示"
            Call btnClose_Click
            Cancel = True
            Exit Sub
        End If

将以上代码放置在主窗体的打开事件中即可.