从Excel打开tiff文件导致单元格编辑功能丢失

时间:2018-01-09 15:21:03

标签: excel excel-vba excel-formula vba

我有一个电子表格,不同的人在不同的PC上使用副本。 Worksheet_Selection_Change触发的宏打开图像文件。在两台PC上,当打开工作簿时,用户无法在不双击的情况下编辑单元格。此外,除非双击,否则不会触发Selection_Change事件。在选项中,选中“允许直接在单元格中编辑”。在我的电脑上,这很好用,这意味着我可以编辑单元格。

我们尝试了这里提供的所有解决方法: https://social.technet.microsoft.com/Forums/ie/en-US/b3f38d61-698a-4117-84a7-e73e3e209c25/excel-2013-unable-to-type-in-cell?forum=officeitpro

在这里: https://www.mrexcel.com/forum/excel-questions/345218-cannot-enter-text-cell-unless-double-click.html

其中一些工作,直到打开图像,然后又回到不允许编辑,我们不得不重新启动工作簿。

可能是宏中的某些东西导致了这种情况发生,除了我随后删除了所有代码,制作了图像的超链接(所有宏都是打开的图像),并且会发生类似的行为。您可以编辑单元格,直到您打开图像(这次使用超链接),然后您无法编辑单元格。

此外,正如我在计算机上说的那样,根本没有发生,当我们检查时,相同的Windows版本,相同的Excel版本(14.0.7190.5000)。

这只是Excel中的随机错误吗?

我错过了一些明显的东西吗?

对我来说,为什么会在某些PC而不是其他PC​​上发生这种情况,这是有道理的。

有谁知道如何解决这个问题?

以下是我想要发生的事情:用户打开电子表格。他们可以直接编辑单元格。用户:

A)单击指向图像文件的超链接,然后在她的计算机上打开该图像文件。

B)单击电子表格中的单元格,触发以下代码运行:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then
    If Target.Column = 1 Then
        Dim Shex As Object
        Dim tgtFile As String
        Dim fileName As String
        fileName = Cells(Target.Row, Target.Column).Value & ".tif"
        Set Shex = CreateObject("Shell.Application")
        tgtFile = ThisWorkbook.Path & "\" & fileName
        Shex.Open (tgtFile)
    End If
End If
End Sub

然后在A或B完成后,用户打开了图像文件后,她可以返回电子表格,仍然可以直接编辑单元格。

实际发生的是用户正在完成A或B,然后返回电子表格,现在突然无法直接编辑单元格。这只发生在某些计算机上,而不是其他计算机上,并且所有计算机都使用相同版本的Windows和Excel。

此外,可在此处找到电子表格的副本: http://batesplus.com/temp/example.xlsm

如何制作图片,以便用户可以打开图片,然后返回电子表格,仍然可以编辑单元格?

谢谢

0 个答案:

没有答案