在Excel中禁用自定义功能

Question

I have created a custom function that I am using excplicitly in another module in VBA. Function looks something like this:

Function Coverts(ByVal inputString As String) As String
   'Coverts code here
End Function

It works perfectly fine in both VBA and Excel UI. However, I do not want it to work or appear in Excel UI as I only want to use it in VBA. Is there a way to do this?

Thanks

Answer 1

Put

Option Private Module

at the top of the module containing your function.

---

From MSDN :

When a module contains Option Private Module , the public parts, for example, variables, objects, and user-defined types declared at module level, are still available within the project containing the module, but they are not available to other applications or projects.

Answer 2

you can add the keywords Public or Private to your functions, subs or global variable to have that specified.

so if you want to only want this function to be accessible by your code and not in excel sheets you can add private:

Private Function Coverts(ByVal inputString As String) As String
   'Coverts code here
End Function

Answer 3

You can make the function inoperable if called from the worksheet by identifying the Application.Caller . If called as a function from the XL UI, this will be Range (ie the cell the function is within).

Function Coverts(ByVal inputString As String) As String

   If TypeName(Application.Caller) = "Range" then
      Coverts = cverr(xlerrna)
      exit function
   end if

   'Coverts code here

End Function