|
初めて投稿させていただきます。
今、表題の件で困っているのです。
シートが1〜4まであり、AUTO_OPEN時に下のコードで
メニューバーを非表示にしています。
Dim myCB As CommandBar
For Each myCB In CommandBars
'---使用可能/使用不可能を切り替える
myCB.Enabled = False
Next
この状態で、シート1の内容をシート4にCOPYしています。
Dim Ws1 As Worksheet, Ws2 As Worksheet
Set Ws1 = Worksheets("シート1")
Set Ws2 = Worksheets("シート2")
Ws1.Range(Cells(6, "A"), Cells(nrow, "A")).Copy
Ws2.Range("A5").PasteSpecial
Application.CutCopyMode = False
この間複数列のコピーをしています
Sheets("確認用").Select
Ws2.Cells.Select
With Selection.Font
.Name = "MS Pゴシック"
.FontStyle = "標準"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Selection.Interior.ColorIndex = xlNone
Ws2.Range("A5").Select
Ws2.Range("A:BM").EntireColumn.AutoFit
この作業が終わった時に、メニューバーが表示される部分が
グレーになってしまうのです。
この状態はシート4だけでなく他のシートも同様の状態です。
なにが原因なのかまったくわかりません。
どうぞよろしくお願いいたします。
|
|