منع إدخال أي بيانات بخلية إكسيل سوي الإرتباط التشعبي فقط

[deebsagheer]

الإخوه الأفاضل

هل يمكن منع إدخال أي بيانات بخلية إكسيل و قصر إستخدام الخليه على الارتباط التشعبي فقط؟ و كيف؟

و إذا كان لدي هذا الكود لإظهار الصوره فكيف لو كانت TextBox18.Text تحتوي على نص و ليس فراغ أو ارتباط تشعبي فكيف أضيف شرط أن يكون التكست ارتباط تشعبي حتى تعمل جملة for

 

 

 

If TextBox18.Text = "" Then

MsgBox ("لا يوجد صوره")

Unload Me

Else:

 

For Each photo In Sheets("data").Hyperlinks

If photo.TextToDisplay = TextBox18.Text Then

photo.Follow

Exit For

End If

Next

End If

أرجو أن أكون  قد أوضحت طلبي

ملحوظه هذا الكود من أعمال أحد الأعضاء الأفاضل بعد عمل تعديل بسيط عليه

 

[الـعيدروس]

السلام عليكم

 

جرب التعديل التالي

 

Private Function Ch_he(Tn As String) As Boolean
Dim Ch As Hyperlink
For Each Ch In ActiveSheet.Hyperlinks
If Ch.TextToDisplay = Tn Then Else Ch_he = 0: Exit Function
Next
End Function
Private Sub CommandButton12_Click()
If Not Ch_he(Me.TextBox18) Then MsgBox "إرتباط غير صحيح", vbExclamation, "تنبية !!!": Exit Sub
If TextBox18.Text = "" Then
MsgBox ("لاتوجد صورة للعقد")
Unload Me
End If
For Each h In Sheets("البيانات").Hyperlinks
If h.TextToDisplay = TextBox18.Text Then
h.Follow
Exit For
End If
Next
End Sub

[deebsagheer]

شكرا للأخ عباد على الرد لكن للأسف يبدو أن هناك خطأ ما في الأكواد أو أني لم أحسن إستخدامها

حيث جميع النتائج "الارتباط غير صحيح"

تم تعديل مارس 31, 2013 بواسطه deebsagheer

[احمد عبد الناصر]

السلام عليكم

 

استاذ عباد تحياتي لك 

 

استاذ deep  تحياتي لك

 

جرب هذا التعديل

 

If Ch.TextToDisplay <> Tn Then Else Ch_he = 1: Exit Function

[deebsagheer]

تمام أستاذ أحمد

بارك الله فيك و في الأستاذ عباد