[已解决]请问，如何修改以下代码利用MsgBox选择"保护"或者"取消保护"

feiaoli

运行此宏可以"保护"或"取消保护"文件夹中的其他工作簿中的所有表格【本宏只能"取消保护"不能"保护"，求修改VBA,利用MsgBox选择"保护"或者"取消保护"文件夹下的所有工作表】

1. Sub CancelPwd()
   
2. Dim WbName As Variant, i As Integer, MyWb As Workbook, j As Integer
   
3. WbName = Application.GetOpenFilename _
   
4. (Filefilter:="Excel,*.xls;*.xlsx;*.xlsm", _
   
5. Title:="选择你要删除保护密码的excel——可以多选", MultiSelect:=True)
   
6. If TypeName(WbName) = "Boolean" Then Exit Sub
   
7. Application.ScreenUpdating = False
   
8. For i = 1 To UBound(WbName)
   
9.     Set MyWb = Application.Workbooks.Open(Filename:=WbName(i))
   
10.     For j = 1 To MyWb.Worksheets.Count
    
11.         If MyWb.Worksheets(j).ProtectContents Then
    
12.             MyWb.Worksheets(j).Unprotect Password:=""
    
13.         End If
    
14.     Next j
    
15.     MyWb.Save
    
16.     MyWb.Close
    
17.     Set MyWb = Nothing
    
18. Next i
    
19. Application.ScreenUpdating = True
    
20. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-5 10:06

类似这样，代码自己重新组织一下

1. b = MsgBox("请选择是否保护工作表，Yes=保护，No=取消保护", vbYesNo)
   
2. If b = 6 Then
   
3.   保护（不是写这两个字啊，自己写代码，下同）
   
4. Else
   
5.   取消保护
   
6. End If

复制代码

跳转到最佳答案楼层

砂海

自己 录制 一个保护工作表的宏 , 立马就知道了

大灰狼1976

类似这样，代码自己重新组织一下

1. b = MsgBox("请选择是否保护工作表，Yes=保护，No=取消保护", vbYesNo)
   
2. If b = 6 Then
   
3.   保护（不是写这两个字啊，自己写代码，下同）
   
4. Else
   
5.   取消保护
   
6. End If

复制代码

feiaoli

大灰狼1976 发表于 2017-4-5 10:06
类似这样，代码自己重新组织一下

非常感谢老师指导，已经解决！

1. Sub CancelPwd()
   
2. Dim WbName As Variant, i As Integer, MyWb As Workbook, j As Integer
   
3. B = MsgBox("请选择是否保护工作表，Yes=保护，No=取消保护", vbYesNo)
   
4. If B = 6 Then
   
5.     WbName = Application.GetOpenFilename _
   
6.     (Filefilter:="Excel,*.xls;*.xlsx;*.xlsm", _
   
7.     Title:="选择你要添加保护密码的excel——可以多选", MultiSelect:=True)
   
8.     If TypeName(WbName) = "Boolean" Then Exit Sub
   
9.     Application.ScreenUpdating = False
   
10.     For i = 1 To UBound(WbName)
    
11.         Set MyWb = Application.Workbooks.Open(Filename:=WbName(i))
    
12.         For j = 1 To MyWb.Worksheets.Count
    
13.             MyWb.Worksheets(j).Protect Password:=""
    
14.         Next j
    
15.         MyWb.Save
    
16.         MyWb.Close
    
17.         Set MyWb = Nothing
    
18.     Next i
    
19.     Application.ScreenUpdating = True
    
20. Else
    
21.     WbName = Application.GetOpenFilename _
    
22.     (Filefilter:="Excel,*.xls;*.xlsx;*.xlsm", _
    
23.     Title:="选择你要删除保护密码的excel——可以多选", MultiSelect:=True)
    
24.     If TypeName(WbName) = "Boolean" Then Exit Sub
    
25.     Application.ScreenUpdating = False
    
26.     For i = 1 To UBound(WbName)
    
27.         Set MyWb = Application.Workbooks.Open(Filename:=WbName(i))
    
28.         For j = 1 To MyWb.Worksheets.Count
    
29.             MyWb.Worksheets(j).Unprotect Password:=""
    
30.         Next j
    
31.         MyWb.Save
    
32.         MyWb.Close
    
33.         Set MyWb = Nothing
    
34.     Next i
    
35.     Application.ScreenUpdating = True
    
36. End If
    
37. End Sub
    

复制代码

smallestmonkey

支持4楼