行者

慢慢走，不要停
  博客园  :: 新随笔  :: 管理

2023年12月14日

ExcelVba 单元格历史记录(记录单元格变更历史)

摘要： Public TrackChanges As Boolean Sub ToggleCellHistory() TrackChanges = Not TrackChanges If TrackChanges Then MsgBox "单元格历史记录功能已开启。" Else MsgBox "单元格历史记 阅读全文

posted @ 2023-12-14 22:52 angury 阅读(199) 评论(0) 推荐(0)

ExcelVba 切换保护状态

摘要： Sub ToggleWorksheetProtection() Dim ws As Worksheet Set ws = ActiveSheet ' 检查工作表是否受到保护 If ws.ProtectContents = True Then ' 如果工作表已受保护，则解除保护 ' 这里需要提供之前设 阅读全文

posted @ 2023-12-14 22:51 angury 阅读(48) 评论(0) 推荐(0)

WordVba 切换保护状态

摘要： Sub ToggleDocumentProtection() Dim doc As Document Set doc = ActiveDocument ' 检查文档是否受到保护 If doc.ProtectionType = wdNoProtection Then ' 如果文档未受保护，则加上只读保 阅读全文

posted @ 2023-12-14 22:50 angury 阅读(42) 评论(0) 推荐(0)