請教語法是哪裡出問題？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教語法是哪裡出問題？

返回列表下一主題上一主題發帖

[發問] 請教語法是哪裡出問題？

中學生 Rank: 2

帖子: 23
主題: 0
精華: 0
積分: 51
點名: 0
作業系統: WIn7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-3-30
最後登錄: 2013-7-10

1^# 跳轉到 »

發表於 2012-8-21 14:09 | 顯示全部帖子

本帖最後由 kevin681024 於 2012-8-21 14:11 編輯

回復 1# skyutm
試試看這樣呢？

Sub Worksheet_Activate()
With Worksheets("期中評量")
With Union(.Range("A1:V2"), .Range("a3", Cells(3, 1).End(xlDown)))
.Locked = True
.FormulaHidden = True
End With
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

複製代碼

80 字節以內
不支持自定義 Discuz! 代碼

靜思自在 : 多做多得。少做多失。

返回列表下一主題上一主題