ユーザーがブックを開いたときと同じ名前でブックを保存できないようにし、名前を付けて保存オプションを提供したいと考えています。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.Name = "abc" Then
Cancel = True
SaveAsUI = True
End If
また試した
If ThisWorkbook.Name = "abc" Then SaveAsUI = True
このコードは機能しません。名前を付けて保存ダイアログが表示されません。
次の試行
If ThisWorkbook.Name = "abc" Then ThisWorkbook.ReadOnly = True
'Error - can't assign to read only property.