PDA

View Full Version : کمک



network2009
شنبه 11 مهر 1388, 14: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

ایا شما راه بهتری دارید نمی دونم این کد چه جوری کار می کنه
راهنمایی می کنید
با تشکر
مرسی