سلام دوستانیک فایل اکسل دارم و می خوام برای هر شیت یک پسورد بذارم
از اینترنت کد زیر رو پیدا کردم
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
ایا شما راه بهتری دارید نمی دونم این کد چه جوری کار می کنه
راهنمایی می کنید
با تشکر
مرسی