怎么设置工作表保护的时候按钮是禁用状态

Stone_00x

工作表中插入一个按钮,怎么设置工作表保护的时候按钮是禁用状态,

解除工作表保护后按钮变为可用

3190496160

了解一下，acticex控件的enabled属性，为false是灰色，为true是正常

Stone_00x

3190496160 发表于 2023-2-15 11:35
了解一下，acticex控件的enabled属性，为false是灰色，为true是正常

这个我知道,我想知道的是怎么触发当工作表解除保护的时候设置CommandButton1.Enabled = False
目前我的做法是打开工作簿先判断工作表是否是保护状态,然后再在工作表激活事件里面做个判断,这样每次都要选择一下其他工作表再激活按钮所在的工作表才能触发
因公司文件加密上传不了文件....

1. 工作簿事件
   
2. Private Sub Workbook_Open()
   
3.     If Sheets("目录").ProtectContents Then
   
4.         Sheets("目录").CommandButton1.Enabled = False
   
5.     Else
   
6.         Sheets("目录").CommandButton1.Enabled = True
   
7.     End If
   
8. End Sub

复制代码

1. 工作表事件
   
2. Private Sub Worksheet_Activate()
   
3.     If Sheets("目录").ProtectContents Then
   
4.         Sheets("目录").CommandButton1.Enabled = False
   
5.     Else
   
6.         Sheets("目录").CommandButton1.Enabled = True
   
7.     End If
   
8. End Sub

复制代码