设为首页收藏本站 Access中国

开启辅助访问切换到宽版

官方QQ群

Office中国论坛/Access中国论坛»论坛首页 › Excel 讨论区 › Excel VBA开发 › 请高手帮忙写一个PUBLIC的参数来实现功能

发新帖

查看: 2033|回复: 1

上一主题

下一主题

请高手帮忙写一个PUBLIC的参数来实现功能

电梯直达

跳转到指定楼层

1^#

发表于 2011-5-19 19:42:52 | 只看该作者回帖奖励

回帖奖励

|倒序浏览 |阅读模式

请高手帮忙写一个PUBLIC的参数来实现功能

本帖子中包含更多资源

您需要登录才可以下载或查看，没有帐号？注册

x

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

收藏0 分享1 淘帖0 订阅

回复

使用道具举报

2^#

发表于 2011-5-20 18:34:59 | 只看该作者

本帖最后由 roych 于 2011-5-20 18:36 编辑

不知道是不是这样：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheet1.Unprotect Password:="12345"
If Target.Value <> "" Then
Target.Locked = True
Sheet1.Protect Password:="12345"
End If
End Sub

复制代码

一旦录入后即进行单元格保护。

回复支持反对

使用道具举报

发新帖

|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )

GMT+8, 2024-4-29 17:32 , Processed in 0.096862 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表