如题所述
å¯ä»¥ç¨ä¸é¢ç代ç æ¥å®ç°ï¼
Sub main()
If ActiveSheet.ProtectContents=True Then
MsgBox "å·¥ä½è¡¨å¤äºä¿æ¤ç¶æ!"
End If
End Sub
å ³äºæ¤ä¾ä¸ç¨å°çProtectContentså±æ§çç¸å ³ç¥è¯ï¼
å¦æå·¥ä½è¡¨çå 容å¤äºä¿æ¤ç¶æï¼å该å¼ä¸º Trueã对äºå¾è¡¨å·¥ä½è¡¨ï¼è¿æ ·å°ä¿æ¤æ´ä¸ªå¾è¡¨ã对äºå·¥ä½è¡¨ï¼è¿æ ·å°ä¿æ¤æ¯ä¸ªåå æ ¼ãBoolean ç±»åï¼åªè¯»ã
Sub main()
If ActiveSheet.ProtectContents=True Then
MsgBox "å·¥ä½è¡¨å¤äºä¿æ¤ç¶æ!"
End If
End Sub
å ³äºæ¤ä¾ä¸ç¨å°çProtectContentså±æ§çç¸å ³ç¥è¯ï¼
å¦æå·¥ä½è¡¨çå 容å¤äºä¿æ¤ç¶æï¼å该å¼ä¸º Trueã对äºå¾è¡¨å·¥ä½è¡¨ï¼è¿æ ·å°ä¿æ¤æ´ä¸ªå¾è¡¨ã对äºå·¥ä½è¡¨ï¼è¿æ ·å°ä¿æ¤æ¯ä¸ªåå æ ¼ãBoolean ç±»åï¼åªè¯»ã
温馨提示:答案为网友推荐,仅供参考
第1个回答 推荐于2016-03-20
Sub aa()
If ActiveSheet.ProtectContents Then
MsgBox "工作表处于保护状态!"
Else: MsgBox "工作表处于未保护状态!"
End If
End Sub本回答被提问者采纳
If ActiveSheet.ProtectContents Then
MsgBox "工作表处于保护状态!"
Else: MsgBox "工作表处于未保护状态!"
End If
End Sub本回答被提问者采纳