CommandBars.Visible = False
Application.CommandBars.Visible = False выдает ошибку, что процесс Visible failed...
Application.CommandBars("Worksheet Menu Bar").Visible = False - аналогично!!!!
:{
Так может ее и нельзя убрать то... честно говоря никогда не было такой необходимости
Private Sub NoMoreCommandBarHere()
'отключаем всё меню
'объявим переменную
Dim CmdBar As CommandBar
For Each CmdBar In CommandBars
If CmdBar.Enabled = True Then
CmdBar.Enabled = False
End If
Next
End Sub
выдрано с: http://www.codenet.ru/progr/vbasic/vbapp/2.php
там же и друга фигня
Private Sub NoMoreCommandBarHere()
'отключаем всё меню
'объявим переменную
Dim CmdBar As CommandBar
For Each CmdBar In CommandBars
If CmdBar.Enabled = True Then
CmdBar.Enabled = False
End If
Next
End Sub
Работает или нет - еще не проверял!.. Но заранее спасибо!!!;)
Все работает!! Спасибо... :}
хррррррр....
если б у меня на работе, кто-то решился на такой изврат - руки бы нафиг поотрывал и навечно отлучил бы от компа 8)
Вспомнил, с годик назад видел такой прикол-шутка для Excel'я - когда макрос отключает все меню, панели, даже сетку... вообщем грузится один белый чистый лист в обрамлении рамки окна с названием Excel :)
Мне примерно такой эффект и нужен. Просто в книге должна быть вступительная страничка, где пишется всякая чушь для юзера. Вот и надо сделать ее покрасивей. Уже сделал!:P
Кстати может кто-нибудь знает как отключить курсор?? То есть что-бы ничо не выделялось??!
включи защиту листа, тогда все ячейки (кроме тех которых хочешь) нельзя будет выделить (опять же настроить можно по разному)
Спасибо :D