写一段将EXCEL工作簿设置WritePassword的VBA代码

下面是一个简单的VBA代码示例，用于将Excel工作簿设置为写入密码：

Sub SetWritePassword()
    Dim Password As String
    
    '输入密码
    Password = InputBox("请输入写入密码：")
    
    '如果用户取消了输入，退出代码
    If Password = "" Then Exit Sub
    
    '设置密码
    ThisWorkbook.WritePassword = Password
End Sub

在运行代码时，会提示用户输入写入密码。如果用户取消了输入，则代码会退出。如果用户输入了密码，则代码会将该密码设置为工作簿的写入密码。