文章分类 -  1.004、报表系统（权限屏蔽&查询&修改屏蔽）

摘要：Sub chaxun1() Select Case Sheets("查询表").Range("d1").Value Case Is = "结算业绩表" jiesuanchaxun1 Case Is = "上数业绩表" shanngshuchaxun1 Case Is = "费用明细表" feiyon 阅读全文

摘要：登录验证源代码 Public blogin As BooleanSub yanzheng() Dim bmodi Dim i, j, r, c Static icount As Integer Dim suser, spwd Dim yuan2 As Range On Error Resume Ne 阅读全文

摘要：源代码 Sub jichuxulieQH16100901()Dim ax1, ax2 As LongDim xulie1 As Stringax1 = Sheets("权限表").Range("i65536").End(xlUp).RowWith Sheets("查询表").Range("b1"). 阅读全文

摘要：源代码 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not blogin Then 登录.Show End IfEnd SubPrivate Sub Worksheet_Activate() If Not blogi 阅读全文