If rs.RecordCount >  Then

                .Range("AF4").Value = pjno

                MsgBox "This project number does exists Please create a new one !",

                .Range("A1:AH56").Locked = False

                .Range("F6:M6").Locked = True

                ActiveSheet.Protect Password:="locked"

                Exit Sub

Else

                .Range("AF4").Value = pjno

End If

最新文章

  1. JavaScript 面向对象(二) —— 案例篇
  2. hdu 1195 广度搜索
  3. 十一、外观(Facade)模式--结构模式(Structural Pattern)
  4. AngularJS如何使用ngRepeat过滤排序
  5. tty/pts 相关指令
  6. MySQL Q&A 解析binlog的两个问题
  7. intellij 打开node项目 一直停留在scanning files to index....，或跳出内存不够的提示框
  8. bzoj 3142: [Hnoi2013]数列
  9. python中星号的意义（**字典，*列表或元组）
  10. python数据类型——列表和元组类型
  11. 循环神经网络（Recurrent Neural Network，RNN）
  12. Sql Server 完全卸载，卸载干净,Windows 7。
  13. 基于Anaconda安装tensorflow-GPU和caffe-GPU
  14. oracle之触发器
  15. Django 模本(Template--for--csrf--if--filter--simple_tag模版继承等)
  16. 前端笔记-javaScript-2
  17. 撒花！中文翻译仓库链接已加入 ML.NET 官方示例网站首页
  18. NPOI 列宽自适应 代码示例
  19. HomeBrew 安转beta版软件
  20. 【Android】Android自定义属性，attr format取值类型

热门文章

  1. c语言之一个简单的《学生教师管理系统》小结记录（二）
  2. 循环遍历 文件夹 生成makefile
  3. 深入理解Java虚拟机——读书笔记
  4. ACM-ICPC 2019南昌网络赛F题 Megumi With String
  5. 解决Python中出现的问题： “You are using pip version 9.0.1, however version 19.2.3 is available. You should consider upgrading via the 'python -m pip install --upgrade pip' command.”
  6. MODI的OCR接口
  7. 回顾了下shell 编程的一些细节
  8. zabbix验证微信
  9. 01windows7下安装rabbitmq
  10. cookie和Session是啥？