نحوه لینک به شیت های مخفی

[kasper2000]

سلام . من یه فایل اکسل حاوی 200 شیت فرعی و یک شیت اصلی دارم که تک تک این 200 شیت به شیت اصلی لینک هستن ایا راهی وجود داره که شیت های فرعی رو مخفی کنم ولی هایپر لینکش کار کنه ؟ ممنون میشم دوستان راهنمایی کنن

[mokaram]

متوجه منظورتون نشدم شما میخوای هایپر لینک کار بکنه ولی شیت مخفی باشه؟

[komeilex]

سلام . من یه فایل اکسل حاوی 200 شیت فرعی و یک شیت اصلی دارم که تک تک این 200 شیت به شیت اصلی لینک هستن ایا راهی وجود داره که شیت های فرعی رو مخفی کنم ولی هایپر لینکش کار کنه ؟ ممنون میشم دوستان راهنمایی کنن

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

visible.xlsm

برای دیدن کدها به محیط ویژوال بیسیک برو.

[kasper2000]

ممنون که جواب دادین ولی منظورم این نبود
من یه شیت دارم که حاوی یه لیست 200 نفره است با یک سری مشخصات مثلا یکی از ستونها اسمش گواهینامه هست و برای هر نفر یه گواهی نامه توی یه شیت دیگه هست گه به شیت اصلی لینک شده یعنی هرموقه روی مشاهده کارنامه جلوی اسم هرکس بزنی کارنامش میاد حالا می خوام اون شیت های فرعی مخفی بشن ولی لینکش کارکنه . مرسی دوست عزیز

[komeilex]

تا اونجایی که من می دونم هاپرلینک تو حالتی که منبعش مخفی بشن کار نمی کنه و شما باید این کار رو با کد نویسی انجام بدی. البته فک کنم

[komeilex]

از همون ماکرو نویسی که براتون آماده کرده بودم شما می تونستی ایده بگیری تا کارت رو انجام بدی.
ببینین فایل زیر به چیزی که مد نظرتونه نزدیک هست؟

visible2.xlsm

[kasper2000]

ممنون این عالیه دارم روی این کار میکنم

[kasper2000]

سلام دوست عزیز اون مشکلو حل کردم

یه راهنمایی دیگه می خواستم اید کدو برای تاریخ انقضا فایلم وارد می کنم بدرستی هم کار میکنه
حالا دوتا سوال داشتم
1- چکار کنم که به جای بستم فایل و منقضی شدن اون کد بخواد و با وارد کردن کد برنامه به کارش ادامه بده
2 - یه شماره انداز تو شیتم بزارم که به کاربر زمان انضای فایلو اعلام کنه


کد :
Private Sub Workbook_Open()

ExpirationCode
EndSub
------------------------------------------------------
Sub ExpirationCode()
DimExpirationDate AsDate

ExpirationDate =DateSerial(2013, 5, 29)

If Now() >= ExpirationDate Then
MsgBox ("دوره آزمايشينرم افزار در تاريخ ") & CStr(ExpirationDate) & " به پايان رسيده است"
ThisWorkbook.Closesavechanges:=False
EndIf
EndSub

[khakzad]

سلام
ی تکست باکس آماده کنید واسه کد مورد نظر
بعد توی کد انقضا در ادامه if برسی تاریخ، or اضافه کنید و شرط اینکه تکست باکس غلط باشه رو اضافه کنید.
اگر هم که درست باشه، از sub خارج میشه

[komeilex]

سلام دوست عزیز اون مشکلو حل کردم

یه راهنمایی دیگه می خواستم اید کدو برای تاریخ انقضا فایلم وارد می کنم بدرستی هم کار میکنه
حالا دوتا سوال داشتم
1- چکار کنم که به جای بستم فایل و منقضی شدن اون کد بخواد و با وارد کردن کد برنامه به کارش ادامه بده
2 - یه شماره انداز تو شیتم بزارم که به کاربر زمان انضای فایلو اعلام کنه


کد :
Private Sub Workbook_Open()

ExpirationCode
EndSub
------------------------------------------------------
Sub ExpirationCode()
DimExpirationDate AsDate

ExpirationDate =DateSerial(2013, 5, 29)

If Now() >= ExpirationDate Then
MsgBox ("دوره آزمايشينرم افزار در تاريخ ") & CStr(ExpirationDate) & " به پايان رسيده است"
ThisWorkbook.Closesavechanges:=False
EndIf
EndSub

خواهش می کنم.
این طور که نشون میده سررشته ایی تو کد زدن دارید برا همین توضیحات اضافی نمی دم که سرتون رو درد بیارم
شما میتونی از User Form برای این کار استفاده کنی.
من یه فایل نمونه برات آماده کردم.
تو اون برای زیبایی کار از ترکیب چندتا User Form استفاده کردم:

expireDate.xlsm

تنها نکتش شاید این باشه که برای غیر فعال کردن دکمه Close فرم ها از کد زیر استفاده کردم که روزی از آقا مهدی یاد گرفته بودم

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If closemod = 0 Then Cancel = True End If End Sub 

برای کد امنیتی 123 را وارد کنید و اگر اشتباه وارد کنید از برنامه خارج می شید.

[kasper2000]

دوست من دستت درد نکه تازه اومدم دیدم ممنون که راهنمایی کردی