network2009
شنبه 11 مهر 1388, 13:59 عصر
سلام دوستانیک فایل اکسل دارم و می خوام برای هر شیت یک پسورد بذارم
از اینترنت کد زیر رو پیدا کردم
Sub PW_Prompt()
Dim PW As String
On Error GoTo PWError
TryAgain:
PW = InputBox("Enter your password below", "Password")
If PW = "" Then Exit Sub
Select Case PW
Case "TestPW1"
Sheets(1).Visible = True
Sheets(2).Visible = True
Sheets(3).Visible = True
Case "TestPW2"
Sheets(1).Visible = True
Sheets(2).Visible = True
Sheets(3).Visible = True
Case "TestPW3"
Sheets(1).Visible = True
Case Else
GoTo TryAgain
Sheets(1).Visible = False
Sheets(2).Visible = False
Sheets(3).Visible = False
End Select
PWError:
Sheets(1).Visible = False
Sheets(2).Visible = False
Sheets(3).Visible = False
End Sub
ایا شما راه بهتری دارید نمی دونم این کد چه جوری کار می کنه
راهنمایی می کنید
با تشکر
مرسی
از اینترنت کد زیر رو پیدا کردم
Sub PW_Prompt()
Dim PW As String
On Error GoTo PWError
TryAgain:
PW = InputBox("Enter your password below", "Password")
If PW = "" Then Exit Sub
Select Case PW
Case "TestPW1"
Sheets(1).Visible = True
Sheets(2).Visible = True
Sheets(3).Visible = True
Case "TestPW2"
Sheets(1).Visible = True
Sheets(2).Visible = True
Sheets(3).Visible = True
Case "TestPW3"
Sheets(1).Visible = True
Case Else
GoTo TryAgain
Sheets(1).Visible = False
Sheets(2).Visible = False
Sheets(3).Visible = False
End Select
PWError:
Sheets(1).Visible = False
Sheets(2).Visible = False
Sheets(3).Visible = False
End Sub
ایا شما راه بهتری دارید نمی دونم این کد چه جوری کار می کنه
راهنمایی می کنید
با تشکر
مرسی