求优化一下代码.

cgx5871

1.     If ActiveSheet.ProtectContents = True Then p = 1: ActiveSheet.Unprotect Password:="."   '解锁
   
2. '----------
   
3. '其他宏
   
4. '-----------

复制代码

1. If p = 1 Then   '锁定工作表
   
2.         ActiveSheet.Protect Password:=".", DrawingObjects:=True, Contents:=True _
   
3.         , Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True _
   
4.         , AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True
   
5.         P=0

复制代码

'-----------------
因为保护状态.  不能正常运行其他宏.
所以先判断,  如果工作表保护状态.  就解除.  运行完宏命令. 再恢复保护.
防止手工误操作
---------现在的问题是,  我所有的宏命令都要加上这个头-尾.  看上去好繁琐.
很不合理.  有什么更好的办法没?

lsc900707

这样不好玩吗？

cgx5871

lsc900707 发表于 2018-7-4 11:43
这样不好玩吗？

强迫症病患者, 表示相当难受.

不知道为什么

cgx5871 发表于 2018-7-4 11:53
强迫症病患者, 表示相当难受.

呵呵，有病治病，必须要保持心情愉快！

lsdongjh

简简单单的两句，判断啥呢？   

ActiveSheet.Unprotect "."
   
    ‘你的代码
   
    ActiveSheet.Protect "."

cgx5871

lsdongjh 发表于 2018-7-4 11:54
简简单单的两句，判断啥呢？   

ActiveSheet.Unprotect "."

不判断会导致, 工作永远是保护状态.
有时修改数据频繁时,  需要手动解除保护状态.
不方便.

lsdongjh

那没什么办法了：
    Dim blIsProtect As Boolean
    blIsProtect = ActiveSheet.ProtectContents
    ActiveSheet.Unprotect Password:="."
   

   
    If blIsProtect Then ActiveSheet.Protect "."