• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Besturingselementen = enabled

Status
Niet open voor verdere reacties.
W

wieter

Terugkerende gebruiker
Lid geworden
26 jun 2009
Berichten
1.128
Alle besturingselementen zijn van de ActiveX-reeks.
Ik probeer de rode regels uit onderstaande code te vervangen door 1 regel.
Code: 
Sub Begin()
[COLOR="#FF0000"]Sheets(1).OptionButton1.Enabled = True
Sheets(1).OptionButton2.Enabled = True
Sheets(1).OptionButton3.Enabled = True
Sheets(1).ComboBox1.Enabled = True
Sheets(1).CommandButton1.Enabled = True
Sheets(1).CommandButton2.Enabled = True
Sheets(1).CommandButton3.Enabled = True
Sheets(1).CommandButton4.Enabled = True[/COLOR]
ActiveWindow.DisplayWorkbookTabs = True
Sheets(1).Unprotect "neil"
Sheets(2).Unprotect "neil"
End Sub
Met volgende code:
Code: 
Sub Begin()
Sheets(1).OLEObjects("OptionButton1", "OptionButton2", "OptionButton3", _
        "ComboBox1", "CommandButton1", "CommandButton2", "CommandButton3", "CommandButton4").Object.Enabled = True
ActiveWindow.DisplayWorkbookTabs = True
Sheets(1).Unprotect "neil"
Sheets(2).Unprotect "neil"
End Sub
Dit werkt echter niet.
Wie weet de oplossing?
 
Bv.
Code: 
dim oleobj
for each oleobj in array("OptionButton1", "OptionButton2", "OptionButton3", _
        "ComboBox1", "CommandButton1", "CommandButton2", "CommandButton3", "CommandButton4")
 Sheets(1).OLEObjects(oleobj).Object.Enabled = True
next oleobj

Als het de enige objecten in het werkblad zijn kan het korter.
Code: 
dim oleobj as oleobject
 for each oleobj in sheets(1).oleobjects
  oleobj[COLOR="#0000FF"].object[/COLOR].enabled = true
  next oleobj
 
Laatst bewerkt:
Zou dit werken?
Code: 
Sub Begin()
For Each Obj In Sheets(1).OLEObjects
 OLEObject = True
Next

Sheets(1).Unprotect "neil"
Sheets(2).Unprotect "neil"
End Sub
 
Zo ?
Code: 
    Blad1.OLEObjects(Array("OptionButton1", "OptionButton2", "OptionButton3", "ComboBox1", "CommandButton1", "CommandButton2", "CommandButton3", "CommandButton4")).Enabled = False
 
Netjes @Jack. :thumb:
 
Thx Harry!
Als dat de enigste objecten zijn
Code: 
Blad1.OLEObjects.Enabled = True
 
Bedankt allen voor de reacties.
Het zijn niet de enige objecten, de overige moeten altijd enabled blijven.
Groeten wieter
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan