在VBA中怎么用语言改变excel的只读属性为读写属性
展开全部
如果是Sheet的话，可以用一下方法
Sheets(sheet名).Unprotect (密码)
如
Sheets("Sheet1").Unprotect ("123")如果是工作簿，用以下方法
ActiveWorkbook.WritePassword = ""
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Private Sub Workbook_Open()
If ActiveWorkbook.ReadOnlyRecommended = True Then
ActiveWorkbook.ReadOnlyRecommended = False
End If
End Sub
打开文件时自动判断，如果是只读则设置为读写
If ActiveWorkbook.ReadOnlyRecommended = True Then
ActiveWorkbook.ReadOnlyRecommended = False
End If
End Sub
打开文件时自动判断，如果是只读则设置为读写
追问
如果我是将工作簿保护了这样产生的只读怎么取消，我试了一下您的，发现并不能取消保护为可读写。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
activeworkbook.unprotect
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
