2017-04-03 12 views
1

エンドユーザーにEULAを表示させてから、条件に同意するコマンドボタンをクリックするように単純なマクロを作成しました。ワークブックのタブをクリックすると、ユーザーはブックを操作できます。これは、Excel 2010および以前のすべてのバージョンで正常に動作しますが、Excel 2010で書かれたマクロがExcel 2013で動作しない

エクセル2013年に私はこのエラーを取得できません: Error Dialogue

これは、コードは次のとおりです。

Sub OpenSheets() 
' 
' OpenSheets Macro 
' 

' 
    Sheets("EULA").Select 
    Sheets("Infection_Worksheet").Visible = True 
    Sheets("Infection_Worksheet").Select 
    Sheets("Exit_Site_Infection_Chart").Visible = True 
    Sheets("Exit_Site_Infection_Chart").Select 
    Sheets("Peritonitis_Chart").Visible = True 
    Sheets("Exit_Site_Infection_Chart").Select 
    Sheets("%_Pts_peritonitis_free").Visible = True 
    Sheets("%_Pts_peritonitis_free").Select 
    Sheets("Pt_numbers").Visible = True 
    Sheets("Pt_numbers").Select  
    Sheets("Results").Visible = True 
    Sheets("Results").Select 
    Sheets("Instructions").Visible = True 
    End Sub 

は誰もが何か提案がありますか?

+1

このSheets("Infection" & Chr(97) & "Worksheet").Visible = True

などなどなどをお試しください – 3vts

+0

xl2016では、保護された構造のワークブック内のワークシートを再表示しようとすると[this](https://i.stack.imgur.com/UcIjZ.png)エラーが発生します。 – Jeeped

+0

あなたはどういうわけかワークスペースを扱っていますか? MSが独立したアプリケーションウィンドウ(単一のアプリケーションインスタンス内)に移動したとき、ワークスペースはxl2013で放棄されました。 – Jeeped

答えて

0

下線は、VBAの次の行への継続を表します。

どこに誤りがある?

+2

下線は、文字列リテラル内ではなく、空白で始まる場合にのみ継続文字です。 – YowE3K

+0

彼のシートはあたかもアンダースコアの前に何もないように行動しているので、私の最初の容疑者だった:私は過去に同様の問題を抱えていた。それは通常、引用符が間違っているか、私はしてはいけない行継続を使用しています! – Jaberwocky

+0

「オブジェクト」が「_Worksheet」であることに気づかずにいたので、何かにヒットしたかもしれませんが、特にアンダースコアのためではありません。それはある種の腐敗の一種かもしれません(私の解決策は、OPが単に行を再入力するためのものでした)最近、別の質問がありました。 @MarkPenno - 'Sheets(" Infection_Worksheet ")を削除して再入力してみてください。Visible = True'行。 – YowE3K

関連する問題