Avatar billede martin_moth Mester
26. april 2004 - 10:17 Der 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
Avatar billede kabbak Professor
26. april 2004 - 10:22 #1
sæt dem til visible = false
Avatar billede kabbak Professor
26. april 2004 - 10:22 #2
så bliver de ikke vist, og kan således ikke ændres.
Avatar billede kabbak Professor
26. april 2004 - 10:26 #3
du kan også
locked=True
enabled = false
Avatar billede martin_moth Mester
26. april 2004 - 10:27 #4
De skal være synlige.

At låse dem virker ikke, man kan stadig klikke rundt i dem.

Så er der enabled tilbage. Og mit spørgsmål er så: Hvordan kan jeg loope over dem og sætte enabled = False?
Avatar billede kabbak Professor
26. april 2004 - 10:34 #5
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
     
    End If

  Next
  Next

End Sub
Avatar billede martin_moth Mester
26. april 2004 - 10:37 #6
Sådan!

Tillader mig at sætte

Dim OB as object
DIm B as String

Takker
Avatar billede martin_moth Mester
26. april 2004 - 10:37 #7
Smid et svar
Avatar billede kabbak Professor
26. april 2004 - 10:40 #8
et svar ;-))
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester