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

[發問] 鎖定活頁名稱

vinejason

中學生 Rank: 2

帖子: 124
主題: 43
精華: 0
積分: 167
點名: 0
作業系統: Windows7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 台灣台北
註冊時間: 2011-3-16
最後登錄: 2021-10-7

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-1-25 14:36 | 只看該作者

[發問] 鎖定活頁名稱

本帖最後由 vinejason 於 2018-1-25 14:39 編輯

請問如何做到
固定sheet 名稱呢 ? (不准更改)
與開放更改名稱

)

樓主熱帖

無止盡的努力上進

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 72
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2025-4-11

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2018-1-26 13:29 | 只看該作者

回復 1# vinejason

是否有更具體的說明

什麼時候不能改?

USER要做什麼動作才能改?

用功到世界末日那一天～～～

TOP

vinejason

中學生 Rank: 2

帖子: 124
主題: 43
精華: 0
積分: 167
點名: 0
作業系統: Windows7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 台灣台北
註冊時間: 2011-3-16
最後登錄: 2021-10-7

3^#

發表於 2018-1-26 14:41 | 只看該作者

回復 2# li_hsien

只是單純想到是否可以鎖定名稱啦

無止盡的努力上進

TOP

vinejason

中學生 Rank: 2

帖子: 124
主題: 43
精華: 0
積分: 167
點名: 0
作業系統: Windows7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 台灣台北
註冊時間: 2011-3-16
最後登錄: 2021-10-7

4^#

發表於 2018-1-26 15:26 | 只看該作者

找到答案了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
BefVal = Target
If ActiveSheet.Name <> "廠商資料" Then '不允許更名
ActiveSheet.Name = "廠商資料"
End If
End Sub

無止盡的努力上進

TOP

靜思自在 : 君子如水，隨方就圓，無處不自在。

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