فقط خواندنی کردن سلولها

[ناصر خان خان]

درود بر دوستان و اساتید

دوستان یه سوال که برای من خیلی مهمه. نمیدونم که قبلا مطرح شده یا نه.
میخوام که بعد از تایید کردن یه سری اطلاعات در یه شیت دیگه قابل تغییر نباشه مگر دوباره با اجازه کاربر.
مثل تایید یه سند حسابداری در نرم افزارهای حسابداری.که بعد از ثبت و تایید آن دیگه تغییر پیدا نمیکنه.

مثل همیشه ممنون از زحماتتون.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Ali Parsaei]

سلام،
تأييد به چه صورت بايد باشد؟ مثلا" با فشار يک دگمه مخصوص يا ...؟ مي شود بيشتر توضيح دهيد؟
يا اينکه مثلا" مي خواهيد بلافاصله بعد از ورود اطلاعات ديگر مقادير وارده قابل تغيير نباشد ..... يا موارد ديگر!؟

[ناصر خان خان]

سلام،
تأييد به چه صورت بايد باشد؟ مثلا" با فشار يک دگمه مخصوص يا ...؟ مي شود بيشتر توضيح دهيد؟
يا اينکه مثلا" مي خواهيد بلافاصله بعد از ورود اطلاعات ديگر مقادير وارده قابل تغيير نباشد ..... يا موارد ديگر!؟

درود بر شما
بله بعد از فشردن دکمه تمامی اطلاعاتی که در آن شیت هست را read only کند بلافاصله نه در ضمن قابل برگشت هم باشد. یعنی اگر دوباره خواستیم تغییرات بدیم امکان داشته باشد. (ویرایش دوباره)

با تشکر

[Ali Parsaei]

بايد با کدنويسي اين کار انجام شود،
لينک زير را ببينيد:
لينک
البته بهتر است کد را بدينگونه بنويسيد که مفهوم تر باشد:

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ActiveSheet.Protect "123"
ToggleButton1.Caption = "ويرايش صفحه"
Else
ActiveSheet.Unprotect
ToggleButton1.Caption = "تأييد و ثبت اطلاعات صفحه"
End If
End Sub 

البته در منو REVIEW يک گزينه به نام ALLOW USERS TO EDIT RANGES هست که با تنظيم آن و سپس قفل کردن شيت مي توانيد قسمتهايي از شيت را براي يوزرهاي مختلف با کدهاي مخصوص به خودشان قابل دسترسي کنيد، شايد آن هم به دردتان بخورد.