作者：乔山办公网日期：
返回目录：excel表格制作
提问者采纳如果，我说的是如果，不存zhidao在workbook的open事件代码和Sheet1的Activate事件，那么工作簿被隐藏很有可能是曾经使用GetObject方法打开过并保存了。这种情况下，只要正常打开（比如双击）后，在VBA的立即版窗口输入一次workbooks("文件名全称").Windows(1).Visible=True，并保存一次，以后就能正常了如果，存在Open事件的代码，权那就酌情修改取消隐藏
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Row > 10 And Target.Row < 51 Then
Debug.Print 123
'此处copy写你的代zd码
End If
End Sub
应该这样做，在你的工作表上点鼠标copy右键，选择“查看代码”，这时候会出现一个VBA代码编辑框，注意下面的操作：代码窗上端有个百“通用”，请选择为“Worksheet”，然度后右边选择“BeforeDoubleClick”，这时候会自动产生下面的代码：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
你需要把 MsgBox "你双击了本sheet!"粘贴到上面的两行代问码答之间即可，粘贴完毕的代码如下：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "你双击了本sheet!"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
现在就有你需要的效果了，当然最后几行代码可以不要。
左边的框里面没有粉色的，右边蓝色行是固定的么？还是会变动。你的赋值写到循环里面，而且没有判断从哪个单元格开始。