ComboBox Schrebgeschützt
20.03.2003 11:55:45
Chris
kann mir vielleicht jemand sagen, wie ich das Makro meiner ComboBox sichern kann!
Hätte sie gerne schreibgeschützt!
Private Sub UserForm_Initialize()
Dim I As Integer
For I = 1 To 31
ComboBox2.AddItem Format(I, "00")
Next
Dim K As Integer
For K = 1 To 12
ComboBox3.AddItem Format(K, "00")
Next
Dim J As Integer
For J = 2002 To 2050
ComboBox4.AddItem (J)
Next
End Sub
Was müsste ich denn in meinem Makro ändern!?
Gruss Chris
Anzeige