Скрыть или отключить кнопку, если лист защищен

Для моей формы мне нужно скрыть или отключить текстовое поле с прикрепленным к нему макросом удаления при нажатии, когда лист защищен. Я говорю о встроенной системе защиты от Excel. Я просмотрел несколько руководств, но я не могу заставить его работать правильно. Я попробовал несколько вещей, в том числе это:Скрыть или отключить кнопку, если лист защищен

If ActiveSheet.ProtectContents = True Then 
    TextBox1.Visible = False 
Else 
    TextBox1.Visible = True 
End If

Любая идея, как сделать это?

источник

2015-04-30 Crecket

Любые ошибки, которые приходят или что-нибудь? – Sam

Да, я получаю сообщение об ошибке, которое я раньше не заметил. Ошибка 424, требуется объект. Я думаю, что это не признает текстовое поле. – Crecket

Изменить

If ActiveSheet.ProtectContents = True Then 
    TextBox1.Visible = False 
Else 
    TextBox1.Visible = True 
End If

Для

If ActiveSheet.ProtectContents = True Then 
    ActiveSheet.TextBox1.Visible = False 
Else 
    ActiveSheet.TextBox1.Visible = True 
End If

Вы не объявляя, где текстовое поле есть. Это исправит его

источник

2015-04-30 15:20:19 Sam

Теперь я получаю ошибку 438 «объект не поддерживает ...» означает ли это, что мне нужно будет использовать фактическую кнопку, например? – Crecket

Он должен работать с любым объектом, обладающим видимым свойством. Код отлично подходит для меня, когда я помещаю текстовое поле в совершенно новую книгу. – Sam

Я пробовал его с картинками, wordart, текстовыми полями, но он продолжает говорить мне, что он не поддерживается:/ – Crecket

Неясно, встроено ли текстовое поле в рабочий лист или в пользовательскую форму.

Если на листе это текстовое поле, основанное на форме? Они создаются на вкладке INSERT на ленте.

Или это текстовое поле ActiveX? Они создаются на вкладке DEVELOPER на ленте.

Если с другой стороны, вы имеете в виду текстовое поле на UserForm, то вы можете использовать следующий код (предполагается, что имя UserForm код является UserForm1):

UserForm1.Controls("NameOfYourTextBox").Visible = Not ActiveSheet.ProtectContents

источник

2015-05-01 18:14:17

Скрыть или отключить кнопку, если лист защищен

ответ

Смежные вопросы