26. april 2004 - 10:17Der er
7 kommentarer og 1 løsning
VBA Excel: Disable alle kontroller (optionbuttons)
Jeg har et ark med en masse kontroller (optionbuttons)
Jeg har fået hjælp til at loope over alle kontrollerne så jeg kan aflæse dem:
Dim OB As Object For Each OB In ActiveSheet.Shapes If OB.Type = 12 Then ' = Shapes Msgbox "Dette er option med navn: " & OB.Name End If Next OB
Men hvordan disabler jeg dem?
Meningen med det hele er, at de ikke skal kunne ændres, og den eneste måde jeg kan finde på er at disable dem. Det hjælper ikke at sætte locked=True, og det hjælper heller ikke at proctete hele arket i Excel.
Så - hvordan disabler jeg dem? Eller endre gode ideer til at "låse" dem så de ikke kan ændres
Public Sub DisableOB() For Each Ws In Worksheets Sheets(Ws.Name).Select For Each OB In Sheets(Ws.Name).Shapes B = OB.Name If OB.Type = 12 Then ' = optionbuttons ActiveSheet.OLEObjects(B).Object.Enabled = False
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.