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

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • sara.p

    • 2016/06/01
    • 42

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

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

    • 2016/06/01
    • 42

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

    کامنت

    • Arashman

      • 2015/01/15
      • 14

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

      کامنت

      • Arashman

        • 2015/01/15
        • 14

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

        کامنت

        • Amir Ghasemiyan

          • 2013/09/20
          • 4598
          • 100.00

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

          کد:
          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

            • 2016/06/01
            • 42

            #6
            نوشته اصلی توسط 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
            ولی این نکته رو باید در نظر داشته باشید که شیت رو که قفل میکنید باید با همون رمز همیشگی قفل بشه. اگر رمز عوض بشه برنامه قطعا کار نخواهد کرد
            سلام من روی شیت موردنظر alt+f11 زدم و وارد محیط برنامه شدم و با کلیک کردن روی اسم شیت موردنظر کد رو داخل کپی کردم و به جای کلمه Password هم رمزمو نوشتم و دکمه سیو رو زدم بعد پنجره رو بستم و در داخل اکسل هیچ اتفاقی نیفتاد و باز هم شیت قابل ویرایش و دیدنه و رمز هم نمیخواد. آیا مراحل رو اشتباه رفتم؟ برای اینکه این کد فعال شه باید چیکار کنم؟

            کامنت

            چند لحظه..