Probleem met het activeren van een submenu

[Webster18]

Hoi,

Ik hoop dat jullie mij nog eens kunnen verder helpen.
Voor mijn applicatie heb ik een custom menubalk gemaakt met menuonderdelen en submenuonderdelen.

Een van de submenuonderdelen staat uitgegrijsd (enabled=false) en mag pas actief worden na het invoeren van een paswoord. Hieronder mijn code.

Ik loop vast bij het enabelen van het submenu, ik krijg een Run Time Error "invalid procedure call"

Wat kan er mis zijn?

Private Sub CommandButton1_Click()

Dim Passw As String

Passw = Worksheets("General Info").Range("M111").Text
If LoginServ.Textpassw.Value = Passw Then
  MsgBox "Password Accepted", vbOKOnly
  Worksheets("General Info").Range("M112").Value = 1
  CommandBars("ATPxMenu").Controls("Help").Controls("Servicemode").Enabled = True
Else
  MsgBox "Invalid Password", vbCritical + vbOKOnly
End If
LoginServ.Hide

End Sub

 

[Hoornvan]

Webster18,

"invalid procedure call"

Ik kan hem hier niet testen, heb geen server.
Volgens mij zoals de melding aan geeft zit in die regel de fout.
Je roept niet de goede procedure aan.

 

[snb]

Het userform heet LoginServ ?

Private Sub CommandButton1_Click()
  Hide
  With Sheets("General Info").
    If Textpassw.Text = .Range(M111").Text Then
      .[M112]).Value = 1
      Application.CommandBars("ATPxMenu").Controls("Help").Controls("Servicemode").Enabled = True
    End if
    MsgBox iif(.[M112].Value =1,"Password Accepted","Invalid Password"),   vbOKOnly +iif(.[M112].Value =1,vbCritical,0) 
  End With
End Sub

Het gaat mis als de knop zich niet op de door jou opgegeven plaats bevindt.

 

[Webster18]

Het userform heet LoginServ ?

Inderdaad. En de opgegeven suggestie werkt niet.

Het hoofdmenu heeft een topic "help" en hieronder een topic "ServiceMode". Het probleem lijkt te zijn dat na de eerste "controls" geen tweede wordt geacepteerd.

 

[snb]

Plaats eens een schermafdruk van die werkbalken.
Dat idee van onderliggende controls klopt in ieder geval niet.

 

[Webster18]

Opgelost

Hoi,

Bedankt snb. Je opmerking heeft me aan het denken gezet (dat met die controls..).
Heb alles nog eens goed nagekeken en plots gezien dat er tussen ATPx en Menu een spatie moest staan

Tsja, dan stopt het natuurlijk.
En dan te bedenken dat ik er al zeker twintig keer had overgekeken.

Maar het allerbelangrijkste is natuurlijk dat het werkt. Erg bedankt nogmaals.