只要在EXCEL工作表里面加入一句代码，以后只要表格有更改，工作表将会自动为表格设置只读密码。

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveWorkbook.WritePassword = "密码"

End Sub