HIDE ITEM PROTECTION IN TOOLBAR

[verluc]

I wonder if there is a possibility to hide the item protection in the toolbar,by opening workbook?
Any idea?
Thanks

 

[KniteMare]

OK

Thanks for the answer. I'll brows the link you left.

Yours in EXCELent Frustration

KniteMare

If it was eazy everyone would be doing it.

 

[XL-Dennis]

Hi,

The use of ID-numbers for controls override heavy problem when working with different language-versions

The method FindControls is depended on ID-numbers.

Following code shows how to list ID-numbers.
(It´s swedish inspired but hopefully You see what You can do.)

<pre>
Sub Lista_Alla_Verktygsfält_Kontrollers_NamnIDnr()
Dim cbVFalt As CommandBar
Dim cbKontroll As CommandBarControl
Dim RnCell As Range

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With


On Error Resume Next

With ActiveWorkbook
.Worksheets("Menynamn och ID-nummer").Delete
.Worksheets.Add
End With

ActiveSheet.Name = "Menynamn och ID-nummer"

Set RnCell = Range("A1")

For Each cbVFalt In Application.CommandBars
With RnCell
.Font.Bold = True
.Value = cbVFalt.NameLocal & " " & "ID-nr:" & cbVFalt.Index
End With
For Each cbKontroll In cbVFalt.Controls
Lista_Kontroller RnCell, cbKontroll
Next cbKontroll
Next cbVFalt
Columns("A:B").EntireColumn.AutoFit

With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With

End Sub

Sub Lista_Kontroller(rnMal As Range, cbKontroll As CommandBarControl)
Dim cbKontroller As CommandBarControl
On Error GoTo Felhantering:

Set rnMal = rnMal(2, 1)

rnMal.Value = cbKontroll.Caption
rnMal(1, 2).Value = cbKontroll.ID

For Each cbKontroller In cbKontroll.Controls
Lista_Kontroller rnMal, cbKontroller
Next cbKontroller

Felhantering:
End Sub
</pre>

Kins regards,
Dennis

 

[KniteMare]

Dennis,

OK, I see what this is doing. I'll give it an american-english language translation for the variable and sheet names and run it here.

Thanks

Yours in EXCELent Frustration

KniteMare

In my mind I am already on Vacation, with an option to retire.