Running A Password Protected Macro Remotely

I have a macro in a workbook (good start) as follows:

Sub UnhideSheets()

' Set to Auto Calc mode

With Application
.Calculation = xlAutomatic
End With

' Asks for a password (must be "unhider")

Dim mypass, response As String

mypass = Application.InputBox("This macro requires you to enter a password to proceed." & vbCrLf & "Please enter password below.")

' If password is correct

If LCase(mypass) = "unhider" Then

' Unhides all sheets

Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next i

' Then tells you that all is OK

response = MsgBox("All sheets unhidden", 0, "Macro run")

' Otherwise

Else

' Tells you that there is a problem (Unauthorised to continue)

response = MsgBox("Sorry, you are not authorised to use this macro.", 16, "Macro stopped")

' hides the sheet again

Sheets("BSG Only!").Visible = xlHidden
Sheets("CC07").Activate

' And ends the "if"

End If

End Sub
This unhides the "very hidden" sheets that make the book work and is password protected because I want to limit the people who can see this data.

What I would like to do, however, is call this macro remotely from another procedure in a separate book, which can only be accessed by those who are authorised to see the hidden data.

Essentially, then, my question is: "How do I call the protected procedure without the user having to enter the password each time, as they must be authorised to have access to the procedure that calls the protected procedure?"