[已解决]工作表内指定区域判断问题

yf_home

工作表A，B3:H200区域。
一、如果登录用户名非WH开头，进行判断：
1、如果工作表非保护状态，则
     添加工作表保护密码(123).
     弹窗提示：指定区域，不允许修改。
2，如果工作表处于保护状态，则直接弹窗提示：指定区域，不允许修改。

二、如果登录用户名以WH开头，则
　　解除工作表密码保护。

求VBA语句(触发事件)，谢谢！

///

最佳答案

月排行榜 / 总排行榜

suye1010

2013-7-31 12:39

要求其实可以简化一下:
工作表A，B3:H200区域。
一、如果登录用户名非WH开头，进行判断：
     添加工作表保护密码(123).
     弹窗提示：指定区域，不允许修改。
二、如果登录用户名以WH开头，则
　　解除工作表密码保护。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Not Intersect(Range("B3:H200"), Target) Is Nothing Then
   
3.     If UCase(Left(Application.UserName, 2)) = "WH" Then
   
4.         Target.Parent.Unprotect "123"
   
5.     Else
   
6.         Target.Parent.Protect "123"
   
7.         MsgBox "限定区域,不允许编辑"
   
8.     End If
   
9. End If
   
10. End Sub

复制代码

跳转到最佳答案楼层

suye1010

要求其实可以简化一下:
工作表A，B3:H200区域。
一、如果登录用户名非WH开头，进行判断：
     添加工作表保护密码(123).
     弹窗提示：指定区域，不允许修改。
二、如果登录用户名以WH开头，则
　　解除工作表密码保护。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Not Intersect(Range("B3:H200"), Target) Is Nothing Then
   
3.     If UCase(Left(Application.UserName, 2)) = "WH" Then
   
4.         Target.Parent.Unprotect "123"
   
5.     Else
   
6.         Target.Parent.Protect "123"
   
7.         MsgBox "限定区域,不允许编辑"
   
8.     End If
   
9. End If
   
10. End Sub

复制代码

yf_home

suye1010 发表于 2013-7-31 12:39
要求其实可以简化一下:
工作表A，B3:H200区域。
一、如果登录用户名非WH开头，进行判断：

这样简化也行，只不过如果工作表有密码保护，应该会报错。

殿堂之上

我做了个打开事件{:011:}

yf_home

suye1010 发表于 2013-7-31 12:39
要求其实可以简化一下:
工作表A，B3:H200区域。
一、如果登录用户名非WH开头，进行判断：

登录用户应该是这个吧。
Environ("USERNAME")