表格关闭后自动恢复保护模式

guojh

1.每次自动保存关闭后，不管几个个表格有没有设置保护工作表的密码保护，下次打开后都恢复保护状态；
2.表格打开后都能在指定的位置显示上次保存的时间及保存人的用户名；
求教高手~~~

awp57

保存人的用户名  数据从哪儿来？
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim a As String
a = Sheets("表1").Range("c17").End(xlUp).Row
If a > 2 Then
Sheets("表1").Range("c" & a + 1) = Format(Now, "yyyy-mm-dd hh:mm:ss")
End If
End Sub

Private Sub Workbook_Open()
For Each sht In Sheets
sht.Protect "123", AllowFiltering:=True
Next
End Sub

guojh

awp57 发表于 2020-4-11 20:54
保存人的用户名  数据从哪儿来？
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim a As String ...

谢谢前辈，很受用。用户名就是电脑每次打开时的用户名，我对VBA不熟，再次感谢

guojh

Private Sub Workbook_Open()
With Worksheets("表1名称","表2名称","表3名称")
.EnableOutlining = True
.Protect Password:="密码", userInterfaceOnly:=True
End With
这个好像不对，求教一下高手这个要什么改
End Sub