Ukrycie pasków narzędzi
Dim pasek As CommandBar
For Each pasek In CommandBars
If pasek.Type = msoBarTypeNormal Then
If pasek.Visible = True Then pasek.Visible = False
End If
Next pasek
Uczynienie nieaktywnym menu podręcznego na paskach poleceń
oraz polecenia Widok | Paski narzędzi
CommandBars("Toolbar List").Enabled = False
Uczynienie nieaktywnym polecenia
Narzędzia | Dostosuj
CommandBars("Worksheet Menu Bar").Controls("&Narzędzia").Controls("&Dostosuj...").Enabled = False
--
Pozdrawiam
Stanislaw |