قفل کردن شیت با رمز عبور برای پنهان کردن محتویات شیت

[sara.p]

سلام
آیا میشه توی فایلی که چند شیت مختلف داره مثلا از شیت 1 تا شیت 5 شیتهای خاصی که مد نظرمون هست رو با پسوردهای جداگانه قفل کنیم طوری که اسم شیت معلوم هست ولی محتویاتش نشون داده نمیشه اما باقی شیتها معلوم و قابل مشاهده و ویرایش هستن، مثلا فقط شیت 1 و 4 قفل بشن و کاربری که میخواد اون شیتها رو ببینه و ویرایش کنه رمز عبور وارد کنه تا محتویات شیت براش قابل رویت باشه. نمیدونم به صورت معمولی هم میشه این کار رو کرد یا حتما باید از طریق ویژوال بیسیک این کار رو کرد. لطفا یک فایل نمونه برام تهیه کنید و البته به صورت مو به مو برام توضیح بدید که چی به چیه و چیکار کردید و چطور میتونم خودم یکی بسازم و رمزهارو تغییر بدم. من خودم هیچی از کد نویسی بلد نیستم و سر در نمیارم. عاجزانه ازتون کمک میخوام.
با تشکر.

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

[sara.p]

چرا کسی جواب نمیده؟

[Arashman]

روش VBA من بلد نیستم
ولی با protect sheet معمولی میتونی اینکارو انجام بدی. اون سطر یا ستونهارو hide کنی بعد protect کنی
یا اصلا sheet رو hide کنی

[Arashman]

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

[Amir Ghasemiyan]

سلام دوست عزیز
شما میتونین با قرار دادن این کد در همه شیت ها به خواستتون برسید

Private Sub Worksheet_Activate()
If ActiveSheet.ProtectContents = True Then
    ActiveSheet.Unprotect "Password"
    Cells.EntireColumn.Hidden = True
    ActiveSheet.Protect "Password"
Else
    Cells.EntireColumn.Hidden = False


End If
End Sub

ولی این نکته رو باید در نظر داشته باشید که شیت رو که قفل میکنید باید با همون رمز همیشگی قفل بشه. اگر رمز عوض بشه برنامه قطعا کار نخواهد کرد

[sara.p]

سلام دوست عزیز
شما میتونین با قرار دادن این کد در همه شیت ها به خواستتون برسید

Private Sub Worksheet_Activate()
If ActiveSheet.ProtectContents = True Then
    ActiveSheet.Unprotect "Password"
    Cells.EntireColumn.Hidden = True
    ActiveSheet.Protect "Password"
Else
    Cells.EntireColumn.Hidden = False


End If
End Sub

ولی این نکته رو باید در نظر داشته باشید که شیت رو که قفل میکنید باید با همون رمز همیشگی قفل بشه. اگر رمز عوض بشه برنامه قطعا کار نخواهد کرد

سلام من روی شیت موردنظر alt+f11 زدم و وارد محیط برنامه شدم و با کلیک کردن روی اسم شیت موردنظر کد رو داخل کپی کردم و به جای کلمه Password هم رمزمو نوشتم و دکمه سیو رو زدم بعد پنجره رو بستم و در داخل اکسل هیچ اتفاقی نیفتاد و باز هم شیت قابل ویرایش و دیدنه و رمز هم نمیخواد. آیا مراحل رو اشتباه رفتم؟ برای اینکه این کد فعال شه باید چیکار کنم؟