Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

67652 / 76738

←次へ　｜　前へ→


	【13640】Re:シート名の変更がかかるとマクロ内のコー...

BOTTA - 04/5/10(月) 13:24 -


	引用なし

	パスワード

meguさん、皆さん、こんにちは。

たとえば、強制的にシート名を変えない様にする。
まず、シートのA1に
=CELL("filename",A1)
と入力します。
("C:\My Documents\[Book1.xls]Sheet1"などと表示されるはず)

そのシートのシートモジュールに
Private Sub Worksheet_Calculate()
Dim ShName As String, MyPos As Long
　　ShName = Me.Range("A1").Value
　　MyPos = InStr(ShName, "]")
　　ShName = Right(ShName, Len(ShName) - MyPos)
　　If ShName <> "Sheet1" Then
　　　　MsgBox "変えちゃダメッ！！"
　　　　Me.Name = "Sheet1"
　　End If
End Sub

シート名を変えようとすると"Sheet1"に戻ります。

0 hits

▼

【13630】シート名の変更がかかるとマクロ内のコー... megu 04/5/10(月) 10:04