摘要：
下载Alist https://github.com/alist-org/alist/releases 运行Alist， cmd Alist serve 二、下载Alist helper https://github.com/Xmarmalade/alisthelper/releases 选择Ali 阅读全文
posted @ 2023-12-29 17:15 angury 阅读(169) 评论(0) 推荐(0) 编辑
摘要：
Public TrackChanges As Boolean Sub ToggleCellHistory() TrackChanges = Not TrackChanges If TrackChanges Then MsgBox "单元格历史记录功能已开启。" Else MsgBox "单元格历史记 阅读全文
posted @ 2023-12-14 22:53 angury 阅读(34) 评论(0) 推荐(0) 编辑
摘要：
Sub ToggleWorksheetProtection() Dim ws As Worksheet Set ws = ActiveSheet ' 检查工作表是否受到保护 If ws.ProtectContents = True Then ' 如果工作表已受保护，则解除保护 ' 这里需要提供之前设 阅读全文
posted @ 2023-12-14 22:51 angury 阅读(6) 评论(0) 推荐(0) 编辑
摘要：
Sub ToggleDocumentProtection() Dim doc As Document Set doc = ActiveDocument ' 检查文档是否受到保护 If doc.ProtectionType = wdNoProtection Then ' 如果文档未受保护，则加上只读保 阅读全文
posted @ 2023-12-14 22:50 angury 阅读(10) 评论(0) 推荐(0) 编辑