searched posts, little help, can any1 help with what I have so far?


Posted by Chad on February 05, 2002 8:06 PM

I have a couple issues I cannot solve, until now, help on the net has been ambiguous. Thanks for the assistance!
The prob:
I have a column(we'll call A) which has a title giving a choice based on the user's situation: 1,2,3, or 4. If they input 1, they get an input box which gives another 4 selections(1,2,3,4) and I wrote a code snipet that puts into B(that row). Similarly, if they entered 4 initially, a box will allow 3 choices(1,2,3) and it is input into C(that row). This is basically to prevent these users from entering in invalid data.
Of Course, it's not working. They are still manually entering data into B and C. My page is password protected. The numbers in B and C are accumulated elsewhere so if A was not 1, or 4 then no data should be in B or C. Can I protect the cells on these columns, and under the conditions 1, or 4 unprotect place corresponding response from input box there, and then protect again(using code like I've attached)?
Perhaps, highlighting the corresponding B, or C if NOT 1, or 4 was enetered in A would be easier(which would suffice)? I'm at my wits end, can any1 help?

Just 1 other simple problem I can't seem to figure - really easy I'm sure... I have data i'm copying and pasting into another workbook at next open space. Everything is wroking A-ok however, I need the date that data was sent to the other file. =today() hasn't been working becasue it copies the dang formula. & givesthe date the user is operating during. Any suggestions? Also, I CERTAINLY want to avoid manually adding the actual dates into the hundreds of files that transfer the data to this 1 universal file!

Thanks SO much in advance. I didn't know where else to turn. My university profs are no help as a resource I've discovered!

Pleasant day to all,
Chad



Posted by Chad on February 05, 2002 8:10 PM

Here is some code, can this help or is there an easier way?


Sorry, here is a little of what I've found on this messageboard.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Password As String
Dim EnteredPassword As String

Password = "Chad"
EnteredPassword = InputBox("Enter password to save changes")
If EnteredPassword <> Password Then
Cancel = True
End Sub