Run-time error 1004: Method Visible of object_Worksheet failed

[Badbowler]

The file has worked properly for nearly a year now but suddenly has given the run time error message and allows other users to bypass the username/passcode section. When I cliecked onthe debug button, it highlighted the Sub VisibleFalse section on line ws.Visible = xlVeryHidden - I do not know how to fix this error.

I copied/pasted the entire string of code

Sub Showme()
frmLogin.Show
End Sub

Sub Toggle()
ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs
End Sub

Sub GetSheets()
'add the sheet names to the sheet
Sheet2.Range("Q8:Q108").ClearContents
Dim i As Integer
For i = 1 To Sheets.Count
Sheet2.Range("Q" & i + 7) = Sheets(i).Name
Next i
End Sub

Sub VisibleTrue()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.Visible = True
Next ws
ActiveWindow.DisplayWorkbookTabs = True
Sheet1.Select
End Sub

Sub VisibleFalse()
Dim ws As Worksheet
GetSheets
'loop through each sheet
For Each ws In Worksheets
'use the case statement to exclude sheets by sheet name
Select Case ws.Name
'add the name of the sheets to exclude
Case "Interface"
'Case "Login"
'protect the rest
Case Else
ws.Visible = xlVeryHidden
End Select
Next ws
End Sub

[xladept]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

BTW - I tested your code for the VisibleFalse routine and it runs nicely - something else must be going on

[Syrkrasi]

Your issue seems to be within the last code

Does the worksheet Interface still exist? If so, check for spelling error(s) or trailing spaces.

[Badbowler]

Yes the worksheet Interface still exists - I checked it for spelling errors and trailing spaces & it was good. The one thing I did notice is someone accidentally protected the workbook so I'm not sure if that has now overridden the VBA & the person does not remember what password they used....

[Syrkrasi]

Yes. The error can be produced if the workbook is password protected.

Unfortunately, this has turned into a password protection issue, and I must inform you that we will not be able to assist you further since it would not comply with Rule 11 of the Forum RULES.

[Badbowler]

Thank you all very much for assisting me.I appreciate any help I can get since I am not an expert in this area.

[Syrkrasi]

If that takes care of your original question, please select Thread Tools from the menu link above your original post and mark this thread as SOLVED. Thanks.

[xladept]

You're welcome and thanks for the rep!