Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why does this code not create a button when called???
I have this code for creating a toggle button to turn events on and off,
i call on this sub (Call en) in a procedure that says if the admin password is ???? then with the application show command bars end with and after that i use Call en it does not fault but it does not create a button on the command bar, any ideas?? Simon. Here's all the code im using Sub en() Dim c As Variant On Error Resume Next With Application CommandBars.ActiveMenuBar.Enabled = True For Each c In .Controls If c.Caption = "EN" Then c.Delete Next c Controls.Add Type:=msoControlButton, Id:=2950, befo=1 Controls(1).Caption = "EN" Controls(1).TooltipText = "Enable Events" Controls(1).OnAction = ThisWorkbook.Name & "!enevents" Controls(1).Style = msoButtonCaption Worksheets("hidden").Visible = True End With End Sub Private Sub TextBox1_Change() If TextBox1.Text = "????" Then With Application CommandBars.ActiveMenuBar.Enabled = True End With Call en ElseIf TextBox1.Value < "????" Then Exit Sub End If Unload Me 'Me.Hide End Sub Sub enevents() Application.EnableEvents = Not Application.EnableEvents End Sub --- Message posted from http://www.ExcelForum.com/ |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to create a form to insert a hyerlink.VBA code to create a for | Excel Discussion (Misc queries) | |||
Returning From VBA Event Code Called From Excel 4.0 Macro | Excel Programming | |||
Help! Code jump to function with out being called??? | Excel Programming | |||
Save Event - Determine if called by code or user | Excel Programming | |||
Create Command Button from Code | Excel Programming |