Question

我正在尝试锁定excel文件的aspect / visual选项，所以当其他人打开它时，它仍然保持我设置的状态，无法更改它。当我设置方面选项而其他人在他们的PC中打开它时，所有设置都消失了。

我想将方面设置如下：

不显示公式栏
不显示标题
最小化功能区

此外，我想锁定每张纸的特定设置：

缩放：

100％用于表1和4
表2和表3

冻结窗格：

第1页和第4页的解冻
冻结第2页和第3页的前3列

有没有这样做？

谢谢！

Answer 1

我在“本工作手册”中使用了这个＆＃39; excel对象。发送密钥有效，但我会小心，因为这些容易出错。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If ActiveSheet.Name = "Sheet1" Or ActiveSheet.Name = "Sheet4" Then
    ActiveWindow.FreezePanes = False
    ActiveWindow.Zoom = 90
ElseIf ActiveSheet.Name = "Sheet2" Or ActiveSheet.Name = "Sheet3" Then
    Columns("d:d").Select
    ActiveWindow.FreezePanes = True
    ActiveWindow.Zoom = 90
End If

Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False

If Application.CommandBars("Ribbon").Height >= 150 Then
    SendKeys "^{F1}"
End If

End Sub

Answer 2

希望这会有效，如果不让我知道的话！

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If ActiveSheet.Name = "Sheet1" Or ActiveSheet.Name = "Sheet4" Then
    ActiveWindow.FreezePanes = False
    ActiveWindow.Zoom = 90
ElseIf ActiveSheet.Name = "Sheet2" Or ActiveSheet.Name = "Sheet3" Then
    Columns("d:d").Select
    ActiveWindow.FreezePanes = True
    ActiveWindow.Zoom = 90
End If

Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

End Sub

如何锁定excel方面/视觉选项

2 个答案: