[已解决]VBA技术问题请教

pxtang

各位朋友，我也想把文件做到这种效果，需要详细步骤及代码，请给予指点，谢谢！在线等！在下不胜感激！

最佳答案

月排行榜 / 总排行榜

happym8888

2012-8-19 01:21

三年级期末自查语文、数学、英语成绩统计表(去宏表).rar (48.61 KB, 下载次数: 5)

2012-8-19 01:16 上传

点击文件名下载附件


禁用宏打不开.rar (180.02 KB, 下载次数: 5)

2012-8-19 01:16 上传

点击文件名下载附件

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next
   
3. With Target
   
4.      If .Value <> "" Then
   
5.       PW = InputBox("请输入修改数据的密码，有问题可联系黎泽恩！")
   
6.       If PW <> "13322611211" Then
   
7.       Cells(2, 2).Select
   
8.       Else
   
9.       Exit Sub
   
10.      End If
    
11.      End If
    
12. End With
    
13. End Sub
    
14. 
    

复制代码

两个附件，一个是去掉宏表的xls文件，禁用宏可以打开，成绩添加完成后在该工作表下添加相同代码，再参考另一个附件把宏表设置好。

跳转到最佳答案楼层

happym8888

三年级期末自查语文、数学、英语成绩统计表(去宏表).rar (48.61 KB, 下载次数: 5)

2012-8-19 01:16 上传

点击文件名下载附件


禁用宏打不开.rar (180.02 KB, 下载次数: 5)

2012-8-19 01:16 上传

点击文件名下载附件

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next
   
3. With Target
   
4.      If .Value <> "" Then
   
5.       PW = InputBox("请输入修改数据的密码，有问题可联系黎泽恩！")
   
6.       If PW <> "13322611211" Then
   
7.       Cells(2, 2).Select
   
8.       Else
   
9.       Exit Sub
   
10.      End If
    
11.      End If
    
12. End With
    
13. End Sub
    
14. 
    

复制代码

两个附件，一个是去掉宏表的xls文件，禁用宏可以打开，成绩添加完成后在该工作表下添加相同代码，再参考另一个附件把宏表设置好。

qgs2012

看来VBA可以解决坛子里的任何问题

pxtang

qgs2012 发表于 2012-8-19 08:00
看来VBA可以解决坛子里的任何问题

是的，这个坛子高手云集的