帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-1-6 00:55 | 只看該作者

[發問] 有關語法無法執行的問題！

論壇的各位先進大家好！很抱歉又來打擾了，因為小弟的成績系統已完成很久了，所以有一段時間都沒來。現在又出現問題，所以想來請教！
下面的語法，是要來開放未鎖定的儲存格，可以改變儲存格的字型等等的選項，但是離開這個工作表又回來後，原來的設定又變了，變成未鎖定的儲存格又無法改變格式內容，不知問題出在哪裡？是在附件檔案的「成績單」工作表
'保護「成績單」表格↓'
With Sheets("成績單")
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
.EnableSelection = xlUnlockedCells
.Protect Password:="6323"
End With
'保護「成績單」表格↑'

樓主熱帖

skyutm

中學生 Rank: 2

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

2^#

發表於 2013-1-6 00:57 | 只看該作者

新路成績系統.rar (412.44 KB) 回復 1# skyutm
附件檔

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2013-1-6 01:26 | 只看該作者

回復 2# skyutm

   ActiveSheet.Protect Password:="6323", DrawingObjects:=True, Contents:=True, Scenarios:=True _
      , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
      AllowFormattingRows:=True
ActiveSheet.EnableSelection = xlUnlockedCells

學海無涯_不恥下問

TOP

skyutm

中學生 Rank: 2

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

4^#

發表於 2013-1-6 17:21 | 只看該作者

回復 3# Hsieh
再次感謝超級版大幫忙解惑，小弟已測試無誤。
不過還是想再請教，因為這個語法我是從錄製巨集得知的，後來我比較版主和我的語法，發現少了AllowFormattingColumns:=True, AllowFormattingRows:=True這兩行，是這樣的因素嗎？

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2013-1-7 00:22 | 只看該作者