من داشتم يک سري کد را در فايلهايم امتحان مي کردم که کلا" راست کليک روي سلها و شيت هايم غير ممکن شده، توي کل اکسل! حالا چکارکنم؟
کدهايي که روش کار مي کردم اينها بود: (سه تا کد)
کد:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "No RightClick"
Cancel = True
End Sub
---------------------------------
Private Sub Workbook_Open()
Application.CommandBars("cell").Enabled = False
End Sub
---------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("cell").Enabled = True
End Sub
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)