آموزش ویدئویی تعیین سطح دسترسی در اکسل با امکان ثبت تغییرات و بازگردانی آنها

[alirazavi58]

با سلام
چطور میشه در محصول خریداری شده کاری کنم که شخص نتونه روی شیت کلیک راست کنه و شیت رو کپی یا انتقال بده.کد vba منظورمه؟
ممنون میشم اگر پاسخ بدید

[reza_gh_tak]

با سلام
من این اکسل سطح دسترسی را قبلا از شما خریداری کردم من می خوام کد زیر رو در ورک بوک اجرا بشه ولی اجازه نمیده و خطا میده ممنون می شم کمکم کنید
Private Sub Workbook_Open()Application.WindowState = xlMaximized
Set myRange = ActiveSheet
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False


Dim wbBook As Workbook
Dim wsSheet As Worksheet




Set wbBook = ThisWorkbook




For Each wsSheet In wbBook.Worksheets
If Not wsSheet.Name = "Blank" Then wsSheet.Activate
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
Application.DisplayFormulaBar = False
End With
Next wsSheet
Sheet1.Select
End Sub