工作表不能編輯及查看公式

by chijanzen on 五月 23rd, 2009 | View: 2,556 views

Tags

No Tags

Comments (0)

索引	D0015
主題	工作表不能編輯及查看公式
版本	>= 10.0(Office 2003)
說明	本範例使用保護工作表的方法讓使用者無法編輯及查看公式，但是允許所有的編輯功能(如複製、調整列高、插入列、刪除列..等)
參考

Code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
SetFormulaOn
End Sub
　

Private Sub Workbook_Open()
SetFormulaHidden
End Sub
　

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Code

Sub SetFormulaHidden()
'刪除先前定義的允許使用者可編輯範圍(Title:="Range1")
    SetFormulaOn
    '工作表處於保護狀態時仍能修改
    Cells.Locked = False
    '工作表處於保護狀態時隱藏公式
    Cells.FormulaHidden = True
    '可在受保護工作表中編輯所有儲存格
    ActiveSheet.Protection.AllowEditRanges.Add Title:="Range1", Range:=Cells
    '保護工作表，但是允許所有的編輯功能
    ActiveSheet.Protect _
    AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                        AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                        AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                        AllowSorting:=True, AllowFiltering:=True, _
                        Password:="chijanzen"
End Sub
　

Sub SetFormulaOn()
    On Error Resume Next
    ActiveSheet.Unprotect ("chijanzen")
    ActiveSheet.Protection.AllowEditRanges("Range1").Delete
    Error = 0
End Sub
　