proof of record
Password for Lock:
Dim mypassword
tryagain:
mypassword = InputBox("Are You Sure?", "Password")
If mypassword = "joshua@" Then
ActiveWindow.DisplayWorkbookTabs = Not (ActiveWindow.DisplayWorkbookTabs)
'your code here
MsgBox ("Successfully Locked")
Else
If MsgBox("Password incorrect, try again?", vbYesNo, "Wrong password") = vbYes Then GoTo tryagain
End If
ActiveSheet.Next.Activate
ActiveWorkbook.Sheets(1).Activate
Password to open
Dim mypassword
tryagain:
mypassword = InputBox("Enter Login Password", "Password")
If mypassword = "@joshua" Then
ActiveWindow.DisplayWorkbookTabs = Not (ActiveWindow.DisplayWorkbookTabs)
'your code here
MsgBox ("Successfully Locked")
Else
If MsgBox("Password incorrect, try again?", vbYesNo, "Wrong password") = vbYes Then GoTo tryagain
End If
ActiveSheet.Next.Activate
ActiveWorkbook.Sheets(1).Activate
Password for Sheet:
Sheets(1).Protect Password:="Alvina", _
UserInterFaceOnly:=True
Sheets(4).Protect Password:="Alvina", _
UserInterFaceOnly:=True
Sheets(4).Protect Password:="Alvina", _
UserInterFaceOnly:=True
Sheets(4).Protect Password:="Alvina", _
UserInterFaceOnly:=True
Sheets(4).Protect Password:="Alvina", _
UserInterFaceOnly:=True
Sheets(4).Protect Password:="Alvina", _
UserInterFaceOnly:=True
Sheets(4).Protect Password:="Alvina", _
UserInterFaceOnly:=True