04. august 2004 - 14:50Der er
1 kommentar og 1 løsning
Låse en tekstbox
Jeg har et område på mit ark hvor man må redigere i, dvs ændre tekst i celler sætte rammer på celler o. lign. Men jeg har også en række textboxes, som jeg indsætter på flg måde: ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, punktLeft, punktTop, 15, textboxLaengde)
men er det muligt at man kan låse alle textboxe på arket, også dem som er i det område man eller godt må redigere i ?
Samme spm har jeg til linier, som jeg indsætter på flg måde: ActiveSheet.Shapes.AddLine(Ark1.Cells(i, j).Left, Ark1.Cells(i, j).Top - e, Ark1.Cells(i2, j2 + 1).Left, Ark1.Cells(i2, j2).Top - e).Select
For Each ws In Worksheets For Each ob In Sheets(ws.Name).Shapes B = ob.Name If LCase(Left((ob.Name), 7)) = "textbox" Then ob.Locked = True MsgBox ob.Name & " er blevet låst i arket " & ws.Name End If Next Next
Jeg ved ikek hvad du mener med at "låse en linie" ?
For Each ws In Worksheets For Each ob In Sheets(ws.Name).Shapes If LCase(Left((ob.Name), 7)) = "textbox" Then ob.Locked = True MsgBox ob.Name & " er blevet låst i arket " & ws.Name End If Next ob Next ws
Synes godt om
Ny brugerNybegynder
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.
