کانال معاونین فناوری مدارس

☢ #ترفند
✔️ #رمز_گذاری_بر_شیت_اکسل
💢 #سوال:
سلام ، وقت بخیر، در اکسل 5 تا شیت داریم در شیت اول چند تا shapes گذاشتیم میخواهیم با کلیک بر روی هرshape هایپرلینک به یک شیت شود و تا رمز ندادیم داده ها را نشان ندهد؟؟
✅ #جواب:
ابتدا در شیت اول کلیک راست کرده و گزینه view code را انتخاب میکنیم در پنجره باز شده گزینه thisworkbook را انتخاب میکنیم و با دابل کلیک پنجره workbook باز میشود از پنجره بازشده گزینه workbook را انتخاب میکنید سپس دستورفوق را تایپ نمائید.

Private sub workbook_beforclose(cancel as boolean)
Sheet(1).Select
Sheets(2).Visible = 2
Sheets(3).Visible = 2
Sheets(4).Visible = 2
Sheets(5).Visible = 2
End Sub
Private Sub Workbook_Open()
Sheets(2).Visible = 2
Sheets(3).Visible = 2
Sheets(4).Visible = 2
Sheets(5).Visible = 2
End sub
خوب با این دستورات شیت ها پنهان شد پنجره را بسته و در شیت یک بر روی یکی از shape ها کلیک راست کنید و گزینه Assign Macro را انتخاب کرده در کادر بازشده روی دکمه new کلیک کرده و دستور فوق را بنویسید
Dim k As String
k = InputBox("رمز را وارد کنید" , "ورود رمز" , "**********")
If k = "1234" Then
Sheets(2).Visible = -1
Sheets(2).Select
Else
MsgBox "رمز وارد شده صحیح نیست", "vbokonly", ""
End If
پنجره برنامه را بسته و دوباره بر روی هر کدام از shape ها کلیک راست کنید و گزینه Assign Macro را انتخاب کرده و دوباره دستوری که برای shape اول نوشتید برای shap های دیگر نیز بنویسید.حالا قبل از اینکه برنامه را اجرا کنید برنامه را با پسوند XLSM ذخیره کنید، زیرا فایل های ماکرو باید با پسوند xlsm باشد، به همین راحتی و شیرینی توانستیم برای هر sheet یک رمز بگذاریم.😉
✅ تصاویرپیوست درتکمیل آموزش هستند...
❇️ کانال معاونین فناوری واجرایی کشور
➖➖👇👇➖➖
🆔 @moavenha
🍃🌺🍃🌺🍃🌺🍃🌺