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

[mokaram]

دوست عزیز این موضوع دیگه ای هست که خودم به شخصه تا حالا رو این موضوع کار نکردم اما می تونید جهت راهنمایی به لینک های زیر مراجعه کنید

لینک 1

لینک 2

[AbrahamQds]

سلام بنده حدود 5 سال هستش که با اکسل کار میکنم و برنامه نویسی های زیادی انجام دادم برای اکسل. میخواستم از حضورتون بپرسم امکانش هست قبل اینکه من فایل رو خریداری کنم حد اقل تعدادی عکس از پروژه ببینم یا نسخه ویدئویی دموش رو آنلاین قرار بدید که ببینم این فایل نیاز های بنده رو برطرف میکنه یا خیر؟ با تشکر.

[Amir Ghasemiyan]

سلام بنده حدود 5 سال هستش که با اکسل کار میکنم و برنامه نویسی های زیادی انجام دادم برای اکسل. میخواستم از حضورتون بپرسم امکانش هست قبل اینکه من فایل رو خریداری کنم حد اقل تعدادی عکس از پروژه ببینم یا نسخه ویدئویی دموش رو آنلاین قرار بدید که ببینم این فایل نیاز های بنده رو برطرف میکنه یا خیر؟ با تشکر.

سلام دوست عزیز
در پست دوم ویدئوی معرفی محصول قرار داده شده

[AbrahamQds]

بله صحیح میفرمایید اما گویا بدون خرید قابل دسترسی نیست این فایل. یا حد اقل من نمیدونم کجا باید دنبالش بگردم.
گمان میکنم بهتر باشه که تصویری از محصول نهایی و فیچر هاش اگه در اختیار کاربر قرار بگیره خیلی بهتره.

[Amir Ghasemiyan]

بله صحیح میفرمایید اما گویا بدون خرید قابل دسترسی نیست این فایل. یا حد اقل من نمیدونم کجا باید دنبالش بگردم.
گمان میکنم بهتر باشه که تصویری از محصول نهایی و فیچر هاش اگه در اختیار کاربر قرار بگیره خیلی بهتره.

خير دوست عزيز ربطي به خريد كردن نداره.
عرض كردم تو همين تاپيك پست دوم. اين هم لينكش
https://forum.exceliran.com/showthre...ll=1#post70265

[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