使用vba如何将所有表格保护

kevin_zkf

前几天朋友问的，现整理一下
全选时不能进行保护工作表。需要用vba实现。
Sub ok()
    Dim i As Integer
   
   
     For i = 1 To Sheets.Count

    Sheets(i).Protect Password:=123
  

    Next i


End Sub
如何进行使用？

不要8我啊，我只是做任务而已……

a121826

  {:35:}