質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

89.11%

セルロックが不正な動作をする場合がある

解決済

回答 2

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 1,010

FujiCandy

score 12

Excel 2016にて、VBAにてセルロックの解除をしているのですが、
解除が不正な動作をするケースがあります。

再現性は低く、問合せがあった際は、実行時のパフォーマンスの問題による不正動作として片づけていますが、何かしら発生させる手段があれば教えてください。

1.シートを保護する
ws.Protect UserinterfaceOnly:=True, Password:=str_password

2.部分的にロックをセルロックを解除する
ws.Range(ws.Cells(row_start, col_start), ws.Cells(row_end, col_end)).Locked = False

※1.row_endは都度不定行ですが、それ以外は固定。
※2.まとめてロック解除処理をしている。(ループ処理はしていない)

実行後、なぜか真ん中あたりの列だけ、ロックがかかったままになっている。
列単位で発生しており、行では発生していない。また最後の列だけとかではなく
中途半端な位置だけが解除されない。

試したこととして、
ロックがかかった部分をコピーして、貼り付けしたが、ロックはコピーされない。
※シート保護を解除すると、ロックはコピーされる。

列や行コピー貼り付けはシート保護でさせないようにしている。

ユーザ側の操作が悪いのか、PCのパフォーマンスの問題なのか、それ以外の要素があるのかが
わかればと思っています。

ソースが長いため、概略的に記載しています。

    Public Const g_formant_row_start = 14
    Public Const g_formant_col_end = 52

    'ダウンロードしたファイルの最大行数を確認
    Dim obj As Object
    Set obj = CreateObject("Scripting.FileSystemObject")
    int_maxRow = obj.OpenTextFile(strFileName, 8).Line - 2

    Dim ws As Worksheet :  Set ws = ThisWorkbook.Sheets("AAA")

    'データの数だけまず枠を作成する。
    Dim row_start As Integer: row_start = g_formant_row_start +2
    Dim row_end  As Integer: row_end = int_maxRow + g_formant_row_start 

    If row_start <= row_end Then
        ws.Range(ws.Rows(g_formant_row_start), ws.Rows(row_end)).Insert (xlDown)
        ws.Range(ws.Cells(g_formant_row_start , 1), ws.Cells(g_formant_row_start + 1, g_formant_col_end)).Copy
        ws.Range(ws.Cells(row_start, 1), ws.Cells(row_end, g_formant_col_end)).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End If
    Application.CutCopyMode = False

    'セル保護解除
    ws.Range(ws.Cells(g_formant_row_start , 5), ws.Cells(row_end, g_formant_col_end)).Locked = False

処理の流れとしてはダウンロードしたファイルから、必要な枠数分だけ
フォーマットシートから枠組みを作成する流れになります。

※フォーマットシートは、シート保護を実施してます。
※フォーマットシートをコピーし、シート保護がかかったまま枠組み作成、必要な部分だけセル保護解除をしています。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

checkベストアンサー

0

こんにちは。

想定で落ちる落ちないでなく、想定外のことが発生したときのための
on errorですから入れるべきだと思いますよ。

確実にon errorが発生するかどうかはわかりませんが
事象が発生する原因や切り分けをするための糸口をつかむためにも
まずはon errorでエラー時の詳細な状態(変数の値とか)をログ出力をする処理を入れたモノを
運用してもらった方がいいと思います。
多分、再現性が低いということはレアな状態で発生するものと思いますので
現状のままでは解決の糸口を見つけるのは難しいように思えます。

以上

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/12/10 11:17

    ありがとうございます。
    やはり、On Error入れるしかないですよね。。
    エラー発生時にErr.Descriptionを使って、メッセージ+ログ出力して、
    何もなければユーザ操作の可能性ということで、切り分けるしかなさそうですね。

    1000台導入しており、現段階では改修が難しいので、次回改修時に仕込むことにします。

    キャンセル

0

提示の情報では、ちょっとわかりかねます。

が、一応、

※1.row_endは都度不定行ですが、それ以外は固定。

これは、具体的にどういう位置になるのですか?
そして、どういうコードで特定していますか?

あと、
あてずっぽうだけど、
on error ~の
エラーの処理がまずくて意図したセル範囲が取得できてないかも?
全部のコード提示してみては?

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/12/06 15:04

    ご指摘ありがとうございます。
    色々な個所を参照しているため、概略的にソースを記載いたしました。
    row_endは、ダウンロードしたファイルの行数を判断して、特定しています。

    ここで落ちる想定はしてないので、on errorは入れてないです。
    ユーザビリティ的にはよくないですが、発生しだい事象確認と対応になっています。
    (ダウンロードファイルのチェックは別処理)

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 89.11%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる