View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming,microsoft.public.office.developer.automation,microsoft.public.office.developer.com.add_ins
Maurizio BELLANTONE Maurizio BELLANTONE is offline
external usenet poster
 
Posts: 11
Default MsgBox repeated two times (Excel COM Add-in)

Dear Sirs,
in my Excel COM Add-in, written in VB6 SP6 (Office 2003) a routine show a
form (FormPwd) in order to permit users to enter a password.
When user enter password and press OK button, FormPwd appair again (without
any apparent reason).
There is an error in my code ?
TIA,
Maurizio Bellantone

Below code I extract form my add-in:

Sub Mask_Passwd()
' Call password request form
FormPwd.TextPwd.Text = ""
FormPwd.Show vbModal 'vbModal
End Sub
'
' FormPwd code
'
Private Sub ButPwdOk_Click()
Dim i As Integer, sB As String

pwd = TextPwd.Text
sB = GetProtectPwd()
msg$ = "Wrong Password!!!"
If pwd = sB Then
Call DisabilitaProtezione
Else
i% = MsgBox(msg$, vbExclamation)
End If
FormPwd.Hide
End Sub
Private Sub ButPwdEsc_Click()
FormPwd.Hide
End Sub
'
' DisabilitaProtezione enable/disable some excel sheets and Visible property
of some excel sheets
'

================================================== =======
BELLANTONE MAURIZIO - Teacher, IT Consultant, Programmer
SPINETTA MARENGO (AL) - ITALY
---------------------------------------------------------
E-mail: bellantoneCHIOCCIOLAlibero.it
================================================== =======