Today's date as default value in a text box

[granty]

Hi all,

I have created a userform on excel. I want to set a textbox, so that when the form is opened it appears with todays date. and nobody should be able to amend this.

Can anyone help

thz

 

[Oorang]

Given your form name is form1 and your textbox is box1 then

Private Sub UserForm_Initialize()
box1.Value = Format(Date, "mm/dd/yy")
End Sub


Private Sub TextBox1_Change()
Box1.Value = Format(Date, "mm/dd/yy")
End Sub

 

[Von Pookie]

To set the textbox so it cannot be edited by the user, you also need to set the both the Enabled and Locked properties of the textbox to True.

That should set it so that the textbox will look "normal" (not grayed out), but the text cannot be changed.

 

[granty]

thanks guys. it works