Calling another sub is giving error

I am trying to call this procedure from another

Module1
Private Sub unProtectSheets()
On Error Resume Next
For Each Page In ActiveWorkbook.Worksheets
    Page.Unprotect Password:="accounting"
Next
End Sub

And here is how I tried to call and the resulting error:

Call module1.unProtectSheets

or

Call unProtectSheets

gives

Compile Error:
Method or Data member not found

and

unProtectSheets

gives

Compile Error:
Sub or Function not Defined

I can't figure it out.

Please and Thank You

Originally Posted by romperstomper

Change:

Private Sub unProtectSheets()

to:

Sub unProtectSheets()

That does work and prevents the error. But now that procedure now appears in the list of macros that a user can run. And that is what I am tryng to prevent.

You could add a password check to the macro. That way, when the user calls the macro via the toolbar, they need to input a password for the macro to run.

    resp = InputBox("Enter Password")
    Select Case resp
    Case "accounting":
         On Error Resume Next
         For Each Page In ActiveWorkbook.Worksheets
              Page.Unprotect Password:="accounting"
         Next
    Case Else: MsgBox "Invalid Password"
    End Select