都内SEのプログラミング勉強と雑記

2008年より都内でSEをしてます。業務システムをリプレイスし続けてきました。ここでは主にjavaやその周辺技術関連を紹介予定。学ぶことリスト:https://docs.google.com/spreadsheets/d/1G4lUqbHxsMf4PGgeRVe1ZL3JTOjlSTrqsJYe1CKz9UY/edit?usp=sharing

VBAでExcelファイルを読み取り専用で開き直すサンプルコード

f:id:object1985:20170914153529p:plain
久しぶりにExcelVBAと戯れているのでメモレベルでかきかき。

''''''''''''''''''''''''''''''''''''''''''
' 現在のブックを読み取り専用で開き直す
''''''''''''''''''''''''''''''''''''''''''
Sub readOnlyOpen_NoSave()

rc = MsgBox(ActiveWorkbook.name & "を読み取り専用で開き直しますか?この時、保存されません。", vbOK + vbcalcel)
If rc = vbCancel Then
    Exit Sub
End If

Dim fullName As String: fullName = ActiveWorkbook.fullName

'保存せず閉じる
ActiveWorkbook.Close SaveChanges:=False

'読み取り専用で開き直す
Workbooks.Open FileName:=fullName, ReadOnly:=True

End Sub
follow us in feedly