vba 限制用户不能修改excel的内容

Question

Select Case sgradeCase "管理员"Application.ActiveWindow.DisplayWorkbookTabs = 1Worksheets("用户权限").Visible = 1Worksheets("基础表1").Visible = 1Worksheets("查询系统").Visible = 1UserForm1.HideApplication.WindowState = xlMaximizedCase "普通用户"Application.ActiveWindow.DisplayWorkbookTabs = FalseWorksheets("用户权限").Visible = FalseWorksheets("基础表1").Visible = FalseWorksheets("查询系统").Visible = 1UserForm1.HideApplication.WindowState = xlMaximizedEnd SelectEnd IfEnd If我现在的代码是这样、我想让普通用户登录上去只能看见查询系统这个表着实现了我还想不让能够修改这个表怎么做？

Answer 1

把不让修改的表“工具--保护--保护工作表”或“格式--工作表--隐藏”处理一下，估计可行。

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet1.Range("A1").Select
End Sub
选择一个空白没有数据的单元格，让每次单元格的选择都指向它（如：Range("A1")）。本回答被网友采纳

Answer 3

d