E生相爱工作室

18778998308服务热线

好管家网络

excel表格工作表或工作薄忘记密码

作者: 发表时间:2024-04-15 07:44:27浏览量:8039

工作簿密码Sub sheets()ActiveWorkbook.Sheets.CopyFor Each sh In ActiveWorkbook.Sheetssh.Visible = TrueNextEnd Sub工作表密码Sub worksheet()Dim sht As WorksheetFor Each sht In Worksheetssht.Protect AllowFiltering:=Truesht.UnprotectNextEnd Sub


工作簿密码

Sub sheets()

ActiveWorkbook.Sheets.Copy

For Each sh In ActiveWorkbook.Sheets

sh.Visible = True

Next

End Sub

工作表密码

Sub worksheet()

Dim sht As Worksheet

For Each sht In Worksheets

sht.Protect AllowFiltering:=True

sht.Unprotect

Next

End Sub




TAG:网站建设,网站推广,微信公众号开发、小程序开发、网站活动策划,H5制作,代运营,网站代运营,微信代运营,公众号代运营,网站定制,代维护
2024-04-15 07:44:27 8039浏览

推荐信息

联系我们

好管家网络工作室
电话:18778998308
邮箱:info@esxa.cn
地址:好管家网络工作室