درخواست پسورد با کلیک بر روی تب شیت

[~M*E*H*D*I~]

با درود

ممکن است بخواهید در یک فایل محدودیت هایی برای یک شیت خاص ایجاد کنید مثلا با کلیک بر روی نام شیت درخواست پسورد از شما شود ، در فایل پیوست کدی برای این کار نوشته شده ، با کلیک بر روی sheet2 نیاز به پسور خواهید داشت (پسورد 123 تعرف شده است)

[fari1531]

با سلام
دوست عزیز من کد رو در داخل یک work book دیگه قرار دادم و اسم شیت رو هم تغییر دادم ولی عمل نکرد
مشکل از کجاست به نظرتون؟

[fari1531]

حل شد ممنون

[nikkhah]

سلام
ببخشید یه سوال :
اگر چند شیت رو خواسته باشیم همزمان پسورد بگذاریم چگونه باید عمل کرد ؟

[Amir Ghasemiyan]

سلام
ببخشید یه سوال :
اگر چند شیت رو خواسته باشیم همزمان پسورد بگذاریم چگونه باید عمل کرد ؟

سلام
بايد يك حلقه نوشته بشه كه هر دفعه يك شيت رو بگيره بعد دونه دونه شيت ها رو رمز بذاره

[Amir Ghasemiyan]

سلام
ببخشید یه سوال :
اگر چند شیت رو خواسته باشیم همزمان پسورد بگذاریم چگونه باید عمل کرد ؟

مثلا چيزي شبيه اين :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Pwd = "" Then
For Each Sh In Worksheets
Num = ActiveWindow.Index
Windows(Num).Visible = False
If Application.InputBox("Enter Password", "Password") <> "123" Then
MsgBox "Incorrect Password", vbCritical, "Error"
Application.EnableEvents = False
Sheets(PvSh).Select
Application.EnableEvents = True
Else
Pwd = "123"
End If
Windows(Num).Visible = True
Next Sh
End If
End Sub

[syazdani]

سلام
من خیلی وارد نیستم میشه قدم به قدم به من بگین که چطوری میتونم کاری کنم که یک شیت فقط با زدن پسورد قابل دیدن باشه؟
ممنون

[khakzad]

شما وقتی شیت ها رو hide کنید و workbook رو قفل کنید.تا پسورد نزنید شیت رو نمیتونید unhide کنید.
منظورتون همین هست یا کد باید باشه؟

[Javid Mokhtari]

سلام
من خیلی وارد نیستم میشه قدم به قدم به من بگین که چطوری میتونم کاری کنم که یک شیت فقط با زدن پسورد قابل دیدن باشه؟
ممنون

با سلام.
قدم به قدم یعنی باید چند روز بهتون توضیح بدیم

[syazdani]

بله میشه بفرماییید این کارو چطوری انجام بدم؟

[syazdani]

شما وقتی شیت ها رو hide کنید و workbook رو قفل کنید.تا پسورد نزنید شیت رو نمیتونید unhide کنید.
منظورتون همین هست یا کد باید باشه؟

بله میشه بفرمایید چطور این کارو انجام بدم؟

[syazdani]

بله میشه بفرمایید چطور این کارو انجام بدم؟

البته میخوام فقط یکی از شیت هایی که hide میکنم نیاز به پسورد داشته باشه بقیه شیت ها که visible هستند پسورد نخوان

[khakzad]

دوست عزیز
یا سلهای یک شیت رو قفل می کنید یا ورک بوک رو
از هم جدا هستن
اول، سل ها در شیت های مختلفی که میخواید قفل کنید را در نظر بگیرید و با انجام تنظیمات اولیه (گذاشتن تیک lock در فرمت سل)، از تب review گزینه protect sheet رو بزنید.
تا اینجا سل ها مورد نظر قفل هستن.
حالا شیت هایی که می خواید دیده نشن رو hide کنید و بعد از همون مسیر protect workbook بزنید

[syazdani]

شما وقتی شیت ها رو hide کنید و workbook رو قفل کنید.تا پسورد نزنید شیت رو نمیتونید unhide کنید.
منظورتون همین هست یا کد باید باشه؟

workbook چطوری قفل کنم؟

[generalsamad]

با سلام
توی آفیس 2013 طبق شکل زیر