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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
