Vba Code to disable Unhide option in menubar

[jagdish_patel]

Hi,
I am very new to get help from mrexcel.com
I want to disable Unhide option of Menubar. i got the following code for that but it is not working for me

Dim WBname As Window
Set WBname = Windows("Accounting.xlsm") 'You can use Windows("[Workbook Name]") as well
Application.CommandBars("Insert").Controls(4).Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("Format").Controls("Sheet").Controls("Unhide...").Enabled = False

even after above code unhide option is not disabled. anybody can see that window.
where i am wrong. or what is correct code.

I would be very much grateful, please anybody can help me.

 

[jagdish_patel]

I am so much exited with the help and support I am getting on this forum

 

[Jaafar Tribak]

I never tried that
I will check that too
But then I have to do that on each computer in our office
So I want to hide through vba

No. Just add this code to your workbook in the ThisWorkbook Module:

Private Sub Workbook_Open()
     Me.IsAddin = True
     Me.Save
End Sub

Or simply, without any code, set the IsAddin Property in the VBE properties window and save once.

 

[jagdish_patel]

after entering the following code, I am not able to open my macro file

Private Sub Workbook_Open()
Me.IsAddin = True
Me.Save
End Sub

it says, file format may be change or corrupted.