בקשה לקוד VBA

[נאמן למקור היחיד]

בקשה לקוד VBA

שלום
אני מחפש קוד שמבצע את הדבר הבא:

אני רוצה שבעת הזנת ערך לתא ריק זה יהיה אפשרי אולם אם כבר יש בו ערך אחר אז זה לא יהיה ניתן. במקרה כזה תקפוץ לי הודעה שיש כבר ערך אך יהיה לי אפשרות לדרוס אותה בכל זאת ע"י סיסמה.

תודה לעוזרים

 

[ziv98]

מאקרו אירוע ברמת גיליון

Public x
Private Sub Worksheet_Change(ByVal Target As Range)
o = x
If o <> "" Then
   If InputBox("cell is not empty, type password", "password") <> "1234" Then
      MsgBox "wrong password"
      Application.EnableEvents = False
      Target = o
      Application.EnableEvents = True
    End If
   End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      x = Target.Value
End Sub

 

[נאמן למקור היחיד]

איפה בקוד מופיע התא שעליו אני רוצה להכיל את ההתנייה?

 

[ziv98]

איפה בשאלה הייתה התניה בתא ???

TARGET מייצג את התא הפעיל.

 

[נאמן למקור היחיד]

משהו לא מסתדר לי

צרפתי קובץ לדוגמה ליתר בטחון.
אשמח אם תעזור לי..

 

[ziv98]

קוד

אתה יודע להכניס קוד (אפילו בהעתקה) ?
לא פתחת קוד, לא שמרת בסיומת xlsm.
אפשר להוסיף להתניות target.adrress="$C$4"

מצ"ב הקובץ.