|
皆さんおはようございます。早速ですが質問をさせてください
矢印のメッセージボックスの所でエラーが出てしまいます。どうしてでしょうか?
Sheets("使用状況確認書").Select
res = MsgBox("初版ですか?", vbYesNo, _
vbExclamation, "初版・再版確認画面")
↑
Select Case res
Case vbYes
Application.ScreenUpdating = False
ActiveSheet.Unprotect password:="****"
Range("BM1").Select
Range("BM1").Formula = "(初版)"
ActiveSheet.Protect password:="****"
Case vbNo
ActiveSheet.Unprotect password:="****"
Range("BM1").Select
Range("BM1").Formula = "(再版)"
ActiveSheet.Protect password:="****"
Application.ScreenUpdating = True
Application.DisplayFormulaBar = True
Range("H5").Select
End Select
|
|