چگونه میتوان شیتهای یک فایل مشترک را رمز گذاری کرد؟

[poya2200]

با سلام
من یعضو جدید هستم که بر حسب اتفاق با سایت جالب شما برخورد کردم
سوال من اینه که یک فایل با چندین شیت مختلف با چند کاربر مختلف دارم و نمی خواهم برخی از کاربران به شیتهای بخصوصی دسترسی داشته باشند .
چه باید کرد؟
با تشکر:heart:

[s.cheraghi]

با سلام
اگه روی اسم هر شیت کلیک راست کنی و گزینه Protect sheet بزنی، با تعیین رمزهای مختلف برای هر کدوم می تونی دسترسی به شیت ها رو محدود کنی

[MEYTI]

با سلام دوست عزیز اگه بخوای با VB اینکارو انجام بدی
فایل پیوست میتونه کمکت کنه

http://up98.org/upload/server1/02/j/32clc131dph9u3cfxzq.zip

http://uploadfa.net/uploads/13380371301.zip

[daghyad]

سلام با کد زیر می تونید کل شیت ها رو protect و کل شیت ها روunprotect کنی:

Sub ProtectAll()
Dim sh As Worksheet
Dim myPassword As String
myPassword = "password"

For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:=myPassword
Next sh

End Sub

Sub UnrotectAll()
Dim sh As Worksheet
Dim myPassword As String
myPassword = "password"

For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:=myPassword
Next sh

End Sub[hr]
میشه یه فرم طراحی کرد و با یک پسورد فرم را دیگه ای را ظاهر کرد و عملیا ت فوق را انجام داد