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

**fari1531** · 2015/01/11, 20:19

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

**fari1531** · 2015/01/11, 20:33

حل شد ممنون

**nikkhah** · 2015/01/11, 22:54

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

**Amir Ghasemiyan** · 2015/01/12, 01:07

نوشته اصلی توسط nikkhah

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

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

**Amir Ghasemiyan** · 2015/01/12, 21:15

نوشته اصلی توسط nikkhah

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

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

کد:

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** · 2015/04/29, 15:36

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

**khakzad** · 2015/04/29, 16:44

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

**Javid Mokhtari** · 2015/04/30, 02:54

نوشته اصلی توسط syazdani

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

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

**syazdani** · 2015/05/03, 11:35

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

**syazdani** · 2015/05/03, 11:35

نوشته اصلی توسط khakzad

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

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

**syazdani** · 2015/05/03, 11:37

نوشته اصلی توسط syazdani

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

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

**khakzad** · 2015/05/03, 13:02

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