04. august 2004 - 14:50
Der 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
13. august 2004 - 10:23
#1
Lås alle textboxe:
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" ?
13. august 2004 - 10:24
#2
Drop B = ob.Name
Skal se således ud
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
