[حل شده] غیر فعال کردن دگمه Button1_Click

[jeddi]

با عرض سلام و خدا قوت به همه دوستان و اساتید محترم
برای غیر فعال سازی دگمه ماکرو Button1_Click از چه روشی می تونم استفاده کنم ؟
برای دگمه CommandButton به شکل زیر استفاده میشه
CommandButton1.Enabled = False
برای غیر فعال سازی دگمه ماکرو Button1_Click چکار باید کرد مرسی

[میثم مقدم نیا]

با عرض سلام و خدا قوت به همه دوستان و اساتید محترم
برای غیر فعال سازی دگمه ماکرو Button1_Click از چه روشی می تونم استفاده کنم ؟
برای دگمه CommandButton به شکل زیر استفاده میشه
CommandButton1.Enabled = False
برای غیر فعال سازی دگمه ماکرو Button1_Click چکار باید کرد مرسی

سلام

حدس می زنم این چیزی که شما به دنبال آن هستید:
این کد را برای کلید وارد کنید

Sub Button1_Click()
  DisableButton Sheet1, "Button 1"
End Sub 

و این کد را هم توی ماژون وارد کنید

Sub DisableButton(hostSheet As Worksheet, shapeName As String)
  Dim shp As Shape
  On Error Resume Next
  Set shp = hostSheet.Shapes(shapeName)
  On Error GoTo 0
  If Not shp Is Nothing Then
    With shp
      If .Type = msoFormControl Then
        .OnAction = ""
        .DrawingObject.Font.ColorIndex = 16
      End If
    End With
  End If
End Sub 

امید وارم که درست باشه و کار شما راه بیفته
در پایین هم یک فایل نمونه براتون پیوست کردم

[jeddi]

سلام دوست عزیزم آقای مقدم نیا
خیلی ممنونم از پاسخ "عالی بود"
چطور می تونم همین کلید غیر فعال شده را با کد، فعالش کنم ؟ منظورم نمونه فایل نیست با کد های ذکر شده در بالا مرسی

[میثم مقدم نیا]

سلام دوست عزیزم آقای مقدم نیا
خیلی ممنونم از پاسخ "عالی بود"
چطور می تونم همین کلید غیر فعال شده را با کد، فعالش کنم ؟ منظورم نمونه فایل نیست با کد های ذکر شده در بالا مرسی

سلام شرمنده دیر جواب دادم
لطفاً فایل پیوست را ملاحضه فرمایید